VBScript 下一直说缺少END IF,该如何解决

2013-09-10

VBScript 下一直说缺少END IFElseIf id_nation_code 达斡尔 Then nation_code30ElseIf id_nation_co

VBScript 下一直说缺少END IF

    ElseIf id_nation_code= "达斡尔" Then nation_code="30"
    ElseIf id_nation_code= "仫佬" Then nation_code="31"
    ElseIf id_nation_code= "羌" Then nation_code="32"
    ElseIf id_nation_code= "布朗" Then nation_code="33"
    ElseIf id_nation_code= "撒拉" Then nation_code="34"
    ElseIf id_nation_code= "毛南" Then nation_code="35"
    ElseIf id_nation_code= "仡佬" Then nation_code="36"
    ElseIf id_nation_code= "锡伯" Then nation_code="37"
    ElseIf id_nation_code= "阿昌" Then nation_code="38"
    ElseIf id_nation_code= "普米" Then nation_code="39"
    ElseIf id_nation_code= "塔吉克" Then nation_code="40"
    ElseIf id_nation_code= "怒" Then nation_code="41"
    ElseIf id_nation_code= "乌孜别克" Then nation_code="42"
    ElseIf id_nation_code= "俄罗斯" Then nation_code="43"
    ElseIf id_nation_code= "鄂温克" Then nation_code="44"
    ElseIf id_nation_code= "德昂" Then nation_code="45"
    ElseIf id_nation_code= "保安" Then nation_code="46"
    ElseIf id_nation_code= "裕固" Then nation_code="47"
    ElseIf id_nation_code= "京" Then nation_code="48"
    ElseIf id_nation_code= "塔塔尔" Then nation_code="49"
    ElseIf id_nation_code= "独龙" Then nation_code="50"
    ElseIf id_nation_code= "鄂伦春" Then nation_code="51"
    ElseIf id_nation_code= "赫哲" Then nation_code="52"
    ElseIf id_nation_code= "门巴" Then nation_code="53"
    ElseIf id_nation_code= "珞巴" Then nation_code="54"
    ElseIf id_nation_code= "基诺" Then nation_code="55"
    Else    Then
    nation_code="99"
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If

  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If

一直提示 ElseIf id_nation_code= "蒙古" Then nation_code="01" 这一行缺少End

...
End Select

回车的时候自动提交了，郁闷
[解决办法]
写错的地方太多了
第一句在then后面要换行；最后一个else后面不要有then；不要那么多endif，一个就够了


if 条件1 then
    语句1
elseif 条件2 then
    语句2
elseif 条件3 then
    语句3
else
    语句4
endif

[解决办法]

1）不是缺少是有太多的 endif 了，一个即可
2）改成Select case 结构，代码更清晰

引用:

写错的地方太多了
第一句在then后面要换行；最后一个else后面不要有then；不要那么多endif，一个就够了
if 条件1 then
    语句1
elseif 条件2 then
    语句2
elseif 条件3 then
    语句3
else
    语句4
endif

引用:

服了你，呵呵
首先，先说一下你的语法，你这么用 if 语句就不需要 end if，有了反而多余，看看下面

' 这种是正常的 if 语句，这时候的 end if 是必须的
if 表达式 then
处理过程
end if

' 这种是不需要 end if 结束的 if 语句用法，这时候 end if 是多余的
if 表达式 then 处理过程

既然你把处理过程放到了 then 后面，那就表示无需 end if 了

再者，你这种应用应该用 select 语句呀，这还用 if 语句来弄，难道你不知道有 select 语句的存在？
如：
Select case id_nation_code
case "汉":nation_code = "00"
case "汉":nation_code = "00"
case "汉":nation_code = "00"
End Select

热点排行