VB的if和elseif

  • 格式:pdf
  • 大小:33.34 KB
  • 文档页数:1

VB的if和elseif

VB中if和elseif的⽤法是:

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

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

1 Sub test()

2 Dim i As Integer

3 Dim j As Integer

4 Dim a

5 For i = 1 To 2:

6 Debug.Print ("这是第" & Str(i) & "次循环")

7 a = InputBox("请输⼊")

8

9 If a = "1" Then

10 MsgBox ("执⾏1")

11 Debug.Print ("执⾏1")

12 ElseIf a = "20" Then

13 MsgBox ("执⾏2")

14 Debug.Print ("执⾏2")

15 ElseIf a = "40" Then

16 MsgBox ("执⾏3")

17 Debug.Print ("执⾏3")

18 ElseIf a = "100" Then

19 MsgBox ("执⾏4")

20 Debug.Print ("执⾏4")

21 ElseIf a = "300" Then

22 MsgBox ("执⾏5")

23 Debug.Print ("执⾏5")

24 Else:

25 MsgBox ("什么都没有执⾏")

26 Debug.Print ("什么都没有执⾏")

27 End If

28 Next i

29 End Sub

如果是加了冒号那么只能是⼀个if:

1 Sub test()

2 Dim i As Integer

3 Dim j As Integer

4 Dim a

5 For i = 1 To 2:

6 Debug.Print ("这是第" & Str(i) & "次循环")

7 a = InputBox("请输⼊")

8

9 If a = "1" Then:

10 MsgBox ("执⾏1")

11 Debug.Print ("执⾏1")

12

13 Next i

14 End Sub

如果是以下这样⼦就会报错:

1 Sub test()

2 Dim i As Integer

3 Dim j As Integer

4 Dim a

5 For i = 1 To 2:

6 Debug.Print ("这是第" & Str(i) & "次循环")

7 a = InputBox("请输⼊")

8

9 If a = "1" Then:

10 MsgBox ("执⾏1")

11 Debug.Print ("执⾏1")

12 ElseIf a = "2" Then:

13 MsgBox ("执⾏2")

14 Next i

15 End Sub