vb幻灯片第四章-基本控制结构.pptVIP

程序代码如下： 鉴定按钮代码 Private Sub Command1_Click（） Dim score! score = val(Text1.Text) If score = 90 Then Text2.Text = 优秀 ElseIf score = 80 Then Text2.Text = 良好 ElseIf score = 70 Then Text2.Text = 中 ElseIf score = 60 Then Text2.Text = 及格 Else Text2.Text = 不及格 End If End Sub ElseIf语句，实际完成的是块If的嵌套，它和块If嵌套的格式上有很大区别，ElseIf结构只有一对If和End If语句。另外应注意： 【Else If】 和【ElseIf】的区别。 四、行If语句 格式：If 条件 then 语句1 [Else 语句2] 功能：当条件满足时，执行语句1；条件不满足 时，执行语句2。 从行If的格式和功能不难看出，行If语句是一种简单的分支结构，只是把一个简单的块If结构写在一行中，减少了语句行，省略了“End If”的书写。行If完全可以用块If代替。 【例4.4】任意输入3个数，找出其中的最大值。 程序代码如下： Private Sub Command1_Click（） Dim a As Single，b As Single，c As Single， max As Single a = val(Text1.Text) b = val(Text2.Text) c = val(Text3.Text) max = a If b max Then max = b If c max Then max = c Text4.Text = max End Sub 五、Select Case语句 当对一个表达式的不同取值情况作不同处理时，用ElseIf语句程序结构显得较为杂乱，而用Select Case语句将使程序的结构更清晰，Select Case语句又称为情况语句。 格式： Select Case 测试表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … Case 表达式列表n 语句块n [Case Else 语句块n+1] End Select 功能：根据“测试表达式”的值，选择第一个符合 条件的语句块执行。 执行过程是： 先求“测试表达式”的值，然后顺序测试该值符合哪一个Case子句中情况，如果找到了，则执行该Case子句下面的语句块，然后执行End Select下面的语句；如果没找到，则执行Case Else下面的语句块，然后执行End Select下面的语句。 说明： ? “测试表达式”可以是数值型或字符串型表达式； ? “表达式列表”形式有以下3种： （1）一个表达式或用逗号隔开的若干表达式 （2）表达式1 To 表达式2 （3）Is 关系运算符 表达式 p84 【例4.5】把例4.3中 “鉴定”按钮的代码用Select Case语句改写。 Private Sub Command1_Click（） Dim score! score = Text1.Text Select Case score Case