杭州交通信息网无限金币和钻石的游戏:vb 的if then
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 13:02:50
Private Sub Command1_Click()
Dim x As Single, y As Single
x = Text1
If x < 1000 Then
y = x
elself x >= 1000 And x < 2000
y = 0.9 * x
elself x >= 2000 And x < 3000
y = 0.8 * x
Else
y = 0.7 * x
End If
Print y
End Sub
错那里？
Dim x As Single, y As Single
x = Text1
If x < 1000 Then
y = x
elself x >= 1000 And x < 2000
y = 0.9 * x
elself x >= 2000 And x < 3000
y = 0.8 * x
Else
y = 0.7 * x
End If
Print y
End Sub
错那里？
正确代码如下：
Private Sub Command1_click()
Dim x As Single, y As Single
x = Val(Text1.Text)
'赋值之前先进行类型转换，否则当没有输入数字时，就会报错的
If x < 1000 Then
y = x
ElseIf x >= 1000 And x < 2000 Then
'elseif中是"i"，而不是你输入的"l"，还有一定不能少"then"
y = 0.9 * x
ElseIf x >= 2000 And x < 3000 Then
y = 0.8 * x
Else
y = 0.7 * x
End If
Print y
End Sub
OK，这样程序程序就能顺利运行了。