VB学习资料(8)

VB入门必备,初学者也能看懂,这篇主要是VB入门基础,但却对你深入学习理解VB有很大的帮助,10个财富值,你不亏。

4.Select Case语句 用于实现多分支结构。 Select Case 测试表达式 Case 条件1 语句块1 Case 条件2 语句块2 Case Else

语句块n+1 End Select 功能：

从多个条件中选择执行第一个符合条件的语句，都不符合， 则执行Case Else后的语句块。 注意条件：

常量表： 1，3，5

测试范围：10 to 20,“a” to “z” 比较范围：Is < 10 (不能为逻辑表达式) 【例】学生成绩评定

Private Sub Command1_Click()

x = Val(InputBox("输入考试成绩")) Select Case x Case 90 To 100 y$ = "优" Case 80 To 89 y$ = "良" Case 70 To 79 y$ = "中" Case 60 To 69 y$ = "及格" Case 0 To 59 y$ = "不及格" Case Else

y$ = "输入错误" End Select

Form1.Print "成绩:"; x, "等级:"; y$

End Sub

循环结构