第7章VisualBasic控制结构ppt课件.PPTVIP

* * If语句，只能执行其中一个语句块 * * * * * Typename返回变量名，vartype返回数值，代表不同的变量 * * 同时讲嵌套问题，遥感图像，数字高程模型 * * * * * * * 作业：采用所有的循环语句形式实现 1+ 3+ 5+7+………+99 * 素数：一个正整数N除了能被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 “优秀” Data=90? 输出“优秀” Yes No 例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 Data=90? 输出“优秀” Yes No 输出“合格” 输出“计算完毕” 2. If 表达式 Then 语句1 Else 语句2 （单行结构条件语句 ,没有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 If 条件表达式 Then 语句块 End If If 条件表达式 Then 语句块1 Else 语句块2 End If 3. 块状If语句 (多行结构条件语句，块后要加EndIf) [例7.2] 示例 例3简化的块结构条件语句.vbp A = 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 条件表达式1 Then 语句块1 ElseIf 条件表达式2 Then 语句块2 … Else 语句块3 End If 示例：例4嵌套的条件语句.vbp 例5复杂嵌套的条件语句.vbp 说明： ElseIf之间不要加空格。 Else和位于其上方的最近的If配对 If 条件表达式2 Then 语句块4 Else 语句块5 End If 7.1 选择控制结构－If条件语句 [例7.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 “公斤，单价” _ Price 元，应收瓜款 Money _ 元, , 计算西瓜款 4公斤以下：1.00元/公斤 4至7公斤： 1.3元/公斤 超过7公斤： 1.1元/公斤 If Weight 4 Then Price = 1 If Weight = 4 And Price = 7 Then Price = 1.3 If Weight 7 Then Price = 1.1 7.1 选择控制结构－If条件语句 7.1 选择控制结构－IIf函数 实现一些简单的条件判断分支结构，格式