可视化程序设计VB 理论二学习指导书.pptVIP

控制语句与程序调试 学习目标： 掌握If 条件语句和Select Case选择语句 掌握For…Next和Do…Loop循环语句 掌握两重循环，了解多重循环 了解Exit、End语句 掌握程序的简单调试方法 控制语句与程序调试 教学内容： 1 选择结构与相关语句 2 循环语句 3 其它语句 4 程序调试 选择结构－If条件语句 1. If 表达式 Then 语句 其中，表达式是一个条件表达式或逻辑表达式 例如，If Data=90 Then Print “优秀” [例]输入一个数，如果是3的 倍数则通过消息框输出。 Private Sub Form_Click() Dim Data As Integer Data = InputBox(请输入一个值：) If Data Mod 3 = 0 Then MsgBox Data End Sub 选择结构－If条件语句 2. If 表达式 Then 语句1 Else 语句2 例如，Dim Data As Integer Data = InputBox(“请输入成绩：) If Data = 90 Then Print “优秀” Else Print “合格” Print 计算完毕 上例的If 语句可以改写为： If Data 90 Then Print 合格 Else Print 优秀 选择结构－If条件语句 选择结构－If条件语句 选择结构－If条件语句 选择结构－If条件语句 选择结构－Select Case选择语句 说明: (1) 测试表达式，可以是任何数值或字符串表达式。 (2) “表达式列表”中的表达式类型必须和测试表达式的类型相同。 (3) Case后面的表达式列表，其形式可以为四种形式: 表达式 Case 13 表达式1 To表达式2 Case a To g Is关系运算表达式 Case Is 10 表达式1[,表示2]…… Case 2,4,6,8 Case 6 To 8,12, Is=4 选择结构－Select Case选择语句 3.1 选择结构－Select Case选择语句 循环语句 循环语句－For…Next循环 循环语句－For…Next循环 循环语句－For…Next循环 循环语句－Do…Loop循环 循环语句－Do…Loop循环 循环语句－Do…Loop循环 循环语句－Do…Loop循环 循环语句－while…wend循环 1. While循环结构语法格式： While 条件表达式 [ 语句组 ] Wend 循环语句－两重循环 循环语句－两重循环 循环语句－两重循环 循环语句－多重循环 其他语句－Exit与End 其他语句－Exit与End 程序调试－使用调试工具 程序调试－使用调试工具 * * Data是3的倍数 Data=90? 输出“优秀” Yes No Data=90? 输出“优秀” Yes No 输出“合格” 输出“计算完毕” 3. 块状If语句 If 条件表达式 Then 语句块1 Else 语句块2 End If If 条件表达式 Then 语句块 End If [例] A = InputBox(“A值”) : B = InputBox(B值) Print A, B If A B Then T = A : A = B : B = T End If Print A, B 4. If语句嵌套 If语句嵌套使用可形成多分支的条件语句结构 If 条件表达式1 Then 语句1 ElseIf 条件表达式2 Then 语句2 Else 语句3 End If 说明： El