《第7章VisualBasic控制结构.PPT》由会员分享，可在线阅读，更多相关《第7章VisualBasic控制结构.PPT（24页珍藏版）》请在三一办公上搜索。
1、第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
2、=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语句(多行结构条件语句，块后要加En
3、dIf),例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.3
4、Weight=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函数,实现一些简单的
5、条件判断分支结构，格式：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后的语
6、句。如果所有的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 不合格,成
7、绩分等 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 多
8、分枝控制结构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,本例的特点是数据项之
9、间相差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&位同学
10、的成绩,求平均分)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循环控制结构DoLoo
11、p循环,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循环控制结构DoL
12、oop循环,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 Da
13、ta=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
14、：终止一个过程；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语句不符合结构化程序设计的要求，所以不提倡使用。,
