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

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

 

程序运行效果图:

 

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

 

打赏 支付宝打赏 微信打赏

来源:济亨网

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

    << 上一篇 下一篇 >>

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