《VBScript脚本编程》PPT课件.ppt

VBScript脚 本 编 程 VBS Edit破 解n 安 装 完 后 需 要 注 册 ， 出 现 下 图 ： VBS Edit破 解n 双 击 Keygen.exe， 弹 出 如 下 窗 口 ： VBS Edit破 解n 点 击 “ Generate”， 在 Serial 中 ， 将 序 列号 复 制 ， 粘 贴 到 上 述 窗 口 中 ， 点 击Evaluate， 弹 出 如 下 窗 口 ： VBS Edit破 解n 在 该 窗 口 中 选 择 “ Activate manually” n 在 Keygen 窗 口 中 复 制 Activation 中 的 内 容 ，粘 贴 到 上 图 中 的 输 入 框 中 ， 点 击 OK。 VBScript简 介n VBS， 即 Microsoft Visual Basic Scripting Edition， 它 是 Microsoft Visual Basic语 言 的 一 个 子 集 ， 它 并 不 是 一 个 完 整 的程 序 设 计 语 言 ， 仅 包 含 语 言 中 的 一 些 基本 功 能 。 VBScript的 最 大 优 点 是 ： 用 纯文 本 建 立 、 直 接 包 含 在 HTML文 档 中 、 编辑 和 修 改 都 十 分 便 利 。 第 一 个 VBScript脚 本n Set objshell = CreateObject(Shell.Application)n Set objNS = objshell.namespace(&h2f)n Set colitems = objNS.itemsn For Each objitem In colitemsn WScript.Echo objitem.namen Next 编 译 环 境n VBS Editn 安 装 方 法 VBS脚 本 的 注 释n Vbs中 使 用 单 引 号 来 注 释 ” ” ,注 释 的信 息 在 vbsedit编 辑 环 境 中 显 示 为 绿 色 。显 示 一 条 信 息Msgbox 夜 深 人 静 ， 小 心 身 后 啊 VBS基 础 知 识n 1.脚 本 的 注 释n 格 式 一 ： Rem 注 释 内 容n 格 式 二 ： 注 释 内 容 VBS基 础 知 识n 2.将 单 行 语 句 分 成 多 行n 在 编 写 程 序 代 码 时 ， 有 的 语 句 可 能 会 很长 ， 为 了 在 阅 读 和 对 程 序 查 错 时 直 观 、方 便 ， 可 使 用 续 行 符 “ -” （ 由 一 个 空格 和 一 个 下 划 线 组 成 ） ， 将 长 的 语 句 分成 多 行 书 写 。 VBS基 础 知 识n 3.使 用 不 同 进 制 的 数 字n 在 VBScript中 ， 除 了 可 以 使 用 默 认 的 十 进 制 来表 示 数 字 外 ， 还 允 许 使 用 十 六 进 制 或 八 进 制 来表 示 数 字 。 对 于 不 同 进 制 的 数 ， VBScript在 表达 方 式 上 有 明 确 规 定 ， 即 十 六 进 制 数 要 加 前 缀 H（ 如 H9） ， 八 进 制 数 要 加 前 缀 0（ 数 字零 ） 或 &O（ 字 母 O） （ 如 011或 &O11） ， 十 进制 数 不 用 加 任 何 前 缀 。 VBS基 础 知 识n 4. VBScript语 句 中 的 英 文 字 母 不 区 分 大小 写 ， VBScript脚 本 代 码 是 一 种 纯 文 本 ，可 以 用 任 何 一 种 文 本 编 辑 器 编 写 。 VBS的 数 据 类 型n 在 Visual Basic、 C+等 高 级 语 言 中 ， 数 据 类型 都 是 分 为 整 数 、 字 符 等 不 同 的 类 型 ， 但 在VBScript中 ， 只 有 一 种 数 据 类 型 ， 称 为Variant（ 变 体 类 型 ） 。 n Variant既 能 表 示 数 字 ， 又 能 表 示 字 符 ， 还 能表 示 其 他 的 类 型 ， vbs 在 执 行 时 会 自 动 识 别和 转 换 类 型 。n 所 以 它 也 是 VBScript 中 所 有 函 数 的 返 回 值 的数 据 类 型 。 VBS的 数 据 类 型n 一 般 情 况 下 VBScript也 会 根 据 代 码 的 上 下 文自 动 转 换 数 据 的 子 类 型 。 例 如 ：Variable_1=”2001”， 这 里 Variable_1作 为 一个 字 符 串 变 量 来 工 作 ， 而 如 果 下 面 有Variable_2=Variable_1 3， 这 时 VBScript就会 自 动 将 Variable_1转 换 成 整 数 变 量 ， 然 后参 与 运 算 。 但 有 时 候 ， 也 会 遇 到 一 些 数 据 类型 不 匹 配 造 成 的 错 误 。 这 时 ， 可 以 使 用VBScript的 转 换 函 数 来 强 制 转 换 数 据 的 子 类型 。 (见 VBScript帮 助 文 件 ) VBS的 数 据 类 型Dim aa=2001 VBScript会 将 它 当 成 整 数 对 待a=”2001” VBScrint会 将 它 当 成 字 符 串 对 待a=20.01 VBScript会 将 它 当 成 小 数 对 待a=false VBScript会 将 它 当 成 一 个 布 尔 值 VBS的 数 据 类 型n 可 以 使 用 VarType 来 看 看 它 到 底 是 什 么 类 型的 ， 如 下 面 的 代 码 ：Dim VarTypeCheckVarTypeCheck = VarType(123)MsgBox VarTypeCheck 返 回 2 表 示 整 型VarTypeCheck = VarType(123)MsgBox VarTypeCheck 返 回 8 表 示 字 符 型 子 类 型 描 述Empty 未 初 始 化 的 Variant。 对 于 数 值 变 量 ， 值 为 0； 对 于 字 符 串 变 量 ， 值 为 零长 度 字 符 串 ()。Null 不 包 含 任 何 有 效 数 据 的 Variant。Boolean 包 含 True 或 False。Byte 包 含 0 到 255 之 间 的 整 数 。Integer 包 含 -32,768 到 32,767 之 间 的 整 数 。Currency -922,337,203,685,477.5808 到 922,337,203,685,477.5807。Long 包 含 -2,147,483,648 到 2,147,483,647 之 间 的 整 数 。Single 包 含 单 精 度 浮 点 数 ， 负 数 范 围 从 -3.402823E38 到 -1.401298E-45， 正 数范 围 从 1.401298E-45 到 3.402823E38。Double 包 含 双 精 度 浮 点 数 ， 负 数 范 围 从 -1.79769313486232E308 到 - 4.94065645841247E-324， 正 数 范 围 从 4.94065645841247E-324 到 1.79769313486232E308。Date (Time) 包 含 表 示 日 期 的 数 字 ， 日 期 范 围 从 公 元 100 年 1 月 1 日 到 公 元 9999 年 12 月 31 日 。String 包 含 变 长 字 符 串 ， 最 大 长 度 可 为 20 亿 个 字 符 。Object 包 含 对 象 。Error 包 含 错 误 号 。 VBS常 量n 声 明 常 量 的 意 义 就 在 于 可 以 在 程 序 的 任 何 部分 使 用 该 常 量 来 代 表 特 定 的 值 ， 从 而 方 便 程序 的 编 写 和 修 改 。 例 如 在 程 序 中 定 义 Const PI=3.1415926 Const ConstDate=#2001-1-12# Msgbox PI VBS常 量n 1 文 字 常 量n （ 1） 字 符 串 常 量 ： 用 双 引 号 作 为 定 界 符 ， 由 ASCII码 字 符 组 成 （ 除 双 引 号 和 回 车 符 外 ） ， 长 度 不 能 超过 20亿 个 字 符 。 例 如 ： 中 华 人 民 共 和 国 、1233.45等 。n （ 2） 数 值 常 量 ： 包 括 整 型 数 、 长 整 型 数 和 浮 点 数 。例 如 ： 0、 300、 -4125、 &H85（ 表 示 十 六 进 制 数85） 、 &O226（ 表 示 八 进 制 数 226） 、 1.23E8、3.54E-5等 。 n （ 3） 日 期 时 间 型 常 量 ： 用 #号 括 起 来 。 例 如 ：#2001-3-15#、 #2003-4-20 8:38:25 AM#等 。 VBS常 量n 2 符 号 常 量常 量 名 称 常 量 含 义True 表 示 布 尔 真 值False 表 示 布 尔 假 值Null 表 示 空 值Empty 表 示 没 有 初 始 化 之 前 的 值vbCr 表 示 回 车 vbCrLf 表 示 回 车 /换 行vbTab 表 示 制 表 符 VBS变 量n 1.变 量 声 明n 声 明 变 量 的 一 种 方 式 是 使 用 Dim、 Redim、Public和 Private在 脚 本 中 显 式 声 明 变 量 。如 ： Dim namen 注 意 ： 别 乱 加 分 号 ！ VBS变 量n (1)Dimn 格 式 ：Dim 变 量 名 称例 如 ： Dim DegreesFahrenheitn 声 明 多 个 变 量 时 ， 使 用 逗 号 分 隔 变 量 。例 如 ： Dim Top, Bottom, Left, Right VBS变 量n (2)Redimn Redim语 句 是 专 用 来 定 义 数 组 的 。 当 需 要 根据 数 据 的 增 加 和 删 除 来 扩 大 或 缩 小 数 组 的 大小 时 ， 可 通 过 Redim语 句 来 实 现 。 VBS变 量下 面 是 一 个 扩 大 数 组 的 简 单 格 式 ：Dim datanum程 序 代 码Redim Preserve datanum(20)Redim Preserve datanum(20)语 句 将 数 组 的 元 素 扩 大到 20。 默 认 的 情 况 下 ， 使 用 Redim语 句 的 同 时 会 清 除 数组 中 的 所 有 值 。 而 使 用 Preserve关 键 字 可 以 将 所 有 现存 的 数 据 保 存 下 来 ， 并 添 加 新 的 空 白 单 元 ； 如 果 缩 小了 数 组 的 大 小 ， 那 么 被 减 去 的 单 元 中 的 数 据 也 会 丢 失 。 VBS变 量n (3)Publicn Public关 键 字 用 于 定 义 全 局 型 变 量 。格 式 ： Public 变 量 名 称例 如 ： Public a,bn 和 Dim一 样 ， Public可 以 声 明 变 量 ， 并 可 以 一次 声 明 多 个 变 量 ， 也 可 以 声 明 一 维 或 多 维 数组 。 所 不 同 的 是 Public关 键 字 定 义 的 变 量 是全 局 变 量 。 VBS变 量n (4)PrivatePrivate关 键 字 可 以 定 义 变 量 、 一 次 定 义 多 个变 量 、 定 义 一 维 或 多 维 数 组 ， 不 同 的 只 是 变量 的 作 用 范 围 不 同 。n 下 面 列 出 了 使 用 上 面 语 句 或 关 键 字 定 义 的 变量 的 可 能 作 用 范 围 ： lDim： 整 个 脚 本 程 序 或 过 程 、 函 数 中 。 lRedim： 整 个 脚 本 程 序 或 过 程 、 函 数 中 。 lPublic： 整 个 脚 本 程 序 。 lPrivate： 过 程 或 函 数 中 。 VBS变 量n 另 一 种 声 明 方 式 是 通 过 直 接 在 脚 本 中 使 用变 量 名 这 一 简 单 方 式 隐 式 声 明 变 量 。 这 不是 一 个 好 习 惯 ， 因 为 这 样 有 时 会 由 于 变 量名 被 拼 错 而 导 致 在 运 行 脚 本 时 出 现 意 外 的结 果 。 因 此 ， 最 好 使 用 Option Explicit 语 句 显 式 声 明 所 有 变 量 ， 并 将 其 作 为 脚 本的 第 一 条 语 句 。 这 样 ， 如 果 以 后 拼 写 错 变量 名 ， VBScript就 会 提 醒 你 这 个 变 量 没 有 声明 ， 而 避 免 出 现 由 于 拼 写 错 误 所 造 成 的 问题 。 VBS变 量option ExplicitDim ij=0 VBS变 量n 2.变 量 命 名 规 则n 变 量 的 名 字 必 须 以 字 母 开 头 。n 名 字 中 不 能 含 有 句 号 。n 名 字 不 能 超 过 255个 字 符 。n 名 字 不 能 和 VBScript中 的 关 键 字 同 名 。n 变 量 名 在 被 声 明 的 作 用 域 内 必 须 惟 一 。 VBS变 量n 3.变 量 的 作 用 域n 指 的 是 变 量 的 有 效 范 围 ， 在 VBScript中 分 为过 程 内 有 效 和 整 个 程 序 中 都 有 效 。 在 变 量 过程 内 部 声 明 的 变 量 称 为 过 程 级 变 量 或 局 部 变量 ， 这 样 的 变 量 只 有 在 声 明 它 们 的 过 程 中 才能 使 用 ， 即 无 法 在 过 程 外 部 访 问 ； 过 程 外 部声 明 的 变 量 称 为 脚 本 级 变 量 或 全 局 变 量 。 VBS变 量n sub ss()n dim x 声 明 x局 部 变 量n x=22n MsgBox xn end subn dim x 声 明 x全 局 变 量n x=1 n call ss 调 用 ss过 程 ， 无 参 数n MsgBox x 数 组n VBScript中 的 数 组 有 以 下 几 个 特 点 ：n 使 用 数 组 之 前 要 先 进 行 定 义 ， 然 后 才 能 使 用 。通 常 用 Dim语 句 来 定 义 数 组 。n 数 组 下 标 的 下 界 一 律 从 0开 始 。n 一 个 数 组 中 可 以 含 有 各 种 子 类 型 的 数 据 元 素 。n 在 VBScript中 ， 数 组 分 为 两 种 类 型 ， 即 静 态数 组 和 动 态 数 组 。 数 组n 1 静 态 数 组n 静 态 数 组 可 分 为 一 维 数 组 、 二 维 数 组 或 多 维 数 组 。数 组 的 维 数 和 大 小 由 数 组 名 之 后 紧 跟 的 括 号 中 的 数字 的 个 数 和 数 值 的 大 小 来 决 定 。 静 态 数 组 在 编 译 时开 辟 内 存 区 ， 因 此 它 的 大 小 在 运 行 时 是 不 可 以 改 变的 。n 2 动 态 数 组 n 定 义 一 般 分 两 步 ： 首 先 用 Dim语 句 声 明 一 个 括 号 内不 包 含 下 标 的 数 组 ， 然 后 在 使 用 数 组 之 前 用 ReDim语 句 根 据 实 际 需 要 重 新 定 义 下 标 值 。 也 可 以 用ReDim语 句 直 接 定 义 数 组 。 运 行 时 大 小 可 变 。 数 组n 定 义 一 个 固 定 长 度 的 数 组 Dim A(10) 包 含 11个 元 素n 下 例 中 ， MyTable 变 量 是 一 个 有 6行 和 11列的 二 维 数 组 ：Dim MyTable(5, 10) 数 组Dim MyArray(5)Dim lengthMyArray(0) = 0MsgBox MyArray(0)返 回 指 定 数 组 维 数 的 最 大 可 用 下 标length = UBound(MyArray)MsgBox length 数 组n 也 可 以 声 明 动 态 数 组 ， 即 在 运 行 脚 本 时 大 小发 生 变 化 的 数 组 。n 对 数 组 的 最 初 声 明 使 用 Dim语 句 或 ReDim语句 。 但 是 对 于 动 态 数 组 ， 括 号 中 不 包 含 任 何数 字 。 如 ： Dim MyArray() ReDim AnotherArray() 数 组n 要 使 用 动 态 数 组 ， 必 须 随 后 使 用 Redim确 定维 数 和 每 一 维 的 大 小 。 Redim MyArray(25) Redim Preserve MyArray(30)n 重 新 调 整 动 态 数 组 大 小 的 次 数 是 没 有 任 何 限制 的 。 但 是 应 注 意 ： 将 数 组 的 大 小 调 小 时 ，将 会 丢 失 被 删 除 元 素 的 数 据 。 数 组n 动 态 数 组 的 例 子 。Dim MyArray()ReDim MyArray(3)Dim lengthMyArray(0) = 我 MyArray(1) = 是 MyArray(2) = 小 MyArray(3) = “王 ReDim Preserve MyArray(5)MyArray(4) = 老 MyArray(5) = 师 返 回 指 定 数 组 维 数 的 最 大 可 用 下 标length = UBound(MyArray)For i=0 To length MsgBox MyArray(i)Next VBS赋 值 语 句n 多 个 变 量 附 相 同 的 值 时 ， 不 能 写 成 ： 变 量 1=变 量 2=表 达 式n 声 明 变 量 时 不 能 同 时 赋 值 ， 下 面 语 句 是 错 误的 ： Dim a=2n 对 对 象 赋 值 要 使 用 set set rs=server.CreateObject(“ADODB.Recordset”) VBS运 算 符n VBScript的 操 作 符 包 括 算 术 运 算 符 、 比 较 运算 符 、 连 接 运 算 符 和 逻 辑 运 算 符 。n 1.算 术 运 算 符 :+、 -、 *、 /、 取 余 Mod、 求幂 ( )等 。n 2.逻 辑 运 算 符 :与 And、 或 Or、 非 Not和 Xor。其 返 回 值 为 ： 真 (True)、 假 (False) VBS运 算 符n 3. 字 符 串 (连 接 )运 算 符 : 或 +n 【 例 】 result=expression1 expression2n 说 明 ： 将 两 个 表 达 式 进 行 字 符 串 连 接 ； 当 任 意 一 表 达 式 不是 字 符 串 时 ， 它 将 被 转 换 为 String类 型 ； 如 果 两 个 表 达 式 都为 Null， result也 为 Null； 如 果 仅 有 一 个 为 Null或 任 意 一 个 表达 式 为 Empty， 则 它 和 其 他 表 达 式 连 接 时 ， 按 零 长 度 字 符 串( )处 理 。n 【 例 】 result=expression1 + expression2n 说 明 ： 如 果 两 个 表 达 式 都 是 数 值 ， 则 +运 算 符 表 示 相 加 ； 如果 两 个 表 达 式 都 是 字 符 串 ， 则 表 示 连 接 ； 如 果 一 个 表 达 式为 字 符 串 ， 一 个 表 达 式 为 数 值 ， 则 表 示 相 加 (都 是 数 字 )。(所 以 一 般 仍 使 用 &运 算 符 来 进 行 字 符 串 的 连 接 ， 这 是 因 为在 使 用 +运 算 符 时 ， 可 能 无 法 确 定 是 执 行 加 法 还 是 字 符 串 连接 )。 VBS运 算 符 &用 于 强 制 连 接 两 个 表 达 式 ， 合 成 一 个 字 符 串 。 例 ： dim a,b,ab a=“hello_” b=123 ab=a&b /* ab的 值 为 “ hello_123” */ 任 一 表 达 式 不 是 字 符 串 时 ， 它 将 被 转 换 为 String 子 类 型 。 也 可 以 使 用 + 运 算 符 连 接 两 个 字 符 串 ， 建 议 使 用 & 进 行 字 符 串 的 连 接 ， 以 避 免 混 淆 。 在 下 面 的 代 码 中 要 注 意 ， 我 们 一 般 连 接 字符 时 要 用 &， 不 要 用 +， 这 样 可 以 避 免 混 乱Dim num1,num2,str1,str2Dim sum,strnum1 = 1num2 = 2str1 = 小 str2 = 强 sum = num1+num2 MsgBox sumsum = num1+ str1 MsgBox sumstr = str1 & str2MsgBox str VBS条 件 语 句n 在 VBScript中 ， 可 以 使 用 两 种 条 件 语 句 来 控制 脚 本 流 程 ， 分 别 是 IfThenElse语 句 ，和 Select Case语 句 。 前 者 可 以 按 需 要 进 行 嵌套 。 VBS条 件 语 句if time#5:00:00PM# then greeting=“晚 上 好 ！ ”end if。 VBS条 件 语 句Dim contidion,strcontidion = 你 是 亿 万 富 翁 吗 ？ str = 我 是 穷 光 蛋 If contidion = str ThenMsgBox 就 是 你 了 ElseMsgBox 等 等 在 说 吧 End if VBS条 件 语 句Dim strstr = 我 爱 美 人 Select Case strCase 我 爱 江 山 MsgBox 我 爱 江 山 Case 我 爱 美 人 MsgBox 我 爱 美 人 Case Else MsgBox 我 什 么 都 不 爱 End select VBS循 环 语 句n 在 VBScript中 ， 可 以 使 用 多 种 循 环 语 句 来 表达 循 环 ， 包 括 ：n Do Loop : 当 （ 或 直 到 ） 条 件 为 True时 循 环n WhileWend: 当 条 件 为 True时 循 环n ForNext: 指 定 循 环 次 数 ， 使 用 计 数 器 重 复 执行 语 句 n For Each Next: 对 于 集 合 中 的 每 项 或 数 组 中的 每 个 元 素 ， 重 复 执 行 一 组 语 句 VBS循 环 语 句For next 用 法Dim MyName,MyWriting,iMyName = “呵 呵 MyWriting = “希 望 大 家 多 多 支 持 我 的 课 程 For i=0 To 1MsgBox MyNameMsgBox MyWritingNext VBS循 环 语 句for each 的 用 法Dim MyWriting(1)MyWriting(0) = “呵 呵 MyWriting(1)= “希 望 大 家 多 多 支 持 我 的 课 For Each element In MyWritingMsgBox elementNext VBS循 环 语 句do loop 的 用 法Dim ageage = 23Do Until age = 100age= age+1LoopMsgBox “好 好 学 习 ， 天 天 向 上 VBS循 环 语 句while 的 用 法Dim moneymoney = 2While money 0money = money -1WendMsgBox 我 身 无 分 文 了 Sub和 Function n Sub和 Function都 是 过 程 ， 但 是 Sub不 能返 回 值 ， 而 Function可 以 返 回 值 。n 对 Function的 调 用 只 需 要 输 入 过 程 名 及 参数 即 可 ， 对 Sub的 调 用 可 以 使 用 Call语 句的 方 式 ， 也 可 以 使 用 直 接 输 入 过 程 名 及参 数 的 方 式 。 但 是 如 果 使 用 Call语 句 ， 则需 要 把 参 数 用 括 号 括 起 来 Sub和 Function 定 义 Add子 过 程Sub AddMethod(num)tmp = num+100End Sub 调 用 AddMethod子 过 程AddMethod 200 使 用 Call语 句 调 用Call AddMethod(200)MsgBox tmp Sub和 Functionfunction。Dim str,str1,str2str1 = 努 力 工 作 Function Flighting(str)str2 = 我 要 & strFlighting = str2End FunctionMsgBox Flighting(str1) VBScript常 用 函 数 n 1. 字 符 串 函 数n Len： 返 回 字 符 串 内 字 符 的 数 目 ， 或 是 存储 一 变 量 所 需 的 字 节 数 。 n Left： 返 回 指 定 数 目 的 从 字 符 串 的 左 边 算起 的 字 符 。 n Mid： 从 字 符 串 中 返 回 指 定 数 目 的 字 符 。 n Right： 从 字 符 串 右 边 返 回 指 定 数 目 的 字符 。 VBScript常 用 函 数n Lcase： 返 回 字 符 串 的 小 写 形 式 。n Ucase： 返 回 字 符 串 的 大 写 形 式 。 n StrComp： 返 回 一 个 表 明 字 符 串 比 较 结 果的 值 。 Dim MyStr1, MyStr2, MyCompMyStr1 = ABCD: MyStr2 = abcd 定 义 变 量 。MyComp = StrComp(MyStr2,MyStr1) 返 回 1。MsgBox MyComp VBScript常 用 函 数n Split： 返 回 基 于 0 的 一 维 数 组 ， 其 中 包 含指 定 数 目 的 子 字 符 串 。 VBScript常 用 函 数Dim MyString, MyArray, MsgMyString = VBScriptXisXfun!MyArray = Split(MyString, x, -1, 1)Msg = MyArray(0) & & MyArray(1)Msg = Msg & & MyArray(2)MsgBox Msg 显 示 VBScript is fun! VBScript常 用 函 数n Join： 返 回 一 个 字 符 串 ， 此 字 符 串 由 包 含在 数 组 中 的 许 多 子 字 符 串 联 接 创 建 。 VBScript常 用 函 数Dim MyStringDim MyArray(3)MyArray(0) = Mr.MyArray(1) = John MyArray(2) = Doe MyArray(3) = IIIMyString = Join(MyArray)MsgBox MyString VBScript常 用 函 数n 2.转 换 函 数n CStr： 返 回 表 达 式 ， 该 表 达 式 已 被 转 换为 String子 类 型 的 VariantDim MyDouble,MyStringMyDouble = 437.234MyString=CStr(MyDouble)MsgBox MyString VBScript常 用 函 数n 3.判 断 函 数n IsArray： 返 回 Boole an 值 指 明 某 变 量 是 否 为 数 组 。 Dim MyVariableDim MyArray(3)MyArray(0)=SundayMyArray(1)=MondayMyArray(2)=TuesdayMyVariable=IsArray(MyArray) MyVariable为 TrueMsgBox MyVariable VBScript常 用 函 数n 4.输 入 输 出 函 数 n MsgBox： 输 出 函 数 。 该 函 数 告 诉 用 户 一 些 信 息 。语 法 如 下 ： MsgBox（ prompt ， button ， title ） prompt 显 示 在 窗 口 中 的 文 字 button 可 选 项 ， 用 以 指 定 窗 口 的 外 观 和 按 钮的 类 型 title 可 选 项 ， 显 示 在 窗 口 标 题 中 的 文 字 内 的 内 容 表 示 是 可 选 项 ， 如 果 不 选 时 ， 则 系统 会 采 用 默 认 设 置 。 VBScript常 用 函 数n 名 称 值 说 明n Vbcritical 16 “重 要 信 息 ”图 标n Vbquestion 32 “询 问 符 号 ”n Vbexclamation 48 “警 告 符 号 ”n Vbinformation 64 “信 息 ” VBScript常 用 函 数n 函 数 MsbBox的 返 回 值返 回 值 对 应 常 数 对 应 按 钮1 FbOk 确 定2 VbCancel 取 消3 VbAbort 放 弃4 VbRetry 重 试5 VbIgnore 忽 略6 VbYes 是 7 VbNo 否 VBScript常 用 函 数MsgBox 我 最 想 做 的 事 是 去 周 游 世 界 ！,2,理 想 之 窗 VBScript常 用 函 数n 4.输 入 输 出 函 数 n InputBox： 输 入 函 数 。 该 函 数 用 于 显 示 一 个 输 入 窗口 ， 要 求 用 户 输 入 数 据 。 语 法 如 下 ： String=Inputbox（ prompt ， title ， default ） String 文 本 框 中 的 内 容 ， 即 用 户 输 入 的 内 容 prompt 显 示 在 窗 口 中 的 提 示 文 字 title 可 选 项 ， 显 示 在 窗 口 标 题 中 的 文 字 default 可 选 项 ， 用 于 指 定 窗 口 中 文 本 输 入 框内 的 默 认 字 符 串 VBScript常 用 函 数Option Explicit Dim name1 name1=InputBox(你 目 前 最 想 做 的 事 情 是,输 入 你 所 想 的 )MsgBox 你 最 想 做 的 事 是 & name1 VBScript常 用 函 数n 5.转 换 函 数 n CStr()n Cint()n Cdate()n Csng ()n Cbool ()n Clng() VBScript常 用 函 数Num1=1000Str1=欢 迎 你 第 &CStr(Num1) & 次 光 临 本店 ！ MsgBox str1