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

悬崖之树

1. Option  Explicit
   
2. Dim a
   
3. a = InputBox ("shuru")
   
4. If a >= 0 Then
   
5.         If a < 10 Then
   
6.                 MsgBox "1"
   
7.         ElseIf a < 100 Then
   
8.                 MsgBox "2"
   
9.         Else If a < 1000 Then
   
10.                 MsgBox "3"
    
11.         Else
    
12.                 MsgBox "太大了"
    
13.         End If
    
14. Else
    
15.         MsgBox "太小了"
    
16. End If

复制代码

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

apang

Else If ≠ ElseIf

悬崖之树

回复 2# apang


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