2.3程序的选择结构.pptVIP

1.表达式4+7-6+1 and 4=4运行的结果是： 2.有如下vb程序段： a=2 b=5 if ab then m=a else m=b 该程序运行后，变量m的值为： 点击会考： 在分支语句中，程序执行一个分支后，其余分支不再执行； 总结 If 表达式 Then 语句组 End If If 表达式 Then 语句组1 Else 语句组2 End If 单分支结构： 双分支结构： If 表达式1 then 语句组1 Else End if If 表达式2 then 语句组2 Else 语句组3 End if IF语句的嵌套： 点击会考： 在左边的文本框输入一个100以内的正整数（包括100不包括0），单击“判断”按钮， 在右边的文本框中显示是“奇数”还是“偶数”，输入大于100的整数则显示“输入 的整数不能超过100”。 x = 0 Or x 100 x Mod 2 End If 变量 = 对象.属性 对象名.属性名 = 属性值 练习： 1.输入三角形的三条边长，首先判断给出的三条边能否构成三角形（三角形的两边之和大于第三边），如可以，则计算并输出该三角形的面积；否则输出不能构成三角形。 Private Sub Command1_Click() Dim a, b, c, p, s As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) p = (a + b + c) / 2 If (a + b) = c Or (a + c) = b Or (b + c) = a Then Print 不能构成三角形 Else s = Sqr(p * (p - a) * (p - b) * (p - c)) Print 三角形的面积是 s End If End Sub 练习： 2.判断某年是否为闰年的方法是如果该年份的数值能被4整除但不能被100整除，或者能被400整除则该年份是闰年。 Private Sub Command1_Click() Dim i As Long i = Val(Text1.Text) If i Mod 4 = 0 And i Mod 100 0 Or i Mod 400 = 0 Then Label2.Caption = 该年是闰年！ Else Label2.Caption = 该年不是闰年！ End If End Sub 练习： 3.凡在商场消费满500元以上(含500元)，享受9折优惠；消费满1000元以上(含1000元)，享受8折优惠；消费在500元以下不优惠。输入消费金额，计算出实收金额。 Private Sub command1_click() Dim m As Single 消费金额 m = Val(Text1.Text) If m = 1000 Then Text2.Text = m * 0.8 Else If m = 500 And m 1000 Then Text2.Text = m * 0.9 Else Text2.Text = m End If End If End Sub 练习： 4.编写一元二次方程的求解程序，要求能够判断方程是否有根，如果没有根则给相应的提示信息。 编程序求解一元二次方程 开始 输入方程系数 Δ0? 输出”无实根” 求x1,x2的值 输出x1,x2的值 结束 否 是 Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, d As Single, x1 As Single, x2 As Single a = InputBox(a=, 输入一元二次方程的系数) b = InputBox(b=, 输入一元二次方程的系数) c = InputBox(c=, 输入一元二次方程的系数) d = b ^ 2 - 4 * a * c If d = 0 Then x1 = (-b + Sqr(d)) / (2 * a) x2 = (-b - Sqr(d)) / (2 * a) Print x1=; x1 Print x2=; x2 Else Print 方程无实根 End If End