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