试卷征集
加入会员
操作视频

近年来网络技术的迅猛发展,网络购物已经成为当下最热门的购物渠道。小明同学在网购平台上看中了五双运动鞋,想在这五双中选择一双购买(原价和折扣详见商品折扣表)。但是小明的预算是不超过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,因为该款鞋原价高,打折幅度大,而且不超预算。
【解答】
【点评】
声明:本试题解析著作权属菁优网所有,未经书面同意,不得复制发布。
发布: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
深圳市菁优智慧教育股份有限公司
粤ICP备10006842号公网安备44030502001846号
©2010-2025 jyeoo.com 版权所有
APP开发者:深圳市菁优智慧教育股份有限公司| 应用名称:菁优网 | 应用版本:5.0.7 |隐私协议|第三方SDK|用户服务条款
广播电视节目制作经营许可证|出版物经营许可证|网站地图
本网部分资源来源于会员上传,除本网组织的资源外,版权归原作者所有,如有侵犯版权,请立刻和本网联系并提供证据,本网将在三个工作日内改正