VB 没有IF

来源：百度知道 编辑：UC知道 时间：2024/04/29 18:08:13
Private Sub Form_click()
Dim a As Single, b As Single, c As Single
a = InputBox("输入A的值：", "输入A")
b = InputBox("输入B的值：", "输入B")
c = InputBox("输入C的值：", "输入C")
If a > b Then
If b > c Then Print a, b, c
Else
If a > c Then Print a, c, b
Else
Print c, a, b
End If
End If
Else
If a > c Then
Print b, a, c
Else
If b > c Then Print b, c, a
Else
Print c, b, a
End If
End If
End If
End Sub

我用的是VB6.0精简版
运行时提示else没有if（第十行的else）
有请各位高手帮忙解惑~！ 不胜感激

Private Sub Form_click()
Dim a As Single, b As Single, c As Single
a = InputBox("输入A的值：", "输入A")
b = InputBox("输入B的值：", "输入B")
c = InputBox("输入C的值：", "输入C")
If a > b Then
If b > c Then
Print a, b, c
Else
If a > c Then
Print a, c, b
Else
Print c, a, b
End If
End If
Else
If a > c Then
Print b, a, c
Else
If b > c Then
Print b, c, a
Else
Print c, b, a
End If
End If
End If
End Sub
你的问题就是这样了，还有，当你 then 后面 直接跟语句而不换行时，那个 if语句对应的 end if 可以省略的，比如
If a > c Then
Print a, c, b
End If
与
If a > c Then Print a, c, b 是等价的。但是