VBScript变量可以由运算符来操作，以执行数学或字符的运算；
 
 

 
 
VBScript运算符分为三类：
 
 
比较运算符：
 
 
 
 
逻辑运算符：
 
 
 
 
算术运算符：
 
 
 
 

 
 
VBScript注释语法：
 
 
   在VBScript中，一个'(英文单引号)符号开始一个注释，可以将'放在一行的开始处，使得一整行都成为一条注释；或者，可以将其放在命令行中的任何位置。从'开始到该行末尾的所有内容都将忽略。
 
 
    在VBScript中，没有块注释；
 
 

 
 

 
 

 
 
本文转自 bannerpei 51CTO博客，原文链接：http://blog.51cto.com/281816327/1364044，如需转载请自行联系原作者
 

VBS也挺强大的呢，这篇给大家演示的是获取当前时刻，并根据不同的时间段来问好！
 
注：编辑器不支持vbs编程，单引号后是注释哦！
 
d=Date()
t=Time()
h=Hour(t)    '获取到当前的小时

if h<9 then
	k="早上"
elseif h<12 then
	k="上午"
elseif h<14 then
	k="中午"
elseif h<18 then
	k="下午"
else
	k="晚上"
end if

lady="大美女，" & k & "好呀！"     '拼装好问好的话   
CreateObject("SAPI.SpVoice").Speak(lady)     '电脑读出这句话
 
效果图：
 
 哈哈，只能听到哦！
 
喜欢的点个赞❤吧！

VBS基础知识
 
前言
 
   经过了之前的VBS入门学习，相信大家对VBS脚本语言有了一定的了解，这篇文章将向大家展示VBS脚本语言的基础知识。这次废话不多说，直接上货！
    
 
一、注释
 
   注释是指存在在代码当中但不会被执行的部分，在VBS里用单引号进行注释，所有单引号后面的内容都被解释为注释。
    
 
二、变量
 
   在VBS中，变量的命名只能由字母（a ~ z）、数字（0 ~ 9）和下划线（ _ ）组成，并且第一个字符必须是字母。举个例子：
    
    合法的变量名：guyu，gu_yu，gu2_1yu
    不合法的变量名：*guyu，666guyu，+guyu666
    
    在定义变量时，需要使用关键字“dim”来告诉VBS你要创建一个变量，然后将变量名跟在后面，在申请多个变量时可以用“，”分隔。
    
    定义变量的语法格式：
 
dim 变量名1,变量名2,变量名3……变量名n
 
   
 
注意：
 
   1.在VBS中引用变量、方法、函数、对象时不区分大小写。
    2.VBS中不允许在定义变量的同时给变量赋值。
    
    正确定义并赋值：
 
dim guyu
guyu = "谷雨"
 
   错误定义并赋值：
 
dim guyu = "谷雨"
 
   
    3.VBS中允许在一行代码内同时对两个变量进行赋值,中间用冒号分隔。
 
dim gu,yu
gu="谷":yu="雨"
 
   
 
三、类型转换
 
   从上面的定义变量可以看出，VBS在定义时只有一种变量类型，所以我们在实用中需要使用类型转换函数来将变量转换为相应的变量类型。
    
    1.Cint函数：将变量转换为整数类型。取值范围： -32,768 ~ 32,767
    2.Clng函数：与Cint函数相同。取值范围： -2147483648 ~ 2147483647
    3.Ccur函数：将变量转换为货币类型。
    4.Csng函数：将变量转换为单精度类型。
    5.Cdbl函数：将变量转换为双精度类型。
    6.Cstr函数：将变量装换为字符串类型。
    7.Cbyte函数：将变量转换为字节类型。
    8.Cbool函数：将变量转换为布尔值。
    
 
四、数组
 
   一个包含着一系列值的变量被称为数组。数组由变量名和下标组成，变量名后面的小括号里就是下标值，下标值总是从零开始。
 
a(5)//变量名为“a”,下标值为“5”的数组
 
   VBS数组使用的没有那么频繁，因为它那让人头疼的定义和赋值方式（多维数组），所以我们浅略的过一下就好。如果有好学的同学想要深入了解，可以看一下这位大佬的文章：VBS数组深入浅出
 
   
 
我下面简单介绍几种常用函数的作用：
 
   1.array 函数：返回一个包含数组的变量。
 
array(元素值1,元素值2,元素值3……元素值n)
 
   各个元素值之间用“，”分隔，最终创建的数组下标为总数值个数加一，没有值就默认创建一个长度为零的数组。
    
    2.isarray 函数:判断参数是否为数组，是的话返回 True；否则返回 False。
 
isarray(参数名)
 
   3.UBound 函数：返回指定数组维数的最大可用下标。
    4. LBound 函数：返回指定数组维的最小可用下标。
    5.Split 函数：返回基于 0 的一维数组，其中包含指定数目的子字符串。
    6.Join 函数：返回一个字符串，此字符串由包含在数组中的许多子字符串连接创建。
    
    
 
在VBS里，数组分为动态数组与静态数组
 
   
     动态数组的定义与赋值：
 
dim a
a = array(1,2,3,4,5)
//此时: a(0)=1, a(1)=2, a(2)=3, a(3)=4, a(4)=5
 
a = array(1,2,3,4,5)//与上面代码相同
 
   上面这段代码是定义了一个变量“a”，然后通过“array函数”将数组赋值给变量“a”。
    
    
    静态数组的定义与赋值：
 
dim a(3)
a(0)=1
a(1)=2
a(2)=3
 
   这段代码定义了一个能存储三个数据的数组变量“a”，并给它赋值。
    
    
    我们可以通过下标来访问数组里的指定的值(切记下标值从零开始！)。执行下面的代码，弹出对话框内容为“1”。
 
a = array(1,2,3,4,5)
msgbox a(0)
 
   
    在改变数组大小时，数据可能会被破坏，使用关键字preserve可以保护数据。
 
dim preserve array(5)
 
   
 
五、操作符
 
现实中的操作
VBS中的操作符
加、减、乘、除
+，-，*，/
乘方
^
取模
Mod
等于、大于、小于
=，>，<
不等于、大于等于、小于等于
<>，>=，<=
逻辑与、逻辑非、逻辑或
AND，NOT，OR
连接字符串
+或&
   
 
六、选择语句（条件语句）
 
   VBS选择语句有“if”和“Select Case”两种。
    
 
1.if 语句语法格式：
 
If……Then……Else……
 
   通俗点解释就是：如果……则……否则……
    给大家举个例子：
 
dim a, b, c
a = inputbox("请输入：")
b = 666
c = 888
if a < 99 then 
  msgbox b
else
  msgbox c
end if
 
代码解析：
 
   第一行：定义了三个变量“a,b,c”、
    第二行：利用“inputbox函数”获取输入的值，并赋值给变量“a”。
    第三、四行：为变量“b”和“c”赋上初始值。
    剩下的 “if” 语句的意思是：如果变量“a”的值小于99，则输出变量“b”的值，否则输出变量“c”的值，“if”语句结束。
    
    
    有多个条件时可以添加 “elseif” 以提供更多选择：
 
dim a, b, c
a=inputbox("请输入：")
if a<99 then 
  msgbox a
elseif a=99 then 
  msgbox b
elseif a>99 then
  msgbox c
end if
 
代码解析
 
   如果变量“a”的值小于99，则输出变量“a”的值，如果变量“a”的值等于99，则输出变量“b”的值，如果变量“a”的值大于99，则输出变量“c”的值。
    
    
 
2.Select Case语句
 
dim a
a=inputbox("请输入：")
a=int(a)
select case a 
  case 1 msgbox("111")
  case 2 msgbox("222")
  case 3 msgbox("333")
  case 5 msgbox("444")
  case else msgbox("555")
end select
 
   他类似于高级语言里的switch语句，可以从多个语句块中选择执行其中的一个。
 
代码解析
 
   前三行：定义变量"a"，获取输入值，将其类型转换为整数类型。
    
    第四行到最后：利用select case判断变量“a”的值，“a”的值将与结构中每个 case 的值比较，如果匹配，则执行与该case 关联的语句块。没有能匹配的则输出case else后的语句。
    
    比如我输入“1”，它会输出“111”，我输入“5”，他会输出“444”，我输入“6”，他会输出“555”，，我输入“494654”，他会输出“555”。
    
 
七、循环语句
 
   VBS中共有五种循环形式，与高级语言的循环比较相似。
 
1.for……next
 
   用于指定固定的循环次数。
 
for 循环变量=初始值 to 结束值
循环体
next
 
2.for……each
 
   用于对数组或对象集合的遍历。
 
for each 循环变量 in 遍历对象或数组
循环体
next
 
3.do……while
 
   当满足循环条件时，会执行循环体。
 
do while 循环条件
循环体
loop
 
4.do……until
 
   当循环条件不满足时，执行循环体。
 
do until 循环条件
循环体
loop
 
5.while
 
   满足条件时会一直循环。
 
while 循环条件
循环体
wend
 
   
 
八、函数与子程序
 
1.函数
 
   基本定义方法：
 
function 函数名(参数值)
代码块
函数名=返回值
end function
 
   跟大部分高级语言一样，函数在调用时需要加小括号。函数只能出现在赋值语句的右边，或表达式中。函数不能直接使用，如需要，可使用call语句调用，并取消其返回值。
 
2.子程序
 
   定义方式与函数相似，只是没有返回值，并且在调用时不需要加小括号，也不能在表达式中使用。
    
 
结束语
 
   这篇只算是大体的展示了一些VBS基础知识，有好些地方写的比较粗略，没有那么细致，有误的地方还是要麻烦大佬帮忙指出。
    后面还会有注册表篇，实战篇（比如怎么祸害朋友的电脑，嘿嘿嘿），感兴趣的同学可以点点关注（不迷路）。
    

1.定义变量/常量
 
dim 定义变量
 dim var=1
const 定义常量
 const PI=3.14
 
2.注释
 
rem
’
 
3.条件判断
 
' 判断输入数是否大于1

dim num
num=int(inputbox("请输入一个整数"))
if num>1 then
msgbox("大于1")
elseif num<1 then
msgbox("小于1")
elseif num=1 then
msgbox("等于1")
end if
 
相等符号不是== 而是=
 
'输入数字判断对应的星期
dim num
num=int(inputbox("请输入1-7中一数字"))
select case num
case 1
msgbox("MON")
case 2
msgbox("TUE")
case 3
msgbox("TUR")
case 4
msgbox("WED")
case 5
msgbox("FRI")
case 6
msgbox("SAT")
case 7
msgbox("SUN")
case else
msgbox("不在范围内")
end select
 
4.循环语句
 
For…Next
 
'循环接收5个数 并计算其总和、平均值

dim sum
dim count
count=5
dim i
for i=1 to 5 step 1
    sum=sum+int(inputbox("第"&i&"个数"))
next
msgbox("总和:"&sum&" 绝对值:"&sum/count)
 
For Each…Next
 
' 循环输入数组 并遍历出来

dim arr(4)
dim i
for i=0 to 4
      arr(i)=int(inputbox("请输入数字"))
Next
For Each x in arr
       msgbox(x)
Next
 
Do…While Loop
 
'循环接收5个数 并计算其总和、平均值

dim sum
dim count
count=0
dim i
Do While count<5
    sum=sum+int(inputbox("第"&count+1&"个数"))
    count=count+1
 Loop
msgbox("总和:"&sum&" 绝对值:"&sum/count)
 
Do Until…Loop
 
5.数组
 
一维数组
 arr(4) 0-4 五个元素
多维数组
 arr(2,4) 行0-2 列0-4 3*5=15个元素
 
6.函数
 
*自定义函数
 
function 函数名(参数1，参数2)
函数名=xxx//返回值类似于return
end function
 
调用函数
1.call 函数名(参数)
2.函数名(参数)
 
' 计算数的平方

function square(num)
square=num*num
end function 
dim num
num=int(inputbox("输入一个整数"))
msgbox(square(num))
 
常用内建函数
 
7.子程序
 
与函数区别 * 无返回值*
 
sub 子程序名

end sub
 
w3c vbs教程