本文参考：VBS基础教程。学习了vbs的基础语法，进行了一些练习，下面是我编写的demo。
vbs01.vbs
REM和'单引号作用都是用于注释，相当于c语言中"//"。Dim用来声明变量，vbs支持动态数据类型，即不用事先声明变量的类型。Inputbox作用是打开对话框，获取用户输入，它返回的数据类型是字符串，Msgbox则用于显示。REM 输入姓名并回显
Dim name
Dim msg
msg = "please input your name:"
name = Inputbox(msg, "Inputbox", "zhangsan") 'param1是提示用户的语句，param2是对话框标题，param3是输入栏默认值。
Msgbox name,,"Msgbox" 'param1是输出内容，param2是对话框标题，它们之间存在两个“,”。vbs02.vbs
REM 输入长方形的长和宽，计算其面积并输出
Dim width, length, area
Dim prompt
prompt = "please input width:"
width = Inputbox(prompt)
prompt = "please input length:"
length = Inputbox(prompt)
area = width * length
Msgbox areavbs03.vbs
REM 输入圆的半径，计算圆面积并输出
const PI = 3.14 'const关键字限制PI在之后的程序中无法被修改
Dim r, area
Dim prompt
prompt = "please input r:"
r = Inputbox(prompt)
area = PI * r^2 ' “^”代表n的几次方，c语言中代表xor（异或）。
Msgbox areavbs04.vbs
REM 学习条件控制语句
Dim num1, num2
Dim prompt
prompt = "please input num1:"
num1 = CDbl(Inputbox(prompt)) 'CDbl用于将返回值数据类型转换为数字（×××或浮点型）
prompt = "please input num2:"
num2 = CDbl(Inputbox(prompt))
if num1 > num2 then
Msgbox "num1 > num2"
else if num1 = num2 then
Msgbox "num1 = num2"
else
Msgbox "num1 < num2"
end if
end if注：if和end if数量要一致，否则会造成语法错误。
vbs05.vbs
REM 学习switch和case结构
Dim n
Dim prompt
prompt = "please input a num between 1 and 3"
n = int(Inputbox(prompt))
select case n
case 1
Msgbox "happy"
case 2
Msgbox "lucky"
case 3
Msgbox "nervous"
case else
Msgbox "input error"
end selectvbs06.vbs
REM 学习循环语句(do...loop),由用户输入密码，如果认证失败则让用户继续输入
const PWD = "123456"
dim passwd
do
passwd = Inputbox("please input your password:")
if PWD = passwd then
Msgbox "auth success!"
exit do
end if
loopvbs07.vbs
REM 学习循环语句(do...loop),由用户输入密码，如果认证失败则让用户继续输入，认证次数上限为3次
const LIMIT = 3
const PWD = "admin_123"
Dim count, passwd
count = 0
do
passwd = Inputbox("please input your password")
if PWD = passwd then
Msgbox PWD
exit do
end if
count = count + 1
if count >= LIMIT then
Msgbox "wrong times too many!"
exit do
end if
loopvbs08.vbs
REM 学习循环语句(do...while),由用户输入密码，如果认证失败则让用户继续输入，认证次数上限为3次
const LIMIT = 3
const PWD = "admin_123"
Dim count, passwd
count = 0
do while count < LIMIT
passwd = Inputbox("please input your password")
if PWD = passwd then
Msgbox PWD
exit do
end if
count = count + 1
'Msgbox "wrong times " + cstr(count) 'cstr函数将数字转换为字符串
MsgBox "wrong times " & count '"&"用于连接字符串
loopvbs09.vbs
REM 学习循环语句(for...next)
Dim i, j
i = 0
j = 0
for i = 1 to 9
for j = 1 to 9
str = str & i * j & " "
next
str = str & vbCrlf 'vbCrlf相当于回车键
next
Msgbox strvbs10.vbs
遍历CRT打开的所有tabs，查找连接的远程服务器的IP地址等于REMOTE_ADDR的tab，则激活对应tab并输出该IP地址。
'远程主机IP
Const REMOTE_ADDR = "192.168.253.133"
i = 0
'获取打开的Tab页面数
tabCount = Crt.GetTabCount
'遍历所有Tab，获取连接的远程服务器的IP地址
Do While i < tabCount
Set tabObj = Crt.GetTab(i + 1)
'获取远程服务器的IP地址
remoteAddr = Crt.Session.remoteAddress
If REMOTE_ADDR = remoteAddr Then
tabObj.Activate
Call Crt.Dialog.MessageBox(remoteAddr, "", ICON_INFO)
Exit Do
End If
i = i + 1
Loopvbs11.vbs
REM 学习数组使用
Dim str(2), i '定义数组str，括号内数字为2，但实际数组大小为3，因为下标是从0开始计算
Dim ret
for i = 0 to 2
str(i) = InputBox("please input any string")
ret = ret & str(i) & " "
next
MsgBox retvbs12.vbs
REM 函数学习(function)
function Max(a, b)
if a > b then
Max = a '通过将变量值赋值给函数名传递函数返回值
else
Max = b
end if
end function
Dim a, b
a = int(InputBox("please input a number:"))
b = int(InputBox("please input a number:"))
MsgBox "The bigger number is " & Max(a, b)与Function作用相同的关键字还有Sub。此处参考：vbscript中Function与Sub的区别。
一、Function与Sub概述：
Sub（子过程）： sub是Subroutines的缩写，它的意思是子程序，它是将一段具有某种特定功能的语句区块单独编写成一个独立的程序，给予特定名称 。Function（函数）：表示每个输入值对应唯一输出值的一种对应关系 ，具备 Sub 的功能。
二、Function与Sub异同
相同点：
1）Sub和Function都是 vbscript 的过程，
2）可以传递参数，
3）是业务操作或业务处理的封装，都可以被重复调用。不同点：
1）Sub无返回值，而Function可以有返回值。
2）Sub关心过程，而Function关心结果，简明的说，Sub就好比c语言中返回类型为void的函数，而Function的返回类型则可以是int和float等。
另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。
