32vb三种程序结构visualbasic语言作为结构化程序设计语(编辑修改稿)

32vb三种程序结构visualbasic语言作为结构化程序设计语(编辑修改稿)内容摘要：

条件表达式的值为“真”时，则执行 Then后面的语句或语句块；否则不执行任何操作。 说明： 语句块可以是一条或多条语句。 如果使用格式 1的简单形式表示 ， 则只能是一条语句；或用冒号隔开的多条语句 ， 但这些语句必须书写在一行上。 If...Then 的单行格式不用 End If 语句。 Dim x As Integer Private Sub Command1_Click() x = 90 If x 0 Then MsgBox 正数 : Print x=90 End Sub Private Sub Command2_Click() x = 90 If x 0 Then MsgBox 正数 Print x=90 End If End Sub 【 例 33】 任意输入 3个数，找出其中的最大值。 编写的窗体单击事件过程代码如下： Private Sub Form_Click() Dim a As Single, b As Single, c As Single, max As Single a = InputBox(请输入第一个数 , 输入框 ) b = InputBox(请输入第二个数 , 输入框 ) c = InputBox(请输入第三个数 , 输入框 ) max = a If b max Then max = b If c max Then max = c Print 三个数中最大的为： amp。 max End Sub 2. If…Then …Else 语句结构 （双分支结构） 格式 1： If 表达式 Then 语句块 1 Else 语句块 2 End If 格式 2： If 表达式 Then 语句 1 Else 语句 2 功能： 当表达式的值为非 0（ True）时 ,执行 Then后面的语句块 1，否则执行 Else后面的语句块 2。 F T 语句 (块 )1 语句 (块 )2 表达式 双分支结构 说明： 块结构的条件语句可以嵌套 ， 即把一个 If … Then … Else 块放在另一个 If … Then … Else 块内。 嵌套必须完全嵌套 ， 也就是内层条件语句必须完全包含在外层条件语句之中。 【 例 34】 火车站行李费的收费标准是 40kg以内（ 包括 40kg） /kg， 超过部分为 /kg。 编写程序 ， 根据输入的任意重量 ， 计算出应付的行李费。 根据题意计算公式如下： Pay=Weight Weight≤ 40 (Weight40) +40 Weight40 编写的窗体单击事件过程代码如下： Private Sub Form_Click() Dim weight As Single, pay As Single weight = InputBox(请输入行李重量 , 输入框 ) If weight 40 Then pay = (weight 40) * + 40 * Else pay = weight * End If Print 行李重量 = amp。 weight Print 所付费用 = amp。 pay End Sub 3. If…Then …Else If 语句（多分支结构）结构 语句格式： If 〈 表达式 1 〉 Then 〈 语句块 1〉 ElseIf 〈 表达式 2〉 Then 〈 语句块 2〉 … … [Else 〈 语句块 n+1 ] End If F T T T …… 表达式 1 表达式 2 表达式nn 语句块 1 语句块 2 语句块 nn 语句块 n+11 F… 图 多分支结构 说明： ① 不管有几个分支 ， 程序执行了一个分支后 ， 其余分支不再执行。 ② ElseIf子句的数量没有限制 ， 可以根据需要使用任意多个 ElseIf子句。 例： 【 例 36】 输入一个学生的成绩 score， 根据其所在分数段给出他的考试等级。 分数段划分规则是： 90score=100为 “ 优秀 ” ， 80score=90为“ 良好 ” ， 70score=80为 “ 中等 ” ， 60=score=70为 “ 及格 ” ，score60为 “ 不及 格 ” ， score100为 “ 输入错误 ”。 Private Sub Form_Click() Dim score As Single score = InputBox(请输入学生的成绩 score。 ) If score 60 Then Print 不及格 ElseIf score 70 Then Print 及格 ElseIf score 80 Then Print 中等 ElseIf score 90 Then Print 良好 ElseIf score = 100 Then Print 优秀 Else Print 输入错误 End If End Sub 4 . If 语句的嵌套 If 语句的嵌套是指 if或 else语句后面的语句块中又包含 if语句。 语句形式为： If 表达式 1 then if 表达式 11 then …… endif …… endif 【 例 35】 输入系数 a， b和 c，求二次方程 ax2+bx+c = 0的实根。 Private Sub Form_Click() Dim a!, b!, c!, d!, x1!, x2!, x a = InputBox(请输入系数 a:) b = InputBox(请输入系数 b:) c = InputBox(请输入系数 c:) d = b * b 4 * a * c If d 0 Then x1 = (b + Sqr(d)) / (2 * a) x2 = (b Sqr(d)) / (2 * a) Print x1=。 x1, x2=。 x2 Else If d = 0 Then x = b / (2 * a): Print x=。 x Else Print 此方程无实根 End If End If End Sub Private Sub Form_Click() Dim score As Single sco。