文档详情

2.3_程序选择结构.ppt

发布:2017-05-30约7.08千字共43页下载文档
文本预览下载声明
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
显示全部
相似文档