vbs脚本 if then的问题，高手麻烦进来看下。（急）6
发布网友
发布时间：2023-10-26 04:25
共5个回答
热心网友
时间：2024-12-13 10:40
我回答一下你追问的问题：
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"
脚本在记事本里边 一个回车就被视为是一行。
热心网友
时间：2024-12-13 10:41
热心网友
时间：2024-12-13 10:41
end if追问是这样吗？
dim a
a=inputbox("输入a 1-10")
If a>2 Then msgbox"你像一只猪"
end if
但这样是第四行第一个字符缺少语句啊。
热心网友
时间：2024-12-13 10:42
a=inputbox("输入a 1-10")
If a>2 Then
msgbox "你像一只猪"
end if追问
我有好多问题，希望你能耐心看一下。不胜感激
用你这样的确能行，电脑真神奇。不过我用麦兜Terran的做法也能行，if then一定要带end if 吗
但是把msgbox "你像一只猪" 移到Then这一行，就无法运行了，提示说缺少语句，这是怎么回事啊。
对于vbs脚本编写，输入法有严格要求吗？
我想加个elseif语句，又该怎么加呢，换行？
vbs中 逗号、引号之类的有什么作用呢？
每一行规定了能写几个语句吗？
追答下面已经有人回答，做点补充；3：除字符串内的东西外，其他都要使用英文输入法（半角）。
5：双引号表示为字符串，单引号后面是注释
6：语句的长度没*，但是没行代码有*，每行最长只能写255（有点记不清具体数字，应该没错）个字符。如果语句过长，要分多行，每行结尾用空格加_，用来表示连接下行。
热心网友
时间：2024-12-13 10:43
a=InputBox("输入a 1-10")
If ""&a&"" Then
msgbox"你像一只猪"
Else
End If
复制以上代码试一下
