济南微信网站建设网络营销方案策划案例

VB中if和elseif的用法是：

if...then...elseif...then...else...endif

切记在then的后面不要加冒号，加了冒号出现else没有if的错误，因为加了冒号表示这个if只是执行then的语句就算执行完了，因此如下

Sub test()
Dim i As Integer
Dim j As Integer
Dim a
For i = 1 To 2:
    Debug.Print ("这是第" & Str(i) & "次循环")
    a = InputBox("请输入")
    
    If a = "1" Then
        MsgBox ("执行1")
        Debug.Print ("执行1")
    ElseIf a = "20" Then
        MsgBox ("执行2")
        Debug.Print ("执行2")
    ElseIf a = "40" Then
        MsgBox ("执行3")
        Debug.Print ("执行3")
    ElseIf a = "100" Then
        MsgBox ("执行4")
        Debug.Print ("执行4")
    ElseIf a = "300" Then
        MsgBox ("执行5")
        Debug.Print ("执行5")
    Else:
        MsgBox ("什么都没有执行")
        Debug.Print ("什么都没有执行")
    End If
Next i
End Sub

如果是加了冒号那么只能是一个if：

Sub test()
Dim i As Integer
Dim j As Integer
Dim a
For i = 1 To 2:
    Debug.Print ("这是第" & Str(i) & "次循环")
    a = InputBox("请输入")
    
    If a = "1" Then:
        MsgBox ("执行1")
        Debug.Print ("执行1")

Next i
End Sub

如果是以下这样子就会报错：

Sub test()
Dim i As Integer
Dim j As Integer
Dim a
For i = 1 To 2:
    Debug.Print ("这是第" & Str(i) & "次循环")
    a = InputBox("请输入")
    
    If a = "1" Then:
        MsgBox ("执行1")
        Debug.Print ("执行1")
    ElseIf a = "2" Then:
        MsgBox ("执行2")
Next i
End Sub