[问题求助] [已解决]为什么下面的VBS代码出现 编译器错误 ？

悬崖之树

Option  Explicit
Dim a
a = InputBox ("shuru")
If a >= 0 Then 
	If a < 10 Then 
		MsgBox "1"
	ElseIf a < 100 Then
		MsgBox "2"
	Else If a < 1000 Then 
		MsgBox "3"
	Else 
		MsgBox "太大了"
	End If 
Else
	MsgBox "太小了"
End If
复制代码

错误提示是：
            未命名.vbs(14, 1) Microsoft VBScript 编译器错误: 缺少 'End'
可是我已经加了end了。

apang

Else If ≠ ElseIf

悬崖之树

回复 2# apang


    真是vbs编程大神啊，一语点醒梦中人。我当时调试了好多时间都没有发现呢，thank you very much !