Question

VB里面能不能实例说下if语句的嵌套形式和多重分支语句，请贴出代码看看

Answer 1

Private Sub Form_Click()
Dim a As Integer
a = InputBox("请输入一个整数：")
If a > 0 Then
MsgBox "这是个正数"
ElseIf a < -0 Then
MsgBox "这是个负数"
Else
MsgBox "这是零"
End If

Select Case a
Case Is > 0
MsgBox "大于零"
Case Is < 0
MsgBox "小于零"
Case Else
MsgBox "等于零"
End Select
End Sub

Answer 2

if a=1 then
b=1
elseif a=2 then
b=3
else
if c=1 then
b=4
else
b=6
end if
end if

Answer 3

if <条件1> then
if <条件2> then
else
if<条件3>then
end if