vbs教程(整理于帮助文件).docVIP

一、VBScript 特性类别 关键字 数组处理 Array返回包含数组的 Variant。 Dim A A = Array(10,20,30) B = A(2) B is now 30Dim, Private, Public, ReDim声明变量并分配存储空间。Dim Names(9) 声明一个具有 10 个元素的数组。 Dim Names() 声明动态数组。 Dim MyVar, MyNum 声明两个变量。 定义私有变量并分配存储空间。在 Class块中定义私有变量。Private MyNumber 不同的私有变量。 Private MyArray(9) 私有数组变量。 声明多个不同的私有变量。 Private MyNumber, MyVar, YourNumber 定义公有变量并分配存储空间。在 Class 块中定义私有变量。 Public MyNumber 不同的公有变量。 Public MyArray(9) 公有数组变量。 声明多个不同的公有变量。 Public MyNumber, MyVar, YourNumber在过程级中声明动态数组变量并分配或重新分配存储空间。 ReDim X(10, 10, 10) . . . ReDim Preserve X(10, 10, 15)IsArray返回 Boolean 值指明某变量是否为数组。 Dim MyVariable Dim MyArray(3) MyArray(0) = Sunday MyArray(1) = Monday MyArray(2) = Tuesday MyVariable = IsArray(MyArray) MyVariable 包含 True。Erase重新初始化固定大小数组的元素，并释放动态数组的存储空间。Dim NumArray(9) Dim DynamicArray() ReDim DynamicArray(9) 分配存储空间。 Erase NumArray 每一元素都被重新初始化。 Erase DynamicArray 释放数组占用的内存。LBound, UBound返回指定数组维的最小可用下标。返回指定数组维数的最大可用下标。 赋值 Set 将对象引用赋给变量或属性，或者是用一个事件关联一个过程引用。Function ShowFreeSpace(drvPath) Dim fso, d, s Set fso = CreateObject(Scripting.FileSystemObject) Set d = fso.GetDrive(fso.GetDriveName(drvPath)) s = Drive UCase(drvPath) - s = s d.VolumeName BR s = s Free Space: FormatNumber(d.FreeSpace/1024, 0) s = s Kbytes ShowFreeSpace = s End Function 程序注释 使用 或 Rem 的程序注释包含程序中的解释性注释。Dim MyStr1, MyStr2 MyStr1 = Hello : Rem 语句和注释用冒号隔开。 MyStr2 = Goodbye 这同样是注释不需要冒号。 Rem 在没有代码的行上加注释不必用冒号。 常数/文字 EmptyEmpty 关键字用于指明未初始化的变量值。 此关键字与 Null 并不相同。NothingNothing 关键字用于取消某对象变量与实际对象的关联。Set MyObject = NothingNull Null 关键字用于指明变量包含的数据无效。此关键字与 Empty 并不相同。True, FalseTrue 关键字的值等于 -1。 False 关键字的值为零。 控制流程 Do...Loop当条件为 True 时或条件变为 True 之前重复执行某语句块。Do Until DefResp = vbNo MyNum = Int (6 * Rnd + 1) 产生 1 到 6 之间的随机数。 DefResp = MsgBox (MyNum 想要另一个数吗？, vbYesNo) Loop Dim Check, Counter Check = True: Counter = 0 初始化变量。 Do 外层循环。 Do While Counter 20 内层循环。 Counter = Counter + 1 增加计数器。 If Counter = 10 Then 如果条件为 T