第三章 控制语句与程序调试.pptVIP

第3章 控制语句与程序调试 学习目标： 掌握If 条件语句和Select Case选择语句 掌握For…Next和Do…Loop循环语句 掌握两重循环，了解多重循环 了解Exit、End语句 掌握程序的简单调试方法 第3章 控制语句与程序调试 教学内容： 3.1 选择结构与相关语句 3.2 循环语句 3.3 其它语句 3.4 程序调试 3.1 选择结构 选择结构：当设定条件成立时执行某些语句，条件不成立时则跳过这些语句或执行其它的语句。 选择结构中要使用选择语句，有两路分支和多路分支两种情况 ，对应的选择语句有If语句(两路出口)和Select Case语句(多路出口)。 3.1 选择结构－If条件语句 1. If 表达式 Then 语句 其中，表达式是一个条件表达式或逻辑表达式 例如，If Data=90 Then Print “优秀” [例3.1]输入一个数，如果是3的 倍数则通过消息框输出。 Private Sub Form_Click() Dim Data As Integer Data = InputBox(请输入一个值：) If Data Mod 3 = 0 Then MsgBox Data End Sub 3.1 选择结构－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 优秀 3.1 选择结构－If条件语句 3.1 选择结构－If条件语句 3.1 选择结构－If条件语句 3.1 选择结构－Select Case选择语句 3.1 选择结构－Select Case选择语句 3.2 循环语句 3.2 循环语句－For…Next循环 3.2 循环语句－For…Next循环 3.2 循环语句－For…Next循环 3.2 循环语句－Do…Loop循环 3.2 循环语句－Do…Loop循环 3.2 循环语句－Do…Loop循环 3.2 循环语句－Do…Loop循环 3.3 其他语句－Exit与End 3.3 其他语句－Exit与End 3.4 程序调试－程序的错误类型 3.4 程序调试－简单调试 3.4 程序调试－使用调试工具 3.4 程序调试－使用调试工具 * * 返回目录 返回目录 Data是3的倍数 Data=90? 输出“优秀” Yes No Data=90? 输出“优秀” Yes No 输出“合格” 输出“计算完毕” 返回目录 3. 块状If语句 返回目录 If 条件表达式 Then 语句块1 Else 语句块2 End If If 条件表达式 Then 语句块 End If [例3.2] 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 返回目录 说明： ElseIf之间不要加空格。 Else和位于其上方的最近的If配对 [例3.3] Weight = InputBox(输入西瓜重量：, 计算西瓜款) If Weight 4 Then Price = 1 ElseIf Weight = 7 Then Price = 1.3 Else Price = 1.1 End If Money = Price * Weight MsgBox “西瓜重” Weight “公斤，单价” _ Pric