第7章VisualBasic控制结构.PPT
第7章 Visual Basic控制结构,教学内容：1、一般控制结构2、选择控制结构3、循环控制结构,1)单行结构条件语句2)块结构条件语句3)IIF函数4)Select case,1)For循环控制结构 2)while控制结构 3)Do循环控制结构 4)多重循环 5)Goto型控制,7.1 选择控制结构If条件语句,1.If Then（单行结构条件语句）其中，是一个条件表达式或逻辑表达式 例如，If Data=90 Then Print“优秀”,例7.1输入一个数，如果是3的倍数则通过消息框输出。Private Sub Form_Click()Dim Data As Integer Data=InputBox(请输入一个值：)If Data Mod 3=0 Then MsgBox Data End Sub示例 例1单行if语句.vbp,2.If Then Else（单行结构条件语句,没有EndIf）例如，Dim Data As Integer Data=InputBox(“请输入成绩：)If Data=90 Then Print“优秀”Else Print“合格”If Data 90 Then Print 合格 Else Print 优秀“Print 计算完毕,7.1 选择控制结构If条件语句,示例：例2完全的if单行语句.vbp,3.块状If语句(多行结构条件语句，块后要加EndIf),例7.2 示例 例3简化的块结构条件语句.vbpA=InputBox(“A值”):B=InputBox(B值)Print A,B If A B Then T=A:A=B:B=T End If Print A,B,7.1 选择控制结构If条件语句,4.If语句嵌套 If语句嵌套使用可形成多分支的条件语句结构 If Then ElseIf Then Else End If示例：例4嵌套的条件语句.vbp 例5复杂嵌套的条件语句.vbp,说明：ElseIf之间不要加空格。Else和位于其上方的最近的If配对,If Then Else End If,7.1 选择控制结构If条件语句,例7.3Weight=InputBox(输入西瓜重量：,计算西瓜款)If Weight 4 Then Price=1ElseIf Weight=7 Then Price=1.3Else Price=1.1End IfMoney=Price*WeightMsgBox“西瓜重”&Weight&“公斤，单价”&_ Price&元，应收瓜款&Money&_ 元,计算西瓜款,4公斤以下：1.00元/公斤4至7公斤：1.3元/公斤超过7公斤：1.1元/公斤 If Weight=4 And Price 7 Then Price=1.1,7.1 选择控制结构If条件语句,7.1 选择控制结构IIf函数,实现一些简单的条件判断分支结构，格式：Result=IIf(条件，条件为真时的值，条件为假时的值)功能：对条件进行测试，若条件成立(为真值)，则取第一个值(即“条件为真时的值”)，否则取第二个值(即“条件为假时的值”)。例如，将a、b中的小数，放入Min变量中：Min=IIf(ab，a，b),7.2 多分枝控制结构Select Case选择语句,语法格式：Select Case Case Case Case Else End Select功能：根据测试表达式的值，决定程序的流向。,值的类型是数值型、字符串型、日期型等，一旦与某个Case后的值相等，则执行这个Case中的，完成后执行End Select后的语句。如果所有的Case后的都不与项匹配，则执行Case Else后的。,case（详见P143）表达式可以是下列形式：1、Case 32、case 2,3,4,5,6,7,83、case 2 to 8（必须小的在前面，大的在后面）4、case Is 2（必须为单一的逻辑运算，不能使用and or等复合）5)可以采用上述几种的混合形式，相互之间用”,”号隔开示例：例7多分支结构.vbp,7.2 多分枝控制结构Select Case选择语句,例7.6 学生成绩分等 Data=InputBox(请输入一个成绩,成绩分等)Select Case data Case Is 60 MsgBox 不合格,成绩分等 Case 60 To 79 MsgBox 合格 Case 80 To 100 MsgBox 优秀 Case Else MsgBox 成绩有问题 End Select,7.2 多分枝控制结构Select Case选择语句,例7.7 测试输入的字符 Char=InputBox(请输入一个字符,测试)Select Case Char Case 0 To 9 MsgBox 字符是数字,测试 Case a To z MsgBox 字符是小写字母,测试 Case A To Z MsgBox 字符是大写字母,测试 Case Else MsgBox 字符是其它符号,测试End Select,7.2 多分枝控制结构Select Case选择语句,7.3 For循环控制结构ForNext循环,ForNext循环一般应用于循环次数已知的场合 For=初值 To 终值 Step 步长 语句块（循环体）Exit For Next 循环变量 工作原理：,Step缺省为 1,例7.8 求1+3+5+7+99Private Sub Form_Click()Dim Sum As Integer,I As Integer Sum=0 保存累加和，先清零 For I=1 To 99 Step 2 Sum=Sum+I Next I MsgBox 1+3+5+99=&Sum,求和End Sub,本例的特点是数据项之间相差2，即Step的值为2,思考：例中当输出对话框出现时，I 的值是多少？如果省略Step 2，程序的结果如何？For语句能不能改写成For I=99 To 1 Step-2？,7.3 For循环控制结构ForNext循环,例7.9 求平均成绩 Const N=10 学生人数Private Sub Form_Click()Dim Sum As Integer,I As Integer Dim Data As Integer,Average As Single Sum=0 存放累加值的变量清零 For I=1 To N 循环40次，步长值为1省略 Data=InputBox(输入第&I&位同学的成绩,求平均分)Sum=Sum+Data Next I Average=Sum/N MsgBox 全班&N&名学生的平均分为&Average,求平均分End Sub,7.3 For循环控制结构ForNext循环,7.4 当循环控制结构WhileWend循环,当型循环While 循环体Wend,先判断后执行,特点：条件表达式成立执行循环体内容,1到100之间的数值求和;Dim I as integerDim sum as integerI=0Sum=0While I=100 Sum=sum+I I=I+1wend,7.4 当循环控制结构WhileWend循环,7.5 Do循环控制结构DoLoop循环,1.当型循环,先判断后执行,先执行后判断,特点：条件表达式成立执行循环体内容,Private Sub Form_Click()dim I as integer Dim sum as integer I=1;Sum=0 Do while i=100 sum=sum+II=I+1 loopEnd Sub,例7.12 1到100以内的求和,Private Sub Form_Click()dim I as integer Dim sum as integer I=1;Sum=0 Do sum=sum+I loop while i=100 I=I+1End Sub,7.5 Do循环控制结构DoLoop循环,2.直到型循环,特点：条件表达式不成立执行循环体内容,7.5 Do循环控制结构DoLoop循环,例7.14计算平均分 Private Sub Form_Click()Dim Data As Integer,Sum As Integer,N As Integer Sum=0:N=0 Data=InputBox(输入成绩,计算总分)Do Until Data=-1 Sum=Sum+Data N=N+1 Data=InputBox(输入数据,计算总分)Loop Print 全班平均分为:;Sum/NEnd Sub,Do While Data-1 Sum=Sum+Data N=N+1 Data=InputBox(输入数据,计算总分)Loop,7.5 Do循环控制结构DoLoop循环,7.7 其他语句Exit与End,1.Exit语句Exit Do：跳出DoLoop循环Exit For：跳出ForNext循环例7.20 判断一个正整数是否为素数(质数)N=InputBox(请输入一个正整数,验证素数)For I=2 To N-1 If N Mod I=0 Then Exit For End If Next I If I=N Then MsgBox N&是素数,验证素数 Else MsgBox N&不是素数,验证素数 End If,2.End语句End：终止程序的运行End Sub：终止一个过程；End Function：终止函数过程End If：终止条件语句End Type：终止类型声明End Select：终止情况语句End Property：终止属性过程End With：终止With语句,例如：Private Sub Command1_Click()EndEnd Sub,7.7 其他语句Exit与End,7.7 其他语句Goto,功能：无条件转向格式：Goto label称为语句标号(数字或标识符)例7.22 求若干个同学的成绩总分 Private Sub Form_Click()Dim Data,Sum As Integer Sum=0 loop1:Data=InputBox(输入成绩)If Data=-1 Then GoTo loop2 Else Sum=Sum+Data GoTo loop1 End If loop2:Print 总分=;Sum End Sub,Goto语句不符合结构化程序设计的要求，所以不提倡使用。,
