何老师的济亨网

五笔打字通主页

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

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位小数）

程序运行效果图如下：