UC知道关于vb循环结构
来源：百度知道 编辑：UC知道 时间：2024/06/22 01:10:53
编一应用程序根据上网时间计算上网费用，计算方法如下：
25元基数 ≤10小时
每小时2元 10<且≤50小时
每小时1.5元 50<且≤100小时
每小时1元 >100小时
同时为了鼓励多上网，每月收费最多不超过300元。
要求：
⑴使用InputBox( )函数输入上网时间；当输入的上网时间为-1时不再继续计算（提示：用循环结构实现）。
⑵计算出的上网费用显示在MsgBox对话框中。
⑶单击“结束”按钮，结束程序。
特别注意要用到循环结构来实现要求（1）
25元基数 ≤10小时
每小时2元 10<且≤50小时
每小时1.5元 50<且≤100小时
每小时1元 >100小时
同时为了鼓励多上网，每月收费最多不超过300元。
要求：
⑴使用InputBox( )函数输入上网时间；当输入的上网时间为-1时不再继续计算（提示：用循环结构实现）。
⑵计算出的上网费用显示在MsgBox对话框中。
⑶单击“结束”按钮，结束程序。
特别注意要用到循环结构来实现要求（1）
Private Sub Form_Load()
Dim T As Single
Dim Cnt As Single
While T <> -1
T = Val(InputBox("请输入上网时间"))
Select Case T
Case Is <= 10
Cnt = 25
Case Is <= 50
Cnt = 25 + 2 * (T - 10)
Case Is <= 100
Cnt = 25 + 1.5 * (T - 10)
Case Else
Cnt = 25 + 1 * (T - 10)
If Cnt > 200 Then Cnt = 300
End Select
MsgBox Cnt
Wend
End Sub
Private Sub Form_Load()
Dim a, b
a = Val(InputBox("输入上网时间", "请输入"))
If a < 0 Then
b = 0
ElseIf a > 0 And a <= 10 Then
b = 25
ElseIf 10 < a And a <= 50 Then
b = 25 + (a - 10) * 2
ElseIf 50 < a And a <= 100 Then
b = 25 + (50 - 10) * 2 + (a - 50) * 1.5
ElseIf a > 100 Then
b = 2