vb程序出现:编译错误 语法错误
PrivateSubForm_Click()Dimx!,y!x=Val(InputBox("输入上网时间","输入框","0"))y=Val(MsgBox("显示上网费用...
Private Sub Form_Click()
Dim x!, y!
x = Val(InputBox("输入上网时间", "输入框", "0"))
y = Val(MsgBox(" 显示上网费用" & y, vbOKCancel, "输出框"))
If x < 0 Then
y = 0
Elself x < 10 Then
y = 25
Elself x < 50 And x >= 10 Then
y = 2 * x
Elself x < 100 And x >= 50 Then
y = 1.5 * x
Elself x >= 100 Then
y = x
Else: y = 200
End If
End Sub
ElseIf 这里显示语法错误,不知道为什么
这方面偶很小白,先谢谢你了!! 展开
Dim x!, y!
x = Val(InputBox("输入上网时间", "输入框", "0"))
y = Val(MsgBox(" 显示上网费用" & y, vbOKCancel, "输出框"))
If x < 0 Then
y = 0
Elself x < 10 Then
y = 25
Elself x < 50 And x >= 10 Then
y = 2 * x
Elself x < 100 And x >= 50 Then
y = 1.5 * x
Elself x >= 100 Then
y = x
Else: y = 200
End If
End Sub
ElseIf 这里显示语法错误,不知道为什么
这方面偶很小白,先谢谢你了!! 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询