python编译程序输入上网时间并计算上网费用 计算方法_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版) (龚沛曾等编)课后实验源码

来源：济亨网