Visual Basic第4章 Visual_Basic程序控制.pptVIP

4.3 选择结构程序设计 4.3.2 多路分支结构 格式： If 条件 1 Then 语句组 1 ElseIf 条件 2 Then 语句组 2 ElseIf 条件 3 Then 语句组 3 ... [Else [语句组 N+1] End If 功能：多个分支中选择一支执行。 注：若有 2 个或者 2 个以上的条件均被满足，只执行第一个下的语句序列。 例4.9 多路分支If语句示例。输入一个百分制成绩，输出成绩的等级。90分以上为A等，80~89为B等，70~79为C等，60~69为D等，60分以下为E等。 程序代码参见教材 4.3 选择结构程序设计 4.3 选择结构程序设计 4.3.3 情况测试Select Case语句 格式： Selete Case 测试表达式 Case 测试值 1 语句组 1 Case 测试值 2 语句组 2 …… 　　 Case 测试值 n 语句组 n [Else Case 语句组 n+1] End Select 4.3 选择结构程序设计 说明： （1）“测试表达式”可以是数值表达式或字符串表达式。 “ 测试值” 必须与测试表达式的类型相同。当测试表达式的值与某个测试值相同时，执行该Case分支的语句。 （2）该语句与多路选择语句相似，对多个能满足的值，只执行第一个Case下面的语句序列。 （3）“测试值”的形式有下面 3 种： ①常量 1[ ，常量 2] 表示某些值 ②常量 1 To 常量 2 表示范围 ③Is 表达式 IS代表测试表达式 例4.10 情况测试语句Select Case的应用示例。用Select Case语句编程解决例4.9中的成绩分段问题。 4.3 选择结构程序设计 Private Sub Command1_Click() Dim score As Integer score = Val(InputBox(输入(0～100))) If score 0 Or score 100 Then MsgBox (数据错！) End If Select Case score Case Is = 90 Print 成绩为A等“ Case 80 to 89 Print 成绩为B等 Case 70 to 79 Print 成绩为C等 Case 60 to 69 Print 成绩为D等 Case Else Print 成绩为E等 End Select End Sub 4.3 选择结构程序设计 4.3.4 IIf 函数与选择函数 1） Iif 函数 格式： IIf （条件表达式，值 1 ，值 2 ） 功能：由条件表达式的值是否被满足来决定返回值 1 还是返回值 2 。 用法： 变量名 =IIf（条件表达式，值1，值2） 若条件成立，将值 1 赋给变量，条件不成立，将值 2 赋给变量。 4.3 选择结构程序设计 例 4.13 IIf 函数的应用示例。从键盘上输入 1 个数，判断这个数是奇数还是偶数。 程序代码如下： Private Sub Command1_Click() Dim X As Integer, Y As String X = InputBox(输入1个正整数) Y = IIf(X Mod 2, 偶数, 奇数) Print X; 是; Y End Sub 4.3 选择结构程序设计 2）Choose函数 格式： Choose(表达式，选项1[,选项2,... [,选项n]]) 功能：根据索引表达式的值，从可选项目列表中选择并返回一个值。 用法： 变量名 =Choose(表达式，选项 1 ，选项 2 ，…) 若表达式的值为 1 ，将选项 1 的值赋给变量，若为 2 ，将选项 2 的值赋给变量…。 4.3 选择结构程序设计 例 4.14 Choose函数的应用示例。输入一个同学的两门成绩，显示该同学的平均成绩及等级。 Private Sub Command1_Click() Dim S1 As Integer, S2 As Integer, X As Integer, S As Single, Y As String S1 = Val(InputBox(输入语文成绩)) S2 = Val(InputBox(输入算术成绩)) S = Int((S1 + S2) / 2 * 10 + 0.5) /