当前位置:首页 » VB程序题 » 正文

VB程序题:在购买某物品时,若所标明的价钱X在下述范围内,所付钱y按对应的折扣支付:

VB程序题:在购买某物品时,若所标明的价钱X在下述范围内,所付钱y按对应的折扣支付:

 

提示:此例用多分支结构实现,注意计算公式和条件表达的正确书写。

解题:

先在窗体上画一个按钮,代码如下:

Private Sub Command1_Click()
    shu = InputBox("请输入商品的价格(正实数):", "输入")
    If IsNumeric(shu) = False Then
        MsgBox "你输入的数值是:" & shu & " 含有非法数值的字符。"
    ElseIf shu < 0 Then
        MsgBox "你输入的数值是:" & shu & " 请输入一个正实数。"
    Else
        Cls
        Select Case shu
          Case Val(shu) < 1000
            Print "请付款:" & Format(Val(shu), "0.00")
          Case Val(shu) < 2000 And Val(shu) >= 1000
            Print "请付款:" & Format(Val(shu) * 0.9, "0.00")
          Case Val(shu) < 3000 And Val(shu) >= 2000
            Print "请付款:" & Format(Val(shu) * 0.8, "0.00")
          Case Val(shu) >= 3000
            Print "请付款:" & Format(Val(shu) * 0.7, "0.00")
        End Select
    End If
End Sub

 

运行程序,输入1234.567,输出是:请付款:1111.11     (金额保留2位小数)

程序运行效果图如下:

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码 

 

打赏 支付宝打赏 微信打赏

来源:济亨网

本文链接:https://wb98.com/post/63.html

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号