UC知道VB编程中的错误兄弟姐妹指一下.....谢了
来源：百度知道 编辑：UC知道 时间：2024/07/05 05:17:46
Private Sub Command1_Click()
x = InputBox("请输入一个数", "附值一个数", "")
If x <= 0 Then
y = 2 - x
If x > 0 And x <= 2 Then
y = x + 2
If x > 2 And x <= 5 Then
y = x ^ 2
Else: y = 2 - x
Print "x=", x, "y=", y
End If
End Sub
x = InputBox("请输入一个数", "附值一个数", "")
If x <= 0 Then
y = 2 - x
If x > 0 And x <= 2 Then
y = x + 2
If x > 2 And x <= 5 Then
y = x ^ 2
Else: y = 2 - x
Print "x=", x, "y=", y
End If
End Sub
应该用elseif
Private Sub Command1_Click()
x = InputBox("请输入一个数", "附值一个数", "")
If x <= 0 Then
y = 2 - x
ElseIf x > 0 And x <= 2 Then
y = x + 2
ElseIf x > 2 And x <= 5 Then
y = x ^ 2
Else
y = 2 - x
End If
Print "x=", x, "y=", y
End Sub
改成下面这样就可以了：
Private Sub Command1_Click()
X = InputBox("请输入一个数", "附值一个数", "")
If X <= 0 Then
Y = 2 - X
ElseIf X > 0 And X <= 2 Then
Y = X + 2
ElseIf X > 2 And X <= 5 Then
Y = X ^ 2
Else: Y = 2 - X
End If
Print "x=", X, "y=", Y
End Sub
Private Sub Command1_Click()
x = InputBox("请输入一个数", "附值一个数", "")
If x <= 0 Then
y = 2 - x
ElseIf x > 0 And x <= 2 Then
y = x + 2
ElseIf x > 2 And x <= 5 T