今天学习了刘金玉老师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
③点击运行,我们可以看到效果。