- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VB程序设计 习题及答案第4章 选择结构程序设计
第4章 选择结构程序设计
?
4.1 写出数学式|x|2.5×10-2对应的Visual Basic表达式。
【答案】
x2.5e-2 and x-2.5e-2
?
4.2 逻辑运算符And、Or和Not的优先级最高的是哪一个。
【答案】
Not
?
4.3 已知 W=10 X=9 Y=8 Z=7 ,求下列表达式的结果。
(1) WX And Y=Z OR XY
(2) XZ Or W=Y AND YX
(3) Not (WY And X=Z)
(4) Not (YX Or W*3Z)
【答案】
(1) True
(2) True
(3) True
(4) False
?
4.4 写出下列十进制整数逻辑运算的结果:
(1) X = 23 And 14
(2) X = 23 Or 14
(3) X = -1 And 19
(4) X = -1 Or 10
(5) X = Not -1
【答案】
(1) 6
(2) 31
(3) 19
(4) -1
(5) 0
?
4.5 已知变量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=; y
End Sub
?
Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.Print x = 5, y = 6
Form1.Print 单击窗体交换x,y的值
End Sub
程序运行结果如图4-1所示:
?
4.6 从键盘输入一个学生的三科成绩,计算总分,并找出最高分。
【参考答案】
(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 = g
End Sub
程序运行结果如图4-2所示。
?
4.7 空调机基本单价为2500元。购买空调机的价格随季节而异。冬季购买,优惠15%,春、秋季购买,优惠8%,夏季购买,不优惠。编写一个程序,打印出顾客随季节购买空调机的单价,数量和总价。数据由键盘输入。
【参考答案】
(1)用户界面设计
参见运行结果
(2)控件属性设置
设置控件属性值如表3-3所示。
表3-3 控件属性设置
对象 属性 属性值 说明 Label1 Caption 空调单价2500 标签的内容 Label2 Caption 数量 标签的内容 Label3 Caption ? 标签的内容 Label4 Caption ? 标签的内容 Label5 Caption ? 标签的内容 Option1 Caption 春季 单选按钮的内容 Value True 单选按钮被选定 Option2 Caption 夏季 单选按钮的内容 Option3 Caption 秋季 单选按钮的内容 Option4 Caption 冬季 单选按钮的内容 Text1 Text ? 文本框的内容 Command1 Caption 计算 命令按钮的标题 Frame1 Caption 购买季节 框架的标题 ?
(3)程序代码设计
Private Sub Command1_Click()
num = Val(Text1.Text)
If Option1.Value = True Or Option3.Value = True Then
price = 2500 * 0.92
Label3.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)