SMM667.mps

第 章 设 计 简 单 程 序 本 章 是 学 习 VB 程 序 设 计 的 入 门 篇, 其 中 涉 及 的 几 个 常 用 控 件 和 基 本 语 句 是 后 续 章 节 中 反 复 使 用 的 基 础 内 容 学 习 目 标 瞯 了 解 顺 序 程 序 结 构 瞯 熟 悉 用 户 界 面 的 设 计 和 简 单 代 码 设 计 瞯 掌 握 赋 值 语 句 和 InputBox MsgBox Print Cls 语 句 的 用 法 瞯 熟 练 掌 握 窗 体 按 钮 标 签 文 本 框 的 常 用 属 性 事 件 和 方 法 瞯 能 编 写 简 单 的 完 整 的 顺 序 结 构 程 序 内 容 框 架

3.1 程 序 设 计 方 法 的 发 展 47 3.1 程 序 设 计 方 法 的 发 展 本 节 偏 重 于 程 序 设 计 方 法 发 展 的 描 述 和 理 论 说 明, 预 习 或 自 学 的 同 学 不 必 做 深 入 研 究, 对 本 节 内 容 了 解 即 可 随 着 计 算 机 技 术 的 发 展, 程 序 设 计 语 言 经 历 了 机 器 语 言 汇 编 语 言 到 高 级 语 言 等 多 个 阶 段, 程 序 设 计 方 法 也 不 断 发 展 和 改 进 3.1.1 初 期 的 程 序 设 计 在 计 算 机 出 现 的 早 期, 为 了 能 在 内 存 小 速 度 慢 且 机 时 昂 贵 的 计 算 机 中 解 决 大 量 的 科 学 计 算 问 题, 程 序 员 不 得 已 要 使 用 巧 妙 的 手 段 和 技 术, 手 工 编 写 能 高 效 运 行 的 程 序, 这 样 就 不 可 避 免 地 使 程 序 存 在 可 读 性 差 维 护 困 难 和 通 用 性 不 强 等 问 题 在 20 世 纪 五 六 十 年 代, 晶 体 管 与 集 成 电 路 先 后 问 世, 使 计 算 机 性 能 价 格 比 不 断 提 高, 高 级 语 言 蓬 勃 发 展 此 时 的 计 算 机 应 用 已 渗 透 到 各 科 学 领 域, 程 序 员 需 要 解 决 的 问 题 变 得 更 复 杂, 程 序 规 模 更 大 而 手 工 方 式 编 程 的 缺 陷 已 成 为 阻 碍 计 算 机 技 术 发 展 的 主 要 障 碍, 也 拉 开 了 研 究 程 序 设 计 方 法 的 序 幕 3.1.2 结 构 化 程 序 设 计 结 构 化 程 序 设 计 在 20 世 纪 70 年 代 一 经 提 出 就 得 到 了 广 泛 应 用 结 构 化 程 序 设 计 方 法 把 程 序 的 结 构 规 定 为 顺 序 选 择 和 循 环 3 种 基 本 结 构, 并 采 用 了 自 顶 向 下 逐 步 求 精 的 分 析 和 设 计 方 法, 即 功 能 分 解 方 法 这 种 方 法 把 整 个 需 求 视 为 一 个 功 能 模 块, 对 该 模 块 进 行 分 解, 生 成 多 个 小 的 功 能 模 块, 再 反 复 分 解, 直 至 每 个 功 能 模 块 都 具 有 明 确 的 功 能 和 适 当 的 复 杂 度, 而 每 个 功 能 模 块 功 能 的 实 现 由 上 述 3 种 基 本 结 构 完 成 其 目 的 是 为 了 解 决 多 人 协 作 编 程 从 而 高 效 完 成 大 型 软 件 开 发 的 问 题 此 时, 程 序 的 可 读 性 好 易 于 维 护 成 为 评 价 程 序 质 量 的 首 要 条 件 结 构 化 程 序 设 计 技 术 虽 然 已 使 用 了 几 十 年, 但 仍 存 在 如 下 缺 陷 有 待 解 决 : 1 这 种 面 向 过 程 的 程 序 设 计 方 法, 仍 然 存 在 与 人 的 思 维 方 式 不 协 调 的 地 方, 很 难 自 然 准 确 地 反 映 真 实 世 界 因 而 用 此 方 法 开 发 出 来 的 软 件, 有 时 很 难 保 证 质 量 2 该 方 法 实 现 只 突 出 了 实 现 功 能 的 操 作 方 法, 而 被 操 作 的 数 据 处 于 实 现 功 能 的 从 属 地 位, 即 程 序 模 块 和 数 据 结 构 是 紧 密 地 耦 合 在 一 起 的 因 此, 当 应 用 程 序 比 较 复 杂 时, 容 易 出 错, 难 以 维 护 由 于 上 述 缺 陷, 结 构 化 程 序 设 计 方 法 已 不 能 满 足 现 代 化 软 件 开 发 的 要 求, 一 种 全 新 的 软 件 开 发 技 术 应 运 而 生, 这 就 是 面 向 对 象 程 序 设 计 方 法 3.1.3 面 向 对 象 的 程 序 设 计 面 向 对 象 的 程 序 设 计 最 早 提 出 于 20 世 纪 80 年 代 用 面 向 对 象 的 方 法 来 解 决 问 题 更 能 准 确 地 反 映 真 实 的 世 界, 更 符 合 人 的 思 维 方 式 面 向 对 象 的 方 法 不 再 把 问 题 分 解 为 过 程, 而 是 将 问 题 分 解 为 对 象 对 象 是 现 实 世 界 中 可 以 独 立 存 在 可 被 区 分 的 一 些 实 体 或 是 概 念 上 的 实 体 对 象

48 第 3 章 设 计 简 单 程 序 有 自 己 的 数 据 ( 属 性 ), 也 包 括 作 用 于 数 据 的 操 作 ( 方 法 ) 对 象 把 自 己 的 属 性 和 方 法 封 装 成 一 个 整 体, 供 程 序 设 计 者 使 用 对 象 之 间 的 相 互 作 用 通 过 消 息 传 送 来 实 现 现 在, 这 种 对 象 + 消 息 的 面 向 对 象 的 程 序 设 计 模 式 已 经 逐 渐 取 代 了 数 据 结 构 + 算 法 的 面 向 过 程 的 程 序 设 计 模 式 当 然, 面 向 对 象 的 程 序 设 计 并 不 是 要 抛 弃 结 构 化 程 序 设 计 方 法, 而 是 站 在 比 结 构 化 程 序 设 计 更 高 更 抽 象 的 层 次 上 去 解 决 问 题 当 需 要 分 解 为 低 级 代 码 时, 仍 然 需 要 结 构 化 编 程 技 巧, 只 是 将 一 个 大 问 题 分 解 为 小 问 题 时 采 取 的 思 路 与 结 构 化 方 法 不 同 结 构 化 的 分 解 突 出 过 程, 强 调 的 是 如 何 做, 代 码 的 功 能 如 何 实 现 ; 面 向 对 象 的 分 解 突 出 现 实 世 界 和 抽 象 的 对 象, 强 调 的 是 做 什 么, 而 将 大 量 的 工 作 由 相 应 的 对 象 来 完 成, 程 序 员 在 应 用 程 序 中 只 需 说 明 要 求 对 象 完 成 的 任 务 面 向 对 象 的 程 序 设 计 给 软 件 的 发 展 带 来 了 以 下 益 处 : (1) 符 合 人 们 常 规 的 思 维 方 式 由 于 对 象 对 应 于 现 实 世 界 中 的 实 体, 因 而 可 以 很 自 然 地 按 照 现 实 世 界 中 处 理 实 体 的 方 法 来 处 理 对 象, 软 件 开 发 者 可 以 很 方 便 地 与 问 题 提 出 者 进 行 沟 通 和 交 流 (2) 易 于 软 件 的 维 护 和 功 能 的 增 减 对 象 的 封 装 及 对 象 间 的 松 散 耦 合 性, 都 给 软 件 的 修 改 和 维 护 带 来 了 方 便 (3) 可 重 用 性 好 重 复 使 用 一 个 类 ( 类 是 对 象 的 定 义, 对 象 是 类 的 实 例 化 ), 可 以 比 较 方 便 地 构 造 软 件 系 统, 加 上 继 承 的 方 式, 极 大 地 提 高 了 软 件 开 发 的 效 率 (4) 与 可 视 化 技 术 相 结 合, 改 善 了 工 作 界 面 随 着 基 于 图 形 界 面 操 作 系 统 的 流 行, 面 向 对 象 的 程 序 设 计 方 法 也 将 深 入 人 心 它 与 可 视 化 技 术 相 结 合, 已 经 使 人 机 界 面 进 入 图 形 时 代 目 前, 常 用 的 面 向 对 象 的 程 序 设 计 语 言 有 :Visual Basic Visual C ++ Borland C ++ Delphi 等 虽 然 它 们 风 格 各 异, 但 都 具 有 共 同 的 概 念 和 编 程 模 式 3.2 赋 值 语 句 VB 程 序 中 最 常 用 最 基 本 的 语 句 就 是 赋 值 语 句 赋 值 语 句 功 能 强 大, 使 用 该 语 句 可 以 完 成 任 何 表 达 式 的 运 算, 也 可 以 用 来 改 变 对 象 的 属 性 1. 赋 值 语 句 的 一 般 格 式 格 式 1: 格 式 2: 变 量 名 = 表 达 式 [ 对 象 名.] 属 性 名 = 表 达 式 2. 功 能 把 = 右 边 表 达 式 的 值 赋 给 = 左 边 的 变 量 ; 把 = 右 边 表 达 式 的 值 ( 属 性 值 ) 赋 给 = 左 边 对 象 的 属 性 名

3.2 赋 值 语 句 49 说 明 : 瞯 = 称 为 赋 值 号, 不 是 等 号 瞯 表 达 式 中 可 以 包 含 常 量 变 量 函 数 属 性 值, 可 以 是 算 术 表 达 式 字 符 串 表 达 式 关 系 型 表 达 式 或 逻 辑 表 达 式, 其 类 型 应 与 变 量 名 的 类 型 一 致, 否 则 会 出 现 类 型 不 匹 配 的 错 误 瞯 赋 值 语 句 是 先 计 算 表 达 式 的 值, 然 后 再 赋 值 举 例 如 下 : a =1000 把 1000 赋 值 给 变 量 a b =a +3 倡 10 把 表 达 式 的 值 赋 值 给 变 量 b Label1.Caption =" 计 算 机 语 言 " 把 计 算 机 语 言 赋 值 给 Label1.Caption Command1.Enabled =False 把 False 值 赋 值 给 Command1.Enabled c ="book" 把 "book" 赋 值 给 变 量 c A1 =b 把 变 量 b 的 值 赋 值 给 变 量 A1 3. 应 用 举 例 例 3.1 使 用 赋 值 语 句, 编 写 完 成 4 门 课 平 均 成 绩 计 算 的 VB 程 序 编 程 思 路 分 析 : 要 完 成 4 门 课 平 均 成 绩 的 计 算, 必 须 已 知 4 门 课 的 成 绩 ( 分 别 用 A B C D 表 示 ) 和 平 均 成 绩 计 算 公 式 :PJ =(A +B +C +D) /4 VB 程 序 设 计 的 步 骤 : (1) 设 计 界 面 先 建 立 窗 体, 再 利 用 控 件 在 窗 体 上 创 建 对 象 :Label1 Command1 和 Text1 (2) 设 置 属 性 按 图 3-1 所 示 设 置 窗 体 或 控 件 等 对 象 的 属 性 图 3-1 例 3.1 的 窗 体

50 第 3 章 设 计 简 单 程 序 (3) 编 写 代 码 为 完 成 平 均 成 绩 的 计 算 编 写 代 码, 如 图 3-2 所 示 图 3-2 编 写 代 码 (4) 运 行 程 序 将 设 计 好 的 应 用 程 序 保 存 并 运 行 运 行 界 面 如 图 3-3 所 示 图 3-3 运 行 界 面 思 考 : 模 仿 和 参 考 例 3.1 的 方 法 和 步 骤, 编 写 求 长 方 形 面 积 S =AB 和 求 一 元 二 次 方 程 ax 2 bx +c =0 的 两 个 实 根 等 程 序 - 3.3 窗 体 窗 体 是 用 户 界 面 的 基 础, 各 种 控 件 对 象 必 须 建 立 在 窗 体 上 在 VB 6.0 中, 每 当 创 建 一 个

3.3 窗 体 51 新 的 工 程 时, 都 会 得 到 一 个 默 认 名 为 Form1 的 窗 体, 此 时 窗 体 属 性 为 默 认 属 性, 如 图 3-4 所 示 图 3-4 窗 体 Form1 与 窗 体 属 性 3.3.1 属 性 窗 体 的 属 性 决 定 了 窗 体 的 外 观 和 操 作 可 以 通 过 在 属 性 窗 口 设 置 新 的 属 性 值 或 编 写 程 序 代 码 来 改 变 窗 体, 但 有 少 量 的 属 性 不 能 在 代 码 中 设 置 下 面 是 窗 体 的 常 用 属 性 (1) 名 称 属 性 名 称 属 性 即 Name 属 性, 用 来 指 定 窗 体 的 名 称, 在 程 序 代 码 中 用 这 个 名 称 引 用 该 窗 体 我 们 已 知 道, 第 一 个 窗 体 的 名 称 默 认 为 Form1; 添 加 第 二 个 窗 体, 其 名 称 默 认 为 Form2, 依 此 类 推 通 常 情 况 下 要 给 Name 属 性 设 置 一 个 有 实 际 意 义 的 名 称, 以 便 识 别 (2) AutoRedraw 属 性 该 属 性 控 制 窗 体 图 像 的 重 画 只 有 某 窗 体 本 属 性 值 为 True 时, 在 其 他 窗 体 覆 盖 然 后 移 出 此 窗 体 后,VB 才 能 重 画 此 窗 体 内 的 所 有 图 形, 即 重 画 Print Cls Circle 等 方 法 的 输 出 (3) BackColor 属 性 和 ForeColor 属 性 瞯 BackColor 属 性 : 设 置 窗 体 的 背 景 颜 色 瞯 ForColor 属 性 : 设 置 窗 体 的 前 景 颜 色 窗 体 的 前 景 色 是 执 行 Print 方 法 时 所 显 示 文 本 的 颜 色 (4) BorderStyle 属 性 决 定 窗 体 边 框 式 样 及 窗 体 是 否 能 调 整 大 小

52 第 3 章 设 计 简 单 程 序 (5) Caption 属 性 设 置 窗 体 标 题 栏 显 示 的 文 本 (6) Enabled 属 性 用 来 设 置 窗 体 是 否 响 应 鼠 标 或 键 盘 事 件 属 性 值 为 True( 默 认 值 ) 时, 窗 体 能 够 对 用 户 产 生 的 事 件 做 出 反 应 ; 属 性 值 设 为 False 时, 窗 体 不 响 应 鼠 标 或 键 盘 事 件 (7) Font 属 性 设 置 窗 体 上 字 体 的 样 式 大 小 字 形 等 设 置 该 属 性 时, 用 鼠 标 单 击 其 右 边 的 按 钮 将 弹 出 字 体 对 话 框, 从 中 可 设 置 字 体 (8) Height 属 性 和 Width 属 性 设 置 窗 体 的 高 度 和 宽 度, 单 位 为 Twip 1 Twip =1 /1 440 in =1 /567 cm (9) Left 属 性 和 Top 属 性 瞯 Left: 设 置 窗 体 左 边 框 距 屏 幕 左 边 界 的 距 离 瞯 Top: 设 置 窗 体 顶 边 距 屏 幕 顶 端 的 距 离 (10) MaxButton 属 性 和 MinButton 属 性 用 来 设 置 窗 体 的 右 上 角 的 最 大 化 按 钮 和 最 小 化 按 钮 瞯 MaxButton 属 性 为 True, 最 大 化 按 钮 可 用 ; 为 False 时, 最 大 化 按 钮 不 可 用 ( 呈 灰 色 ) 瞯 MinButton 属 性 为 True, 最 小 化 按 钮 可 用 ; 为 False 时, 最 小 化 按 钮 不 可 用 ( 呈 灰 色 ) 瞯 MaxButton MinButton 属 性 同 时 设 置 为 False 时, 不 显 示 最 大 化 按 钮 和 最 小 化 按 钮 (11) Picture 属 性 设 置 在 窗 体 中 显 示 的 图 片 单 击 Picture 属 性 右 边 的 按 钮, 弹 出 加 载 图 片 对 话 框, 从 中 可 以 选 择 位 图 ( 倡.BMP) GIF 图 像 JPEG 图 像 和 ICONS 等 图 像 格 式 文 件 作 为 窗 体 的 背 景 图 片 若 在 程 序 中 设 置 该 属 性 的 值, 需 要 使 用 LoadPicture() 函 数 (12) StartUpPosition 属 性 指 定 窗 体 首 次 出 现 时 的 位 置 该 属 性 有 4 个 设 置 值 0 - 手 动 : 没 有 指 定 初 始 设 置 值 窗 体 出 现 的 位 置 由 属 性 Left 和 Top 决 定 1 - 所 有 者 中 心 :UserForm 所 属 的 项 目 中 央 2 - 屏 幕 中 心 : 窗 体 出 现 在 显 示 器 屏 幕 的 中 央 3 - 窗 口 默 认 : 按 照 默 认 设 置, 窗 体 出 现 在 屏 幕 的 左 上 角 (13) Visible 属 性 设 置 窗 体 是 否 显 示, 属 性 值 为 True 或 False 瞯 True: 使 窗 体 可 见, 此 值 为 默 认 值 瞯 False: 在 运 行 时, 窗 体 及 其 上 面 的 对 象 都 将 被 隐 藏 (14) WindowState 属 性 设 置 窗 体 运 行 时 的 大 小 状 态 它 有 3 个 可 选 值 0 -Normal: 窗 体 大 小 由 Height 和 Width 属 性 决 定, 此 值 为 默 认 值 1 -Minimized: 窗 体 最 小 化 成 图 标 2 -Maximized: 窗 体 最 大 化, 充 满 整 个 屏 幕 在 VB 中, 虽 然 不 同 的 对 象 有 不 同 的 属 性 集 合, 但 有 一 些 属 性, 如 Name Enabled Height

3.3 窗 体 53 Width Left Top Visible 等, 其 他 控 件 也 具 有 且 具 有 相 似 的 作 用 在 后 续 的 章 节 中, 将 主 要 介 绍 各 种 控 件 常 用 的 特 殊 属 性 3.3.2 事 件 在 代 码 窗 口 中, 确 保 左 上 方 对 象 下 拉 框 中 选 中 Form, 单 击 右 侧 事 件 下 拉 框, 会 看 到 窗 体 的 很 多 事 件, 这 里 只 讲 最 常 用 的 3 种 事 件 :Click( 单 击 ) DblClick( 双 击 ) 和 Load( 装 入 ) 1 Click 事 件 : 程 序 运 行 后, 鼠 标 单 击 窗 体 时 触 发 该 事 件 2 DblClick 事 件 : 程 序 运 行 后, 鼠 标 双 击 窗 体 时 触 发 该 事 件 3 Load 事 件 : 窗 体 被 装 入 内 存 工 作 区 时 触 发 该 事 件 Load 事 件 过 程 通 常 用 来 在 启 动 程 序 时 对 属 性 和 变 量 进 行 初 始 化 3.3.3 方 法 窗 体 上 常 用 的 方 法 有 Print 和 Cls: 瞯 Print 方 法 可 以 在 窗 体 上 输 出 字 符 串 或 表 达 式 的 值 瞯 Cls 方 法 可 以 清 除 用 Print 方 法 在 窗 体 上 显 示 的 文 本 这 两 种 方 法 在 后 面 的 章 节 中 有 详 细 介 绍 3.3.4 应 用 举 例 例 3.2 设 计 程 序, 用 窗 体 模 拟 黑 板, 鼠 标 单 击 时 窗 体 上 输 出 问 题, 双 击 时 显 示 答 案 分 析 : 把 窗 体 模 拟 成 黑 板, 要 设 置 窗 体 的 BackColor 属 性 为 黑 色,ForeColor 属 性 为 白 色 ( 模 拟 粉 笔 字 的 颜 色 ) 而 单 击 双 击 时 的 输 出 显 示, 可 以 在 Click DblClick 事 件 里 用 Print 和 Cls 方 法 来 实 现 界 面 效 果 如 图 3-5 所 示 图 3-5 例 3.2 界 面 (1) 设 计 界 面 先 启 动 VB, 新 建 一 个 工 程 在 对 象 窗 口 中 可 看 到, 窗 体 Form1 处 于 选 中 状 态 ( 窗 体 周 围 有 8 个 控 制 点 ), 在 右 侧 的 属 性 窗 口 中 设 置 Form1 的 属 性, 属 性 设 置 如 表 3-1 所 示 表 3-1 例 3.2 窗 体 属 性 设 置 属 性 设 置 说 明 BackColor &H00000000& 窗 体 背 景 色 设 为 黑 色, 用 来 模 拟 黑 板 BorderStyle 3 -Fixed Dialog 固 定 对 话 框, 不 可 改 变 大 小

54 第 3 章 设 计 简 单 程 序 续 表 属 性 设 置 说 明 Font 宋 体 三 号 设 置 用 Print 方 法 在 窗 体 上 显 示 文 本 的 字 体 及 大 小 ForeColor &H00FFFFFF& 用 Print 方 法 时 显 示 文 本 为 白 色, 用 来 模 拟 粉 笔 字 StartUpPosition 2 - 屏 幕 中 心 使 窗 体 在 屏 幕 中 央 出 现 (2) 编 写 代 码 为 了 解 窗 体 的 Load 事 件, 本 例 在 Load 事 件 中 设 置 窗 体 的 标 题 在 对 象 窗 口 中 双 击 Form1 窗 体, 自 动 切 换 到 代 码 窗 口, 会 看 到 已 生 成 了 Load 事 件 过 程 的 代 码 框 架 在 框 架 中 输 入 设 置 窗 体 属 性 的 代 码 即 可, 代 码 如 下 : Private Sub Form_Load() 在 程 序 启 动 时 触 发 此 事 件 Caption =" 模 拟 黑 板 " 使 窗 体 标 题 栏 显 示 模 拟 黑 板 字 样 单 击 代 码 窗 口 中 右 上 方 的 事 件 下 拉 框, 在 列 表 中 选 择 第 2 项 Click, 在 自 动 生 成 的 框 架 中 输 入 代 码 如 下 : Private Sub Form_Click() 单 击 窗 体 时 触 发 Cls 清 除 用 Print 方 法 显 示 的 字 符 Print "1 +1 =?" 在 窗 体 上 显 示 字 符 串 再 单 击 事 件 列 表 中 的 第 3 项 DblClick, 在 框 架 中 输 入 代 码 如 下 : Private Sub Form_DblClick() 双 击 窗 体 时 触 发 Cls Print "1 +1 =2" 输 入 完 毕, 运 行 窗 体 运 行 后 的 窗 体, 会 在 标 题 栏 显 示 模 拟 黑 板 字 样, 单 击 黑 板 显 示 1 + 1 =?, 双 击 后 输 出 1 +1 =2 运 行 无 误 后, 保 存 工 程, 以 备 后 用 上 机 时, 请 注 意 : 瞯 西 文 单 引 号 后 面 的 内 容 为 注 释, 不 参 加 程 序 编 译, 所 以 注 释 语 句 可 以 不 输 入 瞯 字 符 串 两 侧 均 为 西 文 双 引 号 往 往 有 同 学 调 用 中 文 输 入 法 输 入 汉 字 后, 不 切 换 到 英 文 状 态 就 输 入 引 号, 造 成 误 输 入 中 文 标 点 的 错 误, 从 而 引 发 系 统 无 效 字 符 的 提 示 3.4 标 签 标 签 (Label) 主 要 用 于 显 示 不 需 要 用 户 修 改 的 文 本 标 签 不 能 作 为 输 入 信 息 的 界 面, 其 内 容 只 能 用 Caption 属 性 来 设 置 或 修 改 标 签 常 用 做 标 题 栏 目 名 或 输 入 输 出 区 域 的 标 识

3.5 文 本 框 55 1. 标 签 属 性 (1) Caption 属 性 设 置 标 签 要 显 示 的 内 容, 它 是 标 签 的 主 要 属 性 (2) BorderStyle 属 性 设 置 标 签 有 无 边 框 默 认 值 为 0, 标 签 无 边 框 ; 设 置 为 1 时, 标 签 有 立 体 边 框 (3) Autosize 属 性 该 属 性 用 于 设 置 标 签 是 否 自 动 调 整 大 小 以 显 示 所 有 内 容 它 有 True 和 False 两 种 设 置 瞯 True: 标 签 控 件 宽 度 随 文 本 改 变 而 改 变, 高 度 上 只 保 持 一 行 字 的 尺 寸, 不 能 换 行 瞯 False: 标 签 保 持 设 计 时 的 大 小, 如 果 内 容 太 长, 则 只 能 显 示 一 部 分 此 为 默 认 值 (4) Alignment 属 性 确 定 标 签 中 内 容 的 对 齐 方 式, 有 3 种 可 选 值 : 0 - 左 对 齐 ( 默 认 值 ) 1 - 右 对 齐 2 - 居 中 对 齐 (5) BackStyle 属 性 该 属 性 用 于 设 置 背 景 是 否 透 明 默 认 值 为 1, 不 透 明 ; 设 为 0 时, 透 明, 即 无 背 景 色 2. 标 签 事 件 常 用 的 事 件 有 Click( 单 击 ) 和 DblClick( 双 击 ) 3.5 文 本 框 文 本 框 ( TextBox) 是 一 个 文 本 编 辑 区 域 用 户 可 以 在 文 本 框 内 输 入 编 辑 和 显 示 文 本 3.5.1 属 性 (1) Text 属 性 设 置 文 本 框 中 显 示 的 内 容 程 序 执 行 时, 在 框 内 输 入 的 内 容, 会 自 动 保 存 在 Text 属 性 中 (2) Locked 属 性 设 置 文 本 框 中 的 内 容 是 否 可 编 辑 默 认 值 为 False, 表 示 可 编 辑 ; 设 置 为 True 时, 不 可 编 辑, 但 此 时 可 对 框 内 文 字 进 行 复 制, 而 Enabled 属 性 设 为 False 时, 即 使 是 复 制 也 不 允 许 (3) Maxlength 属 性 设 置 文 本 框 中 允 许 输 入 的 最 大 字 符 数 输 入 的 字 符 数 超 过 Maxlength 设 定 的 数 目 后, 文 本 框 将 不 接 收 超 出 部 分 的 字 符 该 属 性 默 认 值 为 0, 表 示 无 限 制 (4) MultiLine 属 性 决 定 文 本 框 是 否 允 许 接 收 多 行 文 本 若 设 置 为 True, 则 可 接 收 多 行 文 本, 当 输 入 的 文 本 超 出 文 本 框 的 边 界 或 按 回 车 键 时, 会 进 行 换 行 ; 默 认 值 为 False, 文 本 框 中 只 能 输 入 一 行 文 本

56 第 3 章 设 计 简 单 程 序 (5) PassWordChar 属 性 设 置 是 否 在 文 本 框 中 显 示 用 户 键 入 的 字 符 当 MultiLine 属 性 为 False 时, 该 属 性 可 设 置 显 示 在 文 本 框 中 的 替 代 符 例 如, 本 属 性 设 置 为 倡, 那 么 无 论 用 户 输 入 什 么 字 符, 文 本 框 中 都 只 显 示 倡, 但 Text 属 性 接 收 的 还 是 实 际 输 入 的 字 符 该 属 性 主 要 用 于 输 入 密 码 (6) ScrollBars 属 性 设 置 文 本 框 是 否 有 滚 动 条 只 有 当 MultiLine 属 性 为 True 时, 文 本 框 才 能 加 滚 动 条 3.5.2 事 件 文 本 框 支 持 Click DblClick 事 件, 但 更 常 用 的 是 Change 和 LostFocus 事 件 (1) Change 事 件 当 改 变 文 本 框 的 Text 属 性 时 触 发 该 事 件 用 户 在 文 本 框 内 输 入 新 内 容 或 程 序 对 Text 属 性 重 新 赋 值 时, 都 会 使 Text 属 性 发 生 改 变 当 一 个 用 户 键 入 一 个 字 符 时, 就 会 触 发 一 次 Change 事 件 例 如 用 户 键 入 OK! 时, 会 触 发 3 次 Change 事 件 (2) LostFocus 事 件 当 文 本 框 失 去 焦 点 时 触 发 该 事 件 焦 点 的 丢 失 是 由 于 按 Tab 键 或 点 击 其 他 对 象 而 造 成 的 该 事 件 过 程 常 用 来 对 文 本 框 中 的 内 容 进 行 验 证 确 认, 比 在 Change 事 件 中 检 查 更 为 合 理 有 效 3.5.3 方 法 文 本 框 最 常 用 的 方 法 是 SetFocus, 该 方 法 可 把 光 标 移 到 指 定 的 文 本 框 中, 使 之 获 得 焦 点 比 如, 有 多 个 文 本 框 时, 要 把 光 标 移 到 文 本 框 Text1 中, 可 用 语 句 Text1.SetFocus 实 现 3.5.4 应 用 举 例 例 3.3 设 计 程 序, 实 现 图 3-6 所 示 的 功 能 要 求 在 文 本 框 Text1 中 输 入 文 字 时, 文 本 框 Text2 和 阴 影 字 同 步 显 示 相 同 内 容 单 击 清 除 按 钮, 可 清 除 文 本 框 中 的 信 息 并 使 Text1 获 得 焦 点 分 析 : 阴 影 字 效 果 可 以 用 两 个 标 签 控 件 来 实 现 在 文 本 框 Text1 的 Change 事 件 中 编 写 代 码, 把 文 本 框 Text1 中 的 文 本 赋 值 给 文 本 框 Text2, 组 成 阴 影 字 的 两 个 标 签, 从 而 实 现 内 容 的 同 步 对 文 本 框 Text1 赋 空 值 和 使 用 SetFocus 方 法 可 以 完 成 清 除 按 钮 的 功 能 (1) 设 计 界 面 在 窗 体 上 添 加 2 个 标 签, 将 Caption 属 性 都 设 置 为 阴 影 字 ;Font 属 性 设 置 为 黑 体 粗 体 小 初 ;Alignment 属 性 设 置 为 2 ( 居 中 对 齐 ); BackStyle 属 性 设 置 为 0 ( 透 明 ); 把 置 于 上 层 标 签 的 ForeColor 属 性 设 为 白 色, 置 于 下 层 标 签 的 ForeColor 属 性 设 为 黑 色 使 2 个 标 签 重 叠 后, 再 将 上 层 标 签 向 上 向 左 稍 做 移 动, 形 成 阴 影 字 效 果 在 窗 体 上 添 加 2 个 文 本 框, 设 置 文 本 框 Text2 的 Locked 属 性 为 True 窗 体 上 添 加 2 个 命 令 按 钮,Caption 属 性 分 别 设 置 为 清 除 和 退 出, 如 图 3-6 所 示

3.5 文 本 框 57 图 3-6 界 面 设 计 (2) 编 写 代 码 双 击 文 本 框 Text1, 在 生 成 的 代 码 框 架 中 输 入 语 句 如 下 : Private Sub Text1_Change() Text2.Text =Text1.Text 把 文 本 框 Text1 中 的 文 本 赋 值 给 Text2 的 Text 属 性 Label1.Caption =Text1.Text 把 Text1 中 的 文 本 赋 给 Label1 的 Caption 属 性 Label2.Caption =Text1.Text 把 Text1 中 的 文 本 赋 给 Label2 的 Caption 属 性 双 击 清 除 按 钮, 在 框 架 中 输 入 代 码 如 下 : Private Sub Command1_Click() 清 除 按 钮 的 事 件 过 程 Text1.Text ="" 设 置 文 本 框 的 Text 属 性 为 空, 即 清 除 文 本 框 中 显 示 的 字 符 Label1.Caption =" 阴 影 字 " Label2.Caption =" 阴 影 字 " Text1.SetFocus 文 本 框 Text1 获 得 焦 点 双 击 退 出 按 钮, 在 框 架 中 输 入 代 码 如 下 : Private Sub Command2_Click() 退 出 按 钮 的 事 件 过 程 End 退 出 程 序 输 入 完 毕, 按 F5 键 运 行 程 序 在 文 本 框 Text1 中 输 入 任 意 字 符, 文 本 框 Text2 及 两 个 标 签 控 件 都 会 同 步 显 示 相 同 内 容 按 清 除 按 钮, 会 清 空 文 本 框, 并 使 Text1 获 得 焦 点

58 第 3 章 设 计 简 单 程 序 3.6 命 令 按 钮 比 较 常 用 的 控 件 有 命 令 按 钮 标 签 和 文 本 框, 在 工 具 箱 中 的 位 置 如 图 3-7 所 示 在 应 用 程 序 中, 命 令 按 钮 ( Command Button) 的 应 用 十 分 广 泛, 比 如 经 常 要 单 击 的 确 定 和 取 消 按 钮 当 单 击 不 同 按 钮 时, 会 触 发 相 应 的 事 件 过 程, 以 实 现 指 定 的 功 能 3.6.1 属 性 (1) Caption 属 性 设 定 命 令 按 钮 上 显 示 的 文 本 可 以 在 字 母 前 加 一 个 & 符 号 来 设 图 3-7 工 具 箱 中 的 置 快 捷 键 例 如, 设 置 Caption 属 性 为 &OK, 则 程 序 运 行 时 按 钮 上 显 常 用 控 件 示 OK,, 带 有 下 画 线 的 字 母 O 就 成 为 快 捷 键, 当 用 户 按 下 快 捷 键 Alt +O 时, 便 可 激 活 该 命 令 按 钮 (2) Default 属 性 设 置 窗 体 中 的 某 一 命 令 按 钮 为 默 认 按 钮 当 Default 属 性 设 置 为 True 时, 按 Enter 键 相 当 于 用 鼠 标 单 击 了 该 按 钮 一 个 窗 体 只 允 许 有 一 个 默 认 按 钮 如 果 某 个 命 令 按 钮 的 Default 属 性 设 置 为 True, 该 窗 体 中 其 他 命 令 按 钮 的 Default 属 性 会 全 部 自 动 设 置 为 False (3) Cancel 属 性 设 置 窗 体 中 的 某 一 命 令 按 钮 为 取 消 按 钮 当 Cancel 属 性 设 置 为 True 时, 按 Esc 键 相 当 于 用 鼠 标 单 击 了 该 按 钮 同 Default 属 性 一 样, 一 个 窗 体 只 允 许 有 一 个 取 消 按 钮 (4) Style 属 性 用 来 设 置 命 令 按 钮 的 显 示 类 型, 其 属 性 值 可 设 置 为 : 0 -Standard: 标 准 的, 命 令 按 钮 上 不 能 显 示 图 形 和 背 景 色, 此 为 默 认 值 1 -Graphical: 图 形 的, 可 显 示 图 形 (Picture 中 设 置 ) 和 背 景 色 ( BackColor 中 设 置 ) (5) Picture 属 性 设 置 命 令 按 钮 中 要 显 示 的 图 形 只 有 将 Style 属 性 设 置 为 1, 图 形 才 能 在 按 钮 上 显 示 (6) ToolTipText 属 性 设 置 鼠 标 在 命 令 按 钮 停 留 时 显 示 的 提 示 文 本 通 常 用 较 少 的 文 字 对 按 钮 的 功 能 进 行 解 释 3.6.2 事 件 最 常 用 的 事 件 是 Click( 单 击 ) 事 件, 即 程 序 运 行 后, 鼠 标 单 击 按 钮 时 所 触 发 的 事 件 3.6.3 应 用 举 例 例 3.4 要 求 在 模 拟 黑 板 程 序 中, 通 过 单 击 不 同 按 钮 来 显 示 提 问 和 回 答 分 析 : 可 以 建 立 2 个 按 钮, 在 按 钮 的 单 击 事 件 过 程 中 输 入 相 应 代 码, 以 显 示 不 同 内 容, 如 图 3-8 所 示

3.7 Print 方 法 59 图 3-8 例 3.4 的 运 行 结 果 (1) 设 计 界 面 打 开 例 3.2 保 存 的 窗 体, 切 换 到 对 象 窗 口 可 用 两 种 方 法 在 窗 体 上 建 立 按 钮 : 瞯 双 击 工 具 箱 中 的 命 令 按 钮, 即 可 在 窗 体 的 中 央 出 现 默 认 大 小 的 命 令 按 钮 瞯 单 击 工 具 箱 中 的 命 令 按 钮, 在 窗 体 适 当 位 置 拖 动 鼠 标 画 出 任 意 大 小 的 命 令 按 钮 任 选 一 种 方 法 建 立 两 个 命 令 按 钮, 设 置 Caption 属 性 为 提 问 和 回 答 为 使 按 钮 美 观, 可 以 为 按 钮 设 置 相 同 的 底 色, 属 性 值 如 表 3-2 所 示 表 3-2 命 令 按 钮 属 性 设 置 属 性 设 置 说 明 Style 1 -Graphical 按 钮 表 面 可 显 示 图 形 和 背 景 色 BackColor &H00FFC0C0& 背 景 色 设 为 淡 蓝 色 ( 可 按 喜 好 在 调 色 板 中 任 意 选 择 ) (2) 编 写 代 码 双 击 标 题 为 提 问 的 按 钮, 在 生 成 的 代 码 框 架 中 输 入 如 下 语 句 : Private Sub Command1_Click() 提 问 按 钮 的 单 击 事 件 过 程 Cls Print "1 +1 =?" 双 击 标 题 为 回 答 的 按 钮, 在 生 成 的 代 码 框 架 中 输 入 如 下 语 句 : Private Sub Command2_Click() 回 答 按 钮 的 单 击 事 件 过 程 Cls Print "1 +1 =2" 输 入 完 毕 后, 运 行 程 序, 单 击 提 问 按 钮 时 显 示 1 +1 =?, 单 击 回 答 按 钮 时 显 示 1 +1 =2 运 行 无 误 后, 保 存 工 程, 以 备 后 用 3.7 Print 方 法 Print 是 输 出 数 据 的 一 种 重 要 方 法

60 第 3 章 设 计 简 单 程 序 1. 格 式 [ 对 象 名.]Print [ 表 达 式 列 表 ] 2. 功 能 在 对 象 上 输 出 表 达 式 的 值 3. 说 明 瞯 对 象 名 : 可 以 是 Form ( 窗 体 ) Debug ( 立 即 窗 口 ) PictureBox ( 图 片 框 ) Printer( 打 印 机 ) 如 果 省 略 对 象 名, 则 表 示 在 当 前 窗 体 上 输 出 例 如 : Print "12 倡 2 =";12 倡 2 在 当 前 窗 体 上 输 出 12 倡 2 =24 Picture1.Print "VB" 在 图 片 框 Picture1 上 输 出 VB Printer.Print "OK" 在 打 印 机 上 输 出 OK 瞯 表 达 式 列 表 : 是 一 个 或 多 个 表 达 式, 若 省 略 此 项, 则 输 出 一 空 行 输 出 数 据 时, 数 值 数 据 的 前 面 有 一 个 符 号 位, 后 面 有 一 个 空 格 ; 而 字 符 串 前 后 都 没 有 空 格 当 输 出 多 个 表 达 式 时, 各 表 达 式 之 间 用 西 文 分 隔 符, 或 ; 隔 开 用, 分 隔 各 表 达 式 时, 各 项 在 以 14 个 字 符 位 置 为 单 位 划 分 出 的 区 段 中 输 出, 每 个 区 段 输 出 一 项 ; 用 ; 分 隔 各 表 达 式 时, 各 项 按 紧 凑 格 式 输 出, 即 各 项 之 间 无 间 隔 地 连 续 输 出 如 果 在 语 句 行 末 尾 有 ;, 则 下 一 个 Print 输 出 的 内 容 将 紧 跟 在 当 前 Print 输 出 内 容 后 面 ; 如 果 在 语 句 行 末 尾 有,, 则 下 一 个 Print 输 出 的 内 容, 将 在 当 前 Print 输 出 内 容 的 下 一 区 段 输 出 ; 如 果 在 语 句 行 末 尾 无 分 隔 符, 则 输 出 完 本 语 句 内 容 后 换 行, 即 在 新 的 一 行 输 出 下 一 个 Print 的 内 容 4. 用 Tab() 函 数 定 位 输 出 在 Print 方 法 中, 可 以 使 用 Tab() 函 数 对 输 出 项 进 行 定 位 Tab() 函 数 的 格 式 为 : Tab( n) 其 中 n 为 数 值 表 达 式, 其 值 为 整 数 Tab( ) 函 数 把 显 示 或 打 印 位 置 移 动 到 由 参 数 n 指 定 的 列 数 处, 从 此 列 开 始 输 出 数 据, 通 常 最 左 边 的 列 号 为 1 如 果 当 前 显 示 或 打 印 位 置 已 经 超 过 n, 则 自 动 下 移, 在 下 一 行 的 第 n 列 输 出 要 将 输 出 的 内 容 放 在 Tab( ) 函 数 的 后 面 并 用 ; 隔 开 有 多 个 输 出 项 时, 每 个 输 出 项 对 应 一 个 Tab() 函 数, 各 项 之 间 均 用 ; 隔 开 例 如 : Print Tab(10) ; " 姓 名 "; Tab(25) ; " 年 龄 " 则 姓 名 和 年 龄 分 别 从 当 前 行 的 第 10 列 和 第 25 列 开 始 输 出 输 出 结 果 如 下 : 姓 名 年 龄 5. 用 Spc( ) 函 数 定 位 输 出 Print 方 法 中, 还 可 以 使 用 Spc( ) 函 数 来 对 输 出 进 行 定 位, 与 Tab() 函 数 不 同,Spc( ) 函 数 提 供 若 干 个 空 格 Spc() 函 数 的 格 式 为 : Spc( n) 其 中 n 为 整 数 表 达 式, 表 示 在 显 示 或 打 印 下 一 个 表 达 式 之 前 插 入 的 空 格 数 Spc( ) 函 数 与 输 出

3.7 Print 方 法 61 项 之 间 用 ; 相 隔 例 如 : Print " 后 面 有 8 个 空 格 ";Spc (8) ; " 前 面 有 8 个 空 格 " 输 出 结 果 如 下 : 后 面 有 8 个 空 格 前 面 有 8 个 空 格 6. 应 用 举 例 例 3.5 设 计 程 序, 用 来 演 示 Print 方 法 的 各 种 功 能, 如 图 3-9 所 示 图 3-9 例 3.5 程 序 演 示 界 面 分 析 : 建 立 一 个 按 钮, 在 按 钮 的 Click 事 件 过 程 中 编 写 不 同 的 Print 语 句, 可 达 到 演 示 的 目 的 (1) 设 计 界 面 在 窗 体 上 新 建 一 个 按 钮 (2) 编 写 代 码 双 击 按 钮, 在 代 码 框 架 中 输 入 与 其 Caption 属 性 相 对 应 的 Print 语 句, 如 下 所 示 : Private Sub Command1_Click() Print 1,2 用, 分 隔 的 各 项, 在 以 14 个 字 符 位 置 为 单 位 划 分 出 的 区 段 中 输 出 Print 3;4 用 ; 分 隔 的 各 项, 按 紧 凑 格 式, 即 各 项 之 间 无 间 隔 地 连 续 输 出 Print 输 出 空 行 Print 5, 末 尾 有,, 下 一 个 Print 的 内 容 将 在 当 前 输 出 内 容 的 下 一 区 段 输 出 Print 6 末 尾 无 分 隔 符, 输 出 6 后 换 行, 在 下 一 行 输 出 下 一 个 Print 的 内 容 Print 7; 末 尾 有 ;, 下 一 个 Print 的 内 容 将 紧 跟 在 当 前 Print 输 出 内 容 后 面 Print 8 输 出 数 据 时, 数 值 数 据 的 前 面 有 一 个 符 号 位, 后 面 有 一 个 空 格 Print "1234567"; Spc(2); "abcdef" 输 出 数 据 时, 字 符 串 前 后 都 没 有 空 格 Print Tab(2); " 倡 倡 "; Tab(6); " 倡 倡 "; Tab(10); " 倡 倡 "; Tab(14); " 倡 倡 " 语 句 中 的, 和 ; 要 使 用 西 文 标 点, 否 则 会 出 现 无 效 字 符 的 错 误 提 示 Private Sub Form_DblClick() 双 击 窗 体 时 退 出 程 序 End 退 出 程 序 例 3.6 设 计 程 序, 用 来 计 算 三 角 形 面 积 要 求 可 以 接 收 用 户 输 入 的 三 角 形 三 边 长 度, 计

62 第 3 章 设 计 简 单 程 序 算 并 输 出 三 角 形 面 积 分 析 : 可 以 使 用 3 个 文 本 框 输 入 三 角 形 三 边 的 长, 通 过 3 个 单 精 度 变 量 获 取 文 本 框 中 的 数 值, 利 用 数 学 公 式 对 数 据 进 行 计 算, 用 标 签 控 件 把 结 果 显 示 出 来 已 知 三 角 形 三 边 A,B,C 的 值, 求 三 角 形 面 积 的 公 式 为 : (1) 设 计 界 面 S = P(P -A)(P -B)( P -C),P =(A +B +C) /2 在 窗 体 上 建 立 5 个 标 签 3 个 文 本 框 和 1 个 命 令 按 钮 设 置 各 对 象 的 属 性, 如 表 3-3 所 示 表 3-3 对 象 属 性 设 置 对 象 属 性 设 置 Label1 Caption A: Label2 Caption B: Label3 Caption C: Label4 Caption 请 输 入 三 边 Label5 Caption 面 积 = Text1 Text 空 ( 不 输 入 任 何 字 符 ) Text2 Text 空 Text3 Text 空 Command1 Caption 计 算 面 积 设 计 完 成 的 界 面 如 图 3-10 所 示 图 3-10 例 3.6 程 序 界 面 (2) 编 写 代 码 双 击 计 算 面 积 按 钮, 在 框 架 中 输 入 代 码 如 下 : Private Sub Command1_Click() 单 击 计 算 面 积 按 钮 事 件 代 码

3.8 InputBox 键 盘 输 入 对 话 框 63 Dim A!, B!, C!, P!, S! A =val(text1.text) 把 在 文 本 框 中 输 入 的 数 字 赋 值 给 变 量 A B =val(text2.text) C =val(text3.text) P =(A +B +C) /2 S =Sqr(P 倡 (P -A) 倡 (P -B) 倡 (P -C)) Label5.Caption =" 面 积 ="& str(s) 在 标 签 中 显 示 面 积 运 行 程 序, 在 文 本 框 输 入 数 值, 如 3 4 5, 单 击 计 算 面 积 按 钮, 显 示 面 积 上 机 时 请 注 意 : 输 入 的 三 边 长 度 要 符 合 三 角 形 两 边 之 和 大 于 第 三 边 的 规 则 ; 文 本 框 内 不 要 输 入 非 数 值 形 式 的 字 符 串 ( 字 母 汉 字 空 字 符 串 等 ), 否 则 会 出 现 类 型 不 匹 配 的 错 误 上 述 程 序 主 要 使 用 了 赋 值 语 句, 前 3 个 赋 值 语 句 把 文 本 框 中 的 内 容 分 别 赋 给 变 量 A,B,C, 第 4 个 赋 值 语 句 计 算 周 长 的 一 半 并 赋 给 变 量 P, 第 5 个 赋 值 语 句 计 算 三 角 形 的 面 积 并 赋 给 变 量 S, 最 后 一 个 赋 值 语 句 把 面 积 S 的 值 在 标 签 (Label5) 中 显 示 出 来 3.8 InputBox 键 盘 输 入 对 话 框 InputBox( ) 函 数 可 以 生 成 键 盘 输 入 对 话 框 来 接 收 用 户 的 输 入 1. 格 式 变 量 =InputBox( 提 示 [, 标 题 ][, 默 认 值 ][,x 坐 标 位 置 ] [,y 坐 标 位 置 ]) 2. 功 能 生 成 一 个 能 接 收 用 户 键 盘 输 入 的 对 话 框, 并 返 回 用 户 在 对 话 框 中 输 入 的 字 符 型 信 息 3. 说 明 执 行 下 面 的 语 句 后, 在 屏 幕 左 上 角 会 弹 出 如 图 3-11 所 示 的 输 入 框 a$ =InputBox( " 第 一 项 为 提 示 "& vbnewline & " 用 vbnewline 实 现 换 行 ", " 第 二 项 为 标 题 ", " 第 三 项 为 默 认 值 ", 200, 200) 图 3-11 InputBox 输 入 框

64 第 3 章 设 计 简 单 程 序 瞯 第 一 项 ( 提 示 ) : 字 符 串 表 达 式, 指 定 在 对 话 框 中 显 示 的 提 示 文 本, 此 项 为 必 选 项 若 要 多 行 显 示 提 示 信 息, 则 可 以 在 各 行 之 间 用 vbnewline 来 分 隔, vbnewline 是 代 表 换 行 的 常 量 瞯 第 二 项 ( 标 题 ): 字 符 串 表 达 式, 在 对 话 框 中 标 题 区 显 示, 若 省 略, 则 标 题 为 应 用 程 序 名 瞯 第 三 项 ( 默 认 值 ): 字 符 串 表 达 式, 指 定 输 入 文 本 框 中 显 示 的 默 认 文 本 瞯 第 四 项 (x 坐 标 位 置 ): 整 数 表 达 式, 指 定 输 入 框 的 左 边 与 屏 幕 左 边 的 水 平 距 离, 单 位 为 Twip 如 果 省 略 此 项, 则 对 话 框 会 在 水 平 方 向 居 中 瞯 第 五 项 (y 坐 标 位 置 ): 整 数 表 达 式, 指 定 输 入 框 的 上 边 与 屏 幕 上 边 的 水 平 距 离, 单 位 为 Twip 如 果 省 略 此 项, 则 对 话 框 被 放 置 在 屏 幕 垂 直 方 向 距 下 边 大 约 1 /3 的 位 置 注 意 : 各 项 参 数 次 序 必 须 一 一 对 应, 除 了 提 示 不 能 省 略 外, 其 余 各 项 均 可 省 略, 但 省 略 部 分 有 时 要 加 入 相 应 的 逗 号 占 位 符 例 如 : a$ =InputBox( " 提 示 : 省 略 第 二 三 项 ",,, 200, 200) 如 果 不 指 定 输 入 框 出 现 的 位 置, 即 : a$ =InputBox( " 提 示 : 省 略 第 二 三 项 ") 上 述 两 条 语 句, 执 行 时 都 会 弹 出 如 图 3-12 所 示 的 输 入 框, 只 是 在 屏 幕 上 出 现 的 位 置 不 同 被 省 略 的 标 题 显 示 为 应 用 程 序 名 INPUTBOX 图 3-12 省 略 某 些 参 数 的 输 入 框 执 行 InputBox( ) 函 数 后 会 弹 出 图 3-12 所 示 的 输 入 框, 用 户 可 在 文 本 框 中 输 入 数 据, 单 击 确 定 按 钮, 函 数 返 回 值 是 用 户 在 文 本 框 中 输 入 的 数 据, 其 类 型 为 字 符 型 ; 如 果 单 击 取 消 按 钮, 则 函 数 返 回 值 是 一 个 零 长 度 的 字 符 串 ( 空 字 符 串 ) 本 例 中 函 数 返 回 值 赋 给 了 变 量 a$,a$ 可 供 后 续 的 语 句 使 用 当 用 户 单 击 确 定 或 取 消 按 钮 后, 输 入 框 即 从 屏 幕 上 消 失 4. 应 用 举 例 例 3.7 要 求 在 模 拟 黑 板 程 序 中, 通 过 输 入 框 来 输 入 显 示 提 问 和 回 答 分 析 : 可 以 在 提 问 回 答 按 钮 的 单 击 事 件 过 程 中, 用 InputBox() 函 数 来 实 现 要 求 打 开 例 3.2 源 程 序, 界 面 保 持 不 变, 依 次 双 击 提 问 回 答 按 钮, 输 入 代 码 如 下 : Private Sub Command1_Click() 提 问 按 钮 的 单 击 事 件 过 程 Dim s As String 定 义 s 为 字 符 串 变 量 s =InputBox(" 请 输 入 提 问 ", " 输 入 提 问 ", "1 +1 =?")

3.9 MsgBox 消 息 框 65 弹 出 对 话 框, 并 把 对 话 框 中 输 入 或 默 认 的 文 本 赋 值 给 s Cls Print s Private Sub Command2_Click() 回 答 按 钮 的 单 击 事 件 过 程 Dim s As String s =InputBox(" 请 输 入 回 答 ", " 输 入 回 答 ", "1 +1 =2") Cls Print s 输 入 完 成 后, 按 F5 键 运 行 程 序 单 击 提 问 按 钮, 会 弹 出 如 图 3-13 所 示 的 输 入 框, 输 入 提 问 或 保 持 默 认 文 本, 单 击 确 定 按 钮 后, 窗 体 上 会 显 示 相 应 的 提 问 文 本 回 答 按 钮 的 功 能 与 上 述 相 同 运 行 无 误 后, 保 存 工 程, 以 备 后 用 图 3-13 输 入 提 问 3.9 MsgBox 消 息 框 MsgBox() 函 数 可 生 成 为 用 户 提 供 信 息 和 选 择 的 交 互 式 对 话 框 1. 格 式 N =MsgBox( 提 示,[, 按 钮 数 值 ][, 标 题 ] ) 2. 功 能 MsgBox() 函 数 在 对 话 框 中 显 示 信 息, 在 用 户 单 击 对 话 框 中 的 按 钮 时, 可 返 回 一 个 整 数 以 标 明 用 户 单 击 的 是 哪 个 按 钮 3. 说 明 执 行 下 面 的 语 句 后, 在 屏 幕 上 会 弹 出 如 图 3-14 所 示 的 消 息 框 n =MsgBox(" 第 一 项 为 提 示 ",65," 第 三 项 为 标 题 ")

66 第 3 章 设 计 简 单 程 序 瞯 第 一 项 ( 提 示 ): 指 定 在 消 息 框 中 出 现 的 文 本, 同 InputBox( ) 函 数 中 的 提 示 项 瞯 第 二 项 ( 按 钮 数 值 ): 整 数 表 达 式, 指 定 消 息 框 中 出 现 的 按 钮 和 图 标 瞯 第 三 项 ( 标 题 ): 指 定 消 息 框 的 标 题, 同 InputBox( ) 函 数 中 的 标 题 项 第 二 项 按 钮 数 值 用 来 指 定 按 钮 的 数 目 和 类 型 使 用 的 图 标 样 式 及 默 认 按 钮 等, 其 默 认 值 是 0 本 例 按 钮 数 值 是 65, 其 图 3-14 MsgBox 消 息 框 含 义 是 : 消 息 框 中 有 i 图 标 以 及 确 定 和 取 消 两 个 按 钮, 默 认 按 钮 是 确 定 按 钮 怎 样 才 能 推 算 出 按 钮 数 值 来 安 排 要 显 示 的 按 钮 及 图 标 呢? 只 要 知 道 下 面 的 一 句 话 和 3 个 表 格 就 可 以 了 一 句 话 是 : 计 算 按 钮 数 值 的 方 法 按 钮 数 值 是 3 个 数 值 之 和, 这 3 个 数 值 分 别 代 表 按 钮 的 数 目 和 类 型 使 用 的 图 标 样 式 及 默 认 按 钮 是 什 么 3 个 表 格 是 : 表 3-4 表 3-5 和 表 3-6, 它 们 分 别 列 出 上 述 3 个 数 值 的 含 义 表 3-4 按 钮 的 类 型 及 其 对 应 值 符 号 常 数 值 说 明 vbokonly 0 只 显 示 确 定 按 钮 vbokcancel 1 显 示 确 定 和 取 消 按 钮 vbabortretryignore 2 显 示 放 弃 重 试 和 忽 略 按 钮 vbyesnocancel 3 显 示 是 否 和 取 消 按 钮 vbyesno 4 显 示 是 和 否 按 钮 vbretrycancel 5 显 示 重 试 和 取 消 按 钮 表 3-5 图 标 的 样 式 及 其 对 应 值 符 号 常 数 值 说 明 vbcritical 16 显 示 图 标 vbquestion 32 显 示? 图 标 vbexclamation 48 显 示! 图 标 vbinformation 64 显 示 i 图 标 表 3-6 默 认 按 钮 及 其 对 应 值 符 号 常 数 值 说 明 vbdefaultbutton1 0 第 一 个 按 钮 为 默 认 按 钮 vbdefaultbutton2 256 第 二 个 按 钮 为 默 认 按 钮 vbdefaultbutton3 512 第 三 个 按 钮 为 默 认 按 钮

3.9 MsgBox 消 息 框 67 按 钮 数 值 是 从 上 面 3 个 表 中 各 取 一 个 数 相 加 而 得 到 的 注 意 : 每 个 表 只 能 取 一 个 数 例 如 按 钮 数 值 是 65, 系 统 会 自 动 把 它 分 解 成 分 别 属 于 上 面 3 个 表 中 的 3 个 值 1( 显 示 确 定 和 取 消 按 钮 ) 64( 显 示 i 图 标 ) 0( 第 一 个 按 钮 为 默 认 按 钮 ) 65 =1 +64 +0, 这 种 分 解 是 唯 一 的 在 程 序 中, 可 以 把 按 钮 数 值 写 成 符 号 常 数 相 加 的 形 式, 如 把 65 写 成 vbokcancel +vbinfor- mation +vbdefaultbutton1, 这 样 可 使 程 序 含 义 清 楚, 从 而 增 加 程 序 的 可 读 性 当 然, 也 可 以 把 65 写 成 1 +64 +0 的 形 式 在 程 序 中, 会 根 据 用 户 单 击 消 息 框 中 不 同 的 按 钮 来 执 行 相 应 的 操 作, 这 是 怎 样 做 到 的 呢? 程 序 可 以 通 过 MsgBox( ) 函 数 的 返 回 值 来 得 知 用 户 单 击 的 是 哪 个 按 钮 当 用 户 单 击 消 息 框 中 的 一 个 按 钮 后, 消 息 框 即 从 屏 幕 上 消 失, 但 会 把 函 数 的 返 回 值 赋 给 语 句 前 面 的 变 量, 程 序 再 根 据 此 变 量 值 的 不 同 作 相 应 的 处 理 如 在 上 述 举 例 的 语 句 中, 将 函 数 的 返 回 值 赋 给 了 变 量 n, 在 程 序 中 可 根 据 n 值 的 不 同 作 不 同 的 处 理, 但 这 需 要 用 到 第 5 章 中 介 绍 的 选 择 结 构 方 面 的 知 识 单 击 不 同 按 钮 所 返 回 的 数 值 详 见 表 3-7 表 3-7 MsgBox() 函 数 的 返 回 值 符 号 常 数 值 用 户 单 击 的 按 钮 vbok 1 确 定 vbcancel 2 取 消 vbabort 3 放 弃 vbretry 4 重 试 vbignore 5 忽 略 vbyes 6 是 vbno 7 否 MsgBox 也 可 以 写 成 语 句 形 式, 例 如 : MsgBox " 密 码 错!",, " 错 误 提 示 " 执 行 此 语 句 也 产 生 一 个 消 息 框, 如 图 3-15 所 示 MsgBox 语 句 没 有 返 回 值, 因 此 常 用 于 比 较 简 单 的 信 息 提 示 4. 应 用 举 例 例 3.8 要 求 在 模 拟 黑 板 程 序 中 添 加 按 钮, 单 击 后 弹 出 有 关 程 序 信 息 的 消 息 框 分 析 : 此 要 求 可 以 在 新 增 按 钮 的 单 击 事 件 过 程 中 调 用 MsgBox( ) 函 数 来 实 现 图 3-15 密 码 核 对 消 息 框 (1) 设 计 界 面 打 开 上 次 保 存 的 源 程 序, 新 建 按 钮, 设 置 其 Caption 属 性 为 信 息 (2) 编 写 代 码 双 击 信 息 按 钮, 在 生 成 的 框 架 中 编 写 如 下 代 码 :

68 第 3 章 设 计 简 单 程 序 Private Sub Command3_Click() 单 击 信 息 按 钮 事 件 代 码 MsgBox " 模 拟 黑 板 程 序 "& vbnewline & " 制 作 人 : 刘 某 某 ", 64, " 信 息 " 上 机 时, 可 把 制 作 人 后 面 的 名 字 换 成 自 己 的 姓 名 输 入 完 毕, 按 F5 键 运 行 程 序 单 击 信 息 按 钮, 会 弹 出 图 3-16 所 示 的 消 息 框 运 行 无 误 后, 保 存 工 程, 以 备 后 用 图 3-16 例 3.8 的 运 行 结 果 3.10 Cls Rem End Stop 语 句 3.10.1 Cls 方 法 1. 格 式 [ 对 象 名.]Cls 2. 功 能 清 除 窗 体 (Form) 或 图 片 框 ( PictureBox) 中 由 Print 方 法 显 示 的 文 本 和 图 形 方 法 所 生 成 的 图 形 并 把 输 出 位 置 移 到 对 象 的 左 上 角 3. 说 明 格 式 中 的 对 象 可 以 是 窗 体 或 图 片 框, 如 果 省 略 对 象 名, 则 清 除 当 前 窗 体 的 显 示 内 容 用 Cls 方 法 清 除 后 的 区 域 以 背 景 色 填 充, 但 Picture 属 性 的 背 景 位 图 和 放 置 的 控 件 不 受 影 响 4. 应 用 举 例 例 3.9 要 求 在 模 拟 黑 板 程 序 中, 单 击 窗 体, 可 以 清 除 窗 体 上 的 文 本 分 析 : 在 窗 体 的 单 击 事 件 过 程 中, 加 入 Cls 语 句, 可 以 实 现 此 功 能 打 开 保 存 的 例 3.2 源 程 序, 双 击 窗 体, 在 事 件 列 表 中 选 择 Click 项, 输 入 代 码 如 下 : Private Sub Form_Click() 窗 体 的 单 击 事 件 过 程 Cls

3.10 Cls Rem End Stop 语 句 69 按 F5 键 运 行 程 序, 单 击 提 问 或 回 答 按 钮, 在 窗 体 上 显 示 文 本 ; 单 击 窗 体, 可 以 清 除 窗 体 上 的 显 示 3.10.2 Rem 语 句 1. 格 式 Rem < 注 释 内 容 > 2. 功 能 可 以 实 现 在 代 码 中 加 入 用 来 解 释 说 明 的 附 加 文 本 3. 说 明 为 提 高 程 序 的 可 读 性, 通 常 在 程 序 的 适 当 位 置 加 上 必 要 的 注 释 从 格 式 中 可 以 看 出, 可 以 用 西 文 单 引 号 或 关 键 字 Rem 来 标 识 一 条 注 释 语 句, 如 果 在 其 他 语 句 行 后 使 用 Rem 关 键 字, 则 必 须 使 用 西 文 冒 号 : 与 语 句 隔 开 可 以 用 一 个 撇 号 来 代 替 Rem 关 键 字 若 使 用 撇 号, 则 在 其 他 语 句 行 使 用 时 不 必 加 冒 号 注 释 语 句 是 非 执 行 语 句, 它 不 参 加 程 序 的 编 译, 对 程 序 的 运 行 结 果 毫 无 影 响 但 在 程 序 清 单 中, 注 释 语 句 被 完 整 地 显 示 出 来 注 释 语 句 除 用 来 注 释 外, 在 调 试 程 序 时, 还 可 用 它 将 某 些 语 句 注 释 掉, 使 被 注 释 的 语 句 在 程 序 运 行 时 不 起 作 用 ; 若 继 续 调 试 时 发 现 暂 时 注 释 的 语 句 有 用, 去 除 注 释 标 记 即 可 注 释 语 句 在 程 序 中 呈 绿 色, 很 容 易 和 非 注 释 语 句 区 分 4. 应 用 举 例 在 以 前 例 题 的 代 码 中, 有 大 量 的 用 撇 号 实 现 的 注 释 语 句, 对 于 和 Rem 的 不 同, 列 举 3 条 注 释 语 句 如 下 : Rem 这 是 注 释 语 句 MyStr1 = "Hello":Rem 注 释 在 语 句 之 后 要 用 冒 号 隔 开 MyStr2 = "Goodbye" 这 也 是 一 条 注 释 ; 无 需 使 用 冒 号 3.10.3 End 语 句 1. 格 式 End 2. 功 能 用 来 结 束 程 序 的 执 行 并 关 闭 已 打 开 的 文 件

70 第 3 章 设 计 简 单 程 序 3. 说 明 End 语 句 提 供 了 一 种 关 闭 程 序 的 方 法 执 行 此 语 句, 会 卸 载 程 序 中 所 有 的 窗 体, 关 闭 由 Open 语 句 打 开 的 文 件, 释 放 程 序 所 占 用 的 内 存 在 以 前 的 例 题 中, 为 突 出 教 学 重 点, 很 多 程 序 没 有 使 用 End 语 句 来 关 闭 程 序, 因 为 可 以 通 过 单 击 窗 体 右 上 角 的 关 闭 按 钮 或 用 快 捷 键 Alt +F4 等 方 法 来 退 出 程 序 但 是, 为 使 程 序 显 得 完 整 易 用 和 界 面 友 好, 在 编 程 特 别 是 编 写 其 他 用 户 使 用 的 程 序 时, 应 该 建 立 名 为 退 出 关 闭 或 结 束 的 按 钮, 使 用 End 语 句 结 束 程 序 4. 应 用 举 例 例 3.10 要 求 在 模 拟 黑 板 程 序 中 添 加 按 钮, 单 击 后 退 出 程 序 分 析 : 此 功 能 可 以 使 用 End 语 句 来 实 现 打 开 上 次 保 存 的 例 3.2 源 程 序, 新 建 按 钮, 设 置 其 Caption 属 性 为 退 出, 如 图 3-17 所 示 双 击 退 出 按 钮, 在 生 成 的 框 架 中 编 写 代 码 如 下 : Private Sub Command4_Click() 单 击 退 出 按 钮 事 件 代 码 End 结 束 程 序 按 F5 键 运 行 程 序, 单 击 退 出 按 钮 可 以 结 束 程 序 3.10.4 Stop 语 句 图 3-17 添 加 退 出 按 钮 1. 格 式 Stop 2. 功 能 在 对 程 序 调 试 时, 用 来 暂 停 程 序 的 执 行 3. 说 明 Stop 语 句 一 般 在 调 试 程 序 时 使 用, 相 当 于 在 程 序 代 码 中 设 置 断 点 在 调 试 时, 与 End 语 句 不 同,Stop 语 句 只 会 暂 停 程 序 的 执 行, 而 不 会 关 闭 任 何 文 件 或 清 除 变 量, 以 便 对 程 序 代 码 进 行 检 查 如 果 程 序 编 译 成 可 执 行 文 件 (.EXE), 执 行 其 中 的 Stop 语 句, 则 将 关 闭 所 有 的 文 件 退 出 程 序 因 此, 在 程 序 调 试 结 束 后, 生 成 可 执 行 文 件 前, 应 该 删 除 代 码 中 的 用 来 调 试 的 Stop 语 句 也 可 以 用 设 置 断 点 的 方 式 来 代 替 Stop 语 句, 即 在 代 码 窗 口 中, 单 击 某 代 码 行 左 边 灰 色 页 边, 使 该 行 以 棕 色 底 色 反 白 显 示, 并 在 左 边 出 现 小 圆 点, 以 表 明 此 处 已 设 置 断 点 程 序 运 行 时, 遇 到 断 点 时, 如 同 执 行 Stop 语 句 一 样, 会 中 断 程 序 的 执 行

习 题 3 71 4. 应 用 举 例 Stop 语 句 很 简 单, 大 家 可 以 上 机 时 输 入 以 下 代 码 进 行 练 习 : Private Sub Command5_Click() MsgBox " 在 Stop 语 句 前 显 示 " Stop 执 行 Stop 语 句 会 在 此 暂 停, 按 F5 键 继 续 执 行 或 按 F8 键 逐 条 语 句 调 试 MsgBox " 在 Stop 语 句 后 显 示 " 程 序 运 行 时 单 击 按 钮 Command5, 会 弹 出 在 Stop 语 句 前 显 示 的 消 息 框 单 击 确 定 按 钮 后, 执 行 Stop 语 句, 此 时 程 序 暂 停, 并 自 动 切 换 到 代 码 窗 口,Stop 语 句 行 以 淡 黄 色 底 色 标 出 此 时, 可 以 按 F5 键 继 续 执 行 程 序 或 按 F8 键 逐 条 语 句 调 试 : 1 若 按 F5 键 会 继 续 运 行 程 序, 顺 序 执 行 Stop 后 面 的 语 句, 弹 出 在 Stop 语 句 后 显 示 的 消 息 框, 单 击 确 定 按 钮 后 结 束 Command5 的 单 击 事 件 过 程 2 如 果 按 F8 键 逐 条 语 句 调 试, 则 淡 黄 色 底 色 会 移 到 Stop 后 面 的 语 句, 表 明 再 次 按 F8 键 会 执 行 的 语 句 再 按 F8 键, 才 会 执 行 Stop 后 面 的 MsgBox 语 句, 弹 出 在 Stop 语 句 后 显 示 的 消 息 框 ; 单 击 确 定 按 钮, 淡 黄 色 底 色 移 到 处, 按 F8 键, 结 束 此 过 程 调 试 程 序 时, 利 用 Stop 语 句 ( 或 设 置 断 点 ) 和 F8 键, 可 以 从 怀 疑 有 错 误 处 的 首 行 语 句 处 开 始, 逐 行 运 行 程 序 以 便 检 查 每 条 语 句 在 每 条 语 句 运 行 后, 可 以 通 过 本 地 窗 口 ( 在 菜 单 视 图 / 本 地 窗 口 打 开 ), 或 把 鼠 标 移 动 到 代 码 中 的 变 量 或 对 象 名 上, 来 查 看 此 命 令 对 变 量 或 对 象 属 性 的 修 改, 以 便 发 现 错 误 所 在 习 题 3 一 选 择 题 1.Load 事 件 是 在 窗 体 被 装 入 工 作 区 时 触 发 的 事 件 A. 用 户 B. 程 序 员 C. 手 工 D. 自 动 2. 修 改 控 件 属 性, 一 般 可 以 使 用 属 性 窗 口, 也 可 以 通 过 为 属 性 赋 值 A. 命 令 B. 对 象 C. 方 法 D. 代 码 3. 方 法 Print 25 \40 输 出 的 结 果 是 A. 25 \40 B.25 \40 C. 出 现 错 误 信 息 D.0 4. 下 面 是 窗 体 的 4 个 属 性, 在 界 面 设 计 时, 改 变 属 性 值 就 看 不 到 窗 体 变 化 的 属 性 是 A.Top B.Width C.Left D.Enabled 5. 下 面 4 个 选 项, 不 是 事 件 的 是 A.Load B.Enabled C.Unload D.DblClick 6. 以 下 叙 述 正 确 的 是 A. 窗 体 ( 名 称 ) 属 性 是 用 来 标 识 窗 体 的 B. 窗 体 ( 名 称 ) 属 性 的 值 显 示 在 窗 体 的 标 题 栏 中 C. 可 以 在 运 行 期 间 改 变 窗 体 的 ( 名 称 ) 属 性 D. 窗 体 的 ( 名 称 ) 属 性 值 可 以 为 空

72 第 3 章 设 计 简 单 程 序 7. 决 定 窗 体 标 题 栏 显 示 内 容 的 属 性 是 A. 名 称 B.Text C.Caption D.Top 8. 若 要 使 某 文 本 框 获 得 控 制 焦 点, 可 使 用 的 方 法 是 A.LostFocus B.Point C.SetFocus D.GotFocus 9. 以 下 选 项 中, 不 是 VB 6.0 默 认 控 件 名 称 的 是 A.Command1 B.Text1 C.label1 D.Change 10. 若 要 将 某 命 令 按 钮 设 置 为 默 认 命 令 按 钮, 则 应 设 置 为 True 的 属 性 是 A.Enabled B.Cancel C.Default D.Value 11. 命 令 按 钮 不 能 响 应 的 事 件 是 A.DblClick B.Click C.MouseDown D.MouseUp 12. 为 了 使 标 签 的 内 容 靠 右 显 示, 应 把 Alignment 属 性 设 置 为 A.0 B.1 C.2 D.3 13. 执 行 方 法 Print 6 Mod -5, 输 出 结 果 是 A."6Mod -5" B.6 Mod -5 C.-1 D.1 14. 有 如 下 程 序 : Private Sub Text1_KeyPress( KeyAscii As Integer) Print Ucase (Chr(KeyAscii)) 运 行 后, 在 文 本 框 中 键 入 b 并 按 回 车 键 后, 窗 体 上 的 输 出 结 果 是 A.B B.b C.66 D. 没 有 输 出 二 填 空 题 1. 用 窗 体 的 Caption 属 性 可 以 设 置 窗 体 的 2. 用 窗 体 的 ForeColor 属 性 可 以 设 置 窗 体 的 3. 用 窗 体 的 BackColor 属 性 可 以 设 置 窗 体 的 4. 窗 体 的 FontBold 属 性 的 类 型 是 5. 文 本 框 能 返 回 按 键 的 ASCII 码 值 的 事 件 是 6. 有 如 下 程 序 : Private Sub form_click() Const st $ ="CHINA" St $ ="GREAT" Print st $ 运 行 后 输 出 结 果 是 7. 对 于 窗 体 对 象, 其 最 先 触 发 的 事 件 是 事 件 8. 要 清 除 窗 体 Form1 上 显 示 的 内 容, 可 使 用 语 句 9. 要 给 文 本 框 控 件 添 加 滚 动 条, 必 须 设 置 文 本 框 的 ScrollBars 属 性 和 属 性 三 简 答 题 1. 试 比 较 标 签 和 文 本 框 的 区 别 2. 试 比 较 Print 方 法 输 出 和 标 签 输 出 的 区 别 3. 试 比 较 InputBox 输 入 和 文 本 框 输 入 的 区 别 4. 如 何 实 现 文 本 框 多 行 输 入 或 输 出?

习 题 3 73 5. 要 产 生 如 图 3-18 所 示 的 消 息 框, 应 如 何 设 置 MsgBox() 函 数 的 参 数? 图 3-18 消 息 框 四 编 程 题 1. 仿 照 例 3.2 制 作 程 序, 按 照 自 己 的 喜 好 设 置 文 本, 在 模 拟 的 黑 板 上 进 行 显 示 2. 实 现 图 3-19 所 示 的 程 序 功 能 注 意 : 设 计 时 和 启 动 时 的 窗 体 标 题 是 不 同 的 想 一 想 : 在 双 击 窗 体 时, 窗 体 标 题 会 发 生 怎 样 的 改 变, 为 什 么 会 这 样? 图 3-19 习 题 2 程 序 界 面 3. 扩 展 例 3.3 中 的 阴 影 字 程 序 的 功 能 在 原 有 功 能 的 基 础 上, 要 求 在 文 本 框 Text2 中 输 入 文 字 时, 也 能 使 文 本 框 Text1 及 两 个 标 签 控 件 显 示 相 同 内 容 4. 写 出 下 面 程 序 段 的 输 出 结 果 在 上 机 验 证 时, 可 创 建 一 个 按 钮, 把 下 面 的 代 码 输 入 到 此 按 钮 的 Click 事 件 过 程 中 Dim a%,b% a =3 b =2 a =a +b b =a +b Print a,b a =a 倡 b b =a /b Print a,b 5. 试 分 别 用 Tab() 函 数 和 Spc() 函 数 实 现 在 窗 体 中 输 出 下 面 的 图 形 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 倡 6. 分 别 用 两 种 方 法 编 写 计 算 学 生 平 均 成 绩 的 程 序 程 序 功 能 分 别 为 :

74 第 3 章 设 计 简 单 程 序 1 单 击 输 入 成 绩 输 出 平 均 分 命 令 按 钮, 依 次 弹 出 3 个 输 入 框, 分 别 提 示 用 户 输 入 英 语 计 算 机 数 学 成 绩, 单 击 最 后 一 个 输 入 框 的 确 定 按 钮 后, 窗 体 上 输 出 平 均 成 绩 2 用 户 在 3 个 文 本 框 中 分 别 输 入 英 语 计 算 机 数 学 成 绩, 单 击 命 令 按 钮 后, 平 均 成 绩 显 示 在 标 签 控 件 上 程 序 实 现 后, 比 较 两 种 方 法 的 优 劣