Question

vbs脚本 if then的问题，高手麻烦进来看下。（急）

这是我编写的一个vbs脚本
dim a
a=inputbox("输入a 1-10")
If a>2 Then msgbox"你像一只猪"
但总是在运行后显示
脚本： *******(我脚本文件的存放目录）
行： 3
字符： 7
错误： 缺少‘Then’
代码： 800A03F9
源： Microsoft VBScript 编译器错误
请问这是怎么回事啊？

Answer 1

楼主啊，我运行了你给的脚本，结果没问题哦。
我回答一下你追问的问题：
1) If这种语句有两种模式，一种是单行的If，另一种是多行的If。
单行的If可以写成：
If a = 2 Then MsgBox "你是猪"
不用加End If
但是多行的If需要End If
比如我这样写：
If a = 2 Then
MsgBox "你是猪"
End If
如果分成多行来写，就是需要加End If的
多行的If有什么好处呢？它可以执行多条命令，比如：
If a = 2 Then
MsgBox "你"
MsgBox “是"
MsgBox "猪"
End If

还可以：
If a = 2 Then
MsgBox "你是猪"
Else
MsgBox "你是牛"
End If

也可以：
If a = 1 Then
MsgBox "你是猪"
ElseIf a = 2 Then
MsgBox "你是牛"
Else
MsgBox "对不起，你什么也不是"
End If
单行的If不能做这些。

3)对输入法有要求，代码之间的空格必须是英文字符的空格，字符串除外，什么是字符串？就是包含在双引号之间的那些内容，他们可以不分输入法，写什么都行。

4)这个刚才列举过了

5)逗号是用来分割参数用的，比如MsgBox就有三个主要参数，分别是"内容","模式","题目"
当你要填两个以上参数的时候，就要用逗号分隔开，比如：
MsgBox "你是猪", 64, "我在骂你"

6)没有规定，其实一行可以写无数多个语句，每个语句之间用冒号连起来。比如说：
dim a: dim b: dim c: MsgBox "aaa" : MsgBox "bbb" : MsgBox "ccc"
脚本在记事本里边 一个回车就被视为是一行。

Answer 2

If a>2 Then msgbox "你像一只猪"

追问

额。你这句和我原来那句有什么不同吗？

追答

空格

追问

Then前面是一个空格啊，输入法有要求吗？

追答

msgbox *

追问

？打个*上去？你不也没打吗？为什么用你这句代替我原来这句就能行了呢？

追答

msgbox空格"123"

Answer 3

在最后—行下面加—行
end if

追问

是这样吗？
dim a
a=inputbox("输入a 1-10")
If a>2 Then msgbox"你像一只猪"
end if
但这样是第四行第一个字符缺少语句啊。

Answer 4

dim a
a=inputbox("输入a 1-10")
If a>2 Then
msgbox "你像一只猪"
end if

追问

我有好多问题，希望你能耐心看一下。不胜感激　　

1. 用你这样的确能行，电脑真神奇。不过我用麦兜Terran的做法也能行，if then一定要带end if 吗

2. 但是把msgbox "你像一只猪"  移到Then这一行，就无法运行了，提示说缺少语句，这是怎么回事啊。

3. 对于vbs脚本编写，输入法有严格要求吗？

4. 我想加个elseif语句，又该怎么加呢，换行？

5. vbs中 逗号、引号之类的有什么作用呢？

6. 每一行规定了能写几个语句吗？

追答

下面已经有人回答，做点补充；
3：除字符串内的东西外，其他都要使用英文输入法（半角）。
5：双引号表示为字符串，单引号后面是注释
6：语句的长度没限制，但是没行代码有限制，每行最长只能写255（有点记不清具体数字，应该没错）个字符。如果语句过长，要分多行，每行结尾用空格加_，用来表示连接下行。

Answer 5

Dim a
a=InputBox("输入a 1-10")
If ""&a&"" Then
msgbox"你像一只猪"
Else
End If

复制以上代码试一下