学习VB编程第18天，分类统计学生成绩不用愁

今天学习了刘金玉老师VB编程教程的第26期，学习的主要内容是选择结构（select case）。

1.select case 语法结构

select case 变量

Case 条件表达式1

符合条件表达式1的结果

Case 条件表达式2

符合条件表达式2的结果

......

Case else

End select

2.使用to关键字，两边的数值范围是包含的，使用is关键字，必须要搭配>、<、>=、<>、<=等符号来写表达式

3.select case 语法结构优势

①提高程序执行效率问题

当条件较少的时候，使用if语句只有两个分支

当条件较多的时候，使用select case语句多分枝语句

②语法结构更为清断

3.select case案例分享：统计一个班优秀、合格、不合格成绩各有几个

①新建7个label，1个textbox，两个command，1个list控件，并如图设置好。

②输入代码：

Private Sub Command1_Click()

If Val(Text1.Text) <= 100 Then

List1.AddItem Val(Text1.Text)

End If

Dim i%

Label5.Caption = ""

Label6.Caption = ""

Label7.Caption = ""

For i = 0 To List1.ListCount - 1 Step 1

Select Case Val(List1.List(i))

Case 90 To 100

Label5.Caption = Val(Label5.Caption) + 1

Case 60 To 89

Label6.Caption = Val(Label6.Caption) + 1

Case 0 To 59

Label7.Caption = Val(Label7.Caption) + 1

End Select

Next i

End Sub

Private Sub Command2_Click()

List1.RemoveItem (List1.ListIndex)

Dim i%

Label5.Caption = ""

Label6.Caption = ""

Label7.Caption = ""

For i = 0 To List1.ListCount - 1 Step 1

Select Case Val(List1.List(i))

Case 90 To 100

Label5.Caption = Val(Label5.Caption) + 1

Case 60 To 89

Label6.Caption = Val(Label6.Caption) + 1

Case 0 To 59

Label7.Caption = Val(Label7.Caption) + 1

End Select

Next i

End Sub

③点击运行，我们可以看到效果。

视频加载中...