本文参考：VBS基础教程。学习了vbs的基础语法，进行了一些练习，下面是我编写的demo。

vbs01.vbs

REM 输入姓名并回显Dim nameDim msgmsg = "please input your name:"name = Inputbox(msg, "Inputbox", "zhangsan") 'param1是提示用户的语句，param2是对话框标题，param3是输入栏默认值。Msgbox name,,"Msgbox" 'param1是输出内容，param2是对话框标题，它们之间存在两个“,”。

vbs02.vbs

REM 输入长方形的长和宽，计算其面积并输出Dim width, length, areaDim promptprompt = "please input width:"width = Inputbox(prompt)prompt = "please input length:"length = Inputbox(prompt)area = width * lengthMsgbox area

vbs03.vbs

REM 输入圆的半径，计算圆面积并输出const PI = 3.14 'const关键字限制PI在之后的程序中无法被修改Dim r, areaDim promptprompt = "please input r:"r = Inputbox(prompt)area = PI * r^2 ' “^”代表n的几次方，c语言中代表xor（异或）。Msgbox area2.条件控制语句

vbs04.vbs

REM 学习条件控制语句Dim num1, num2Dim promptprompt = "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 ifend if

注：if和end if数量要一致，否则会造成语法错误。

vbs05.vbs

REM 学习switch和case结构Dim nDim promptprompt = "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 select3.循环语句(do...loop，do while...loop，do...loop while，for...next)

vbs06.vbs

REM 学习循环语句(do...loop),由用户输入密码，如果认证失败则让用户继续输入const PWD = "123456"dim passwddo passwd = Inputbox("please input your password:") if PWD = passwd then Msgbox "auth success!" exit do end ifloop

vbs07.vbs

REM 学习循环语句(do...loop),由用户输入密码，如果认证失败则让用户继续输入，认证次数上限为3次const LIMIT = 3const PWD = "admin_123"Dim count, passwdcount = 0do 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 ifloop

vbs08.vbs

REM 学习循环语句(do...while),由用户输入密码，如果认证失败则让用户继续输入，认证次数上限为3次const LIMIT = 3const PWD = "admin_123"Dim count, passwdcount = 0do 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 '"&"用于连接字符串loop

vbs09.vbs

REM 学习循环语句(for...next)Dim i, ji = 0j = 0for i = 1 to 9 for j = 1 to 9 str = str & i * j & " " next str = str & vbCrlf 'vbCrlf相当于回车键next Msgbox str

vbs10.vbs
遍历CRT打开的所有tabs，查找连接的远程服务器的IP地址等于REMOTE_ADDR的tab，则激活对应tab并输出该IP地址。

'远程主机IPConst 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 + 1Loop4.一维数组

vbs11.vbs

REM 学习数组使用Dim str(2), i '定义数组str，括号内数字为2，但实际数组大小为3，因为下标是从0开始计算Dim retfor i = 0 to 2 str(i) = InputBox("please input any string") ret = ret & str(i) & " "nextMsgBox ret5.函数

vbs12.vbs

REM 函数学习(function)function Max(a, b) if a > b then Max = a '通过将变量值赋值给函数名传递函数返回值 else Max = b end ifend functionDim a, ba = 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等。