VB的if和elseif-HQY 一个和谐有爱的空间

09

2023
03
16:13:06

VB的if和elseif

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 =  To :
     Debug.Print ("这是第" & Str(i) & "次循环")
     a = InputBox("请输入")
 
     If a = "" Then
         MsgBox ("执行1")
         Debug.Print ("执行1")
     ElseIf a = "" Then
         MsgBox ("执行2")
         Debug.Print ("执行2")
     ElseIf a = "" Then
         MsgBox ("执行3")
         Debug.Print ("执行3")
     ElseIf a = "" Then
         MsgBox ("执行4")
         Debug.Print ("执行4")
     ElseIf a = "" 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 =  To :
     Debug.Print ("这是第" & Str(i) & "次循环")
     a = InputBox("请输入")
 
     If a = "" Then:
         MsgBox ("执行1")
         Debug.Print ("执行1")
 
 Next i
 End Sub

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

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