VB程序题：编一程序输入上网的时间并计算上网费用，计算的方法如下：

VB程序题：编一程序输入上网的时间并计算上网费用，计算的方法如下：

同时为了鼓励多上网，每月收费最多不超过150元。
提示：
首先利用多分支条件根据三个时间段算出费用，然后再用IF语句对超过150元的费用设置为150元。
 
解题：
先在窗体上画一个按钮，代码如下：
Private Sub Command1_Click()
    Dim x, y As Single
    shijian = InputBox("请输入上网的时间（单位：小时，正实数）：", "输入")
    Select Case shijian
      Case Is < 10
        jine = 30
      Case Is <= 50
        jine = 30 + 2.5 * shijian
      Case Else
        jine = 30 + 2 * shijian
    End Select
    If jine > 150 Then jine = 150
    Cls
    Print "你这个月的上网费用是" + Str(jine) & "元"
End Sub

程序运行效果图：

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/64.html