近年来网络技术的迅猛发展,网络购物已经成为当下最热门的购物渠道。小明同学在网购平台上看中了五双运动鞋,想在这五双中选择一双购买(原价和折扣详见商品折扣表)。但是小明的预算是不超过200元,更省钱最好,请你为小明设计一款软件,选择购买哪一双运动鞋最实惠。
商品折扣表:
商品名称 | 原价 | 折扣力度 |
篮球鞋001 | 488元 | 4折 |
篮球鞋002 | 458元 | 5折 |
跑步鞋001 | 398元 | 5折 |
跑步鞋002 | 358元 | 6折 |
徒步鞋001 | 339元 | 6折 |
①新建一个VB工程,完成“折扣商品计算器”程序的设计。将工程文件以sale.vbp、窗体文件以sale.frm保存到考试目录“操作题”下;
②窗体的标题为“折扣商品计算器”;窗体的左边有三个标签,Label1的属性为“商品原价a:”、Label2的属性为“折扣力度b:”、Label3的属性为“折后价格c:”;它们的旁边分别有三个文本框,Text1用于商品原价、Text2用于输入折扣力度、Text3用于输出折后价格;在文本框的右边有三个标签,Label4的属性为“元”、Label5的属性为“折”、Label6的属性为“元”;
③单击“计算”按钮(Command1),根据计算公式将相应的提示信息显示在标签Text3中;
计算公式为:折后价格=商品原价*折扣力度;如果折后价格不高于200元,MsgBox函数提示“可以购买!”;如果折后价格高于200元,MsgBox函数提示“对不起!买不起,请您放弃!”。请编程实现。
④结论:最适合小明的运动鞋是什么。请填写商品名称。
【考点】使用扩充控件.
【答案】写法1:
Private SubCommand1_Click( )
Dima As Single,b As Single,c As Single
a=Val(Text1.Text)
b=Val(Text2.Text)
c=a*b/10
Text3.Text=Str(c)
Ifc<=200 Then
MsgBox (“可以购买!“)
Else
MsgBox (“对不起!买不起,请您放弃!“)
EndIf
End Sub
写法2:
Private SubCommand1_Click( )
Dima As Single,b As Single,c As Single
a=Val(Text1.Text)
b=Val(Text2.Text)
c=a*b/10
Text3.Text=Str(c)
If c>200 Then
MsgBox (“对不起!买不起,请您放弃!“)
Else
MsgBox (“可以购买!“)
EndIf
End Sub
得到结论为:最适合小明的运动鞋篮球鞋001,因为该款鞋原价高,打折幅度大,而且不超预算。
Private SubCommand1_Click( )
Dima As Single,b As Single,c As Single
a=Val(Text1.Text)
b=Val(Text2.Text)
c=a*b/10
Text3.Text=Str(c)
Ifc<=200 Then
MsgBox (“可以购买!“)
Else
MsgBox (“对不起!买不起,请您放弃!“)
EndIf
End Sub
写法2:
Private SubCommand1_Click( )
Dima As Single,b As Single,c As Single
a=Val(Text1.Text)
b=Val(Text2.Text)
c=a*b/10
Text3.Text=Str(c)
If c>200 Then
MsgBox (“对不起!买不起,请您放弃!“)
Else
MsgBox (“可以购买!“)
EndIf
End Sub
得到结论为:最适合小明的运动鞋篮球鞋001,因为该款鞋原价高,打折幅度大,而且不超预算。
【解答】
【点评】
声明:本试题解析著作权属菁优网所有,未经书面同意,不得复制发布。
发布:2024/5/3 8:0:9组卷:2引用:1难度:0.6
相似题
-
1.看图回答下列小题:
(1)图中共有几个对象(控件)
A.1
B.2
C.3
D.4
(2)图中的气球属于下列哪种控件
A.按钮
B.文件框
C.标签框
D.图片
(3)如果把窗体的标题“彩球”改为“彩球飘扬”,则需要设置的窗体属性是
A.Name
B.Caption
C.BackColor
D.Font发布:2024/12/28 19:0:1组卷:1引用:2难度:0.7 -
2.在VB中,TextBox控件可以提供用户输入或者显示文本,又称为( )
发布:2024/11/26 1:30:1组卷:5引用:2难度:0.6 -
3.小华想修改VB窗体的标题栏的文字为“我的程序一”,那他只需要修改窗体的( )属性即可。
发布:2024/12/11 8:30:1组卷:1引用:2难度:0.8