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版) (龚沛曾等编)课后实验源码
来源:济亨网