《VB程序设计 习题及答案第4章 选择结构程序设计.doc》由会员分享，可在线阅读，更多相关《VB程序设计 习题及答案第4章 选择结构程序设计.doc（6页珍藏版）》请在三一文库上搜索。
1、第4章 选择结构程序设计41 写出数学式|x|2.510-2对应的Visual Basic表达式。【答案】 x-2.5e-242 逻辑运算符And、Or和Not的优先级最高的是哪一个。【答案】Not43 已知 W=10 X=9 Y=8 Z=7 ，求下列表达式的结果。 (1) WX And YY (2) XZ Or W=Y AND YY And X=Z)(4) Not (YX Or W*3Z)【答案】(1) True (2) True (3) True(4) False44 写出下列十进制整数逻辑运算的结果： (1) X = 23 And 14 (2) X = 23 Or 14 (3) X =
2、-1 And 19 (4) X = -1 Or 10(5) X = Not -1【答案】(1) 6 (2) 31 (3) 19 (4) -1(5) 045 已知变量X和Y的值分别为5、6，编写程序，交换变量X和Y的值。【参考答案】程序代码设计Private Sub Form_Click() x = 5: y = 6 t = x: x = y: y = t Form1.Print x=; x, y=; yEnd SubPrivate Sub Form_Load() Form1.AutoRedraw = True Form1.Print x = 5, y = 6 Form1.Print 单击窗体交
3、换x,y的值图4-1 程序运行结果End Sub程序运行结果如图4-1所示：46 从键盘输入一个学生的三科成绩，计算总分，并找出最高分。【参考答案】（1）用户界面设计（2）控件属性设置（略）（3）程序代码设计Private Sub Command1_Click() g1 = Val(Text1.Text) g2 = Val(Text2.Text) g3 = Val(Text3.Text) Var = (g1 + g2 + g3) / 3 g = g1 If g g2 Then g = g2 If g g3 Then g = g3 Text4.Text = Var Text5.Text = gE
4、nd Sub图4-2 程序运行结果程序运行结果如图4-2所示。47 空调机基本单价为2500元。购买空调机的价格随季节而异。冬季购买，优惠15，春、秋季购买，优惠8，夏季购买，不优惠。编写一个程序，打印出顾客随季节购买空调机的单价，数量和总价。数据由键盘输入。【参考答案】（1）用户界面设计参见运行结果（2）控件属性设置设置控件属性值如表3-3所示。表3-3 控件属性设置对象属性属性值说明Label1Caption空调单价2500标签的内容Label2Caption数量标签的内容Label3Caption标签的内容Label4Caption标签的内容Label5Caption标签的内容Optio
5、n1Caption春季单选按钮的内容ValueTrue单选按钮被选定Option2Caption夏季单选按钮的内容Option3Caption秋季单选按钮的内容Option4Caption冬季单选按钮的内容Text1Text文本框的内容Command1Caption计算命令按钮的标题Frame1Caption购买季节框架的标题（3）程序代码设计Private Sub Command1_Click() num = Val(Text1.Text) If Option1.Value = True Or Option3.Value = True Then price = 2500 * 0.92 Lab
6、el3.Caption = 优惠 8% Str1$ = 价格 & price Label4.Caption = Str1$ cost = num * price Str2$ = 总价 & cost Label5.Caption = Str2$ End If If Option2.Value = True Then price = 2500 Label3.Caption = 优惠 0 Str1$ = 价格 & price Label4.Caption = Str1$ cost = num * price Str2$ = 总价 & cost Label5.Caption = Str2$ End I
7、fIf Option4.Value = True Then price = 2500 * 0.85 Label3.Caption = 优惠 15% Str1$ = 价格 & price Label4.Caption = Str1$ cost = num * price Str2$ = 总价 & cost Label5.Caption = Str2$ End IfEnd Sub程序运行结果如图4-3所示。图4-3 程序运行结果48 利用InputBox函数输入三角形三条边A，B，C，求三角形的面积。(程序中应考虑A，B，C三条边能否构成三角形)。【参考答案】程序代码设计Private Sub F
8、orm_Click() x = Val(InputBox(输入第一条边长) y = Val(InputBox(输入第二条边长) z = Val(InputBox(输入第三条边长) Form1.Print 输入的三条边为; x; y; z If x + y = z Or y + z = x Or z + x = y Then Form1.Print 不能构成三角形 Else l = (x + y + z) / 2 s = Sqr(l * (l - x) * (l - y) * (l - z) Form1.Print 三角形面积为; s End IfEnd Sub图4-4 程序运行结果Privat
9、e Sub Form_Load() Form1.AutoRedraw = True Form1.Print 计算三角形面积 Form1.Print 单击窗体开始输入三角形的三条边End Sub程序运行结果如图4-4所示：49 商店在出售某一件商品时，假设单价是12.5元，如果一次购买数量在1099之间，按9.8折出售；购买数量在100199之间，按9.5折出售；购买数量在200件以上，按9.0折出售。编写程序，从键盘输入购买数量时，计算出货款。【参考答案】图4-5 程序运行结果（1）用户界面设计（2）控件属性设置（略）（3）程序代码设计Private Sub Command1_Click() price = 12.5 num = Val(Text1.Text) Select Case num Case Is 10 r = 1 Case Is 100 r = 0.98 Case Is = 18 And age = 1.65 Then Label4.Caption = 合格 Else Label4.Caption = 不合格 End If Else If age = 16 And age = 1.6 Then Label4.Caption = 合格 Else Label4.Caption = 不合格 End If End IfEnd Sub程序运行结果如图4-6所示：