Microsoft Word - 扉页

Transcription

1 社 心 版 中 出 版 学 科 术出 k.cn o 技 o b 教 a. 职 ww w

2 高 等 教 育 十 一 五 规 划 教 材 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 郭 元 辉 冯 庆 煜 主 编 李 军 陈 亚 军 副 主 编 北 京

3 内 容 简 介 本 书 是 与 Visual Basic 程 序 设 计 教 程 配 套 使 用 的 上 机 练 习 和 习 题 解 答 指 导 用 书, 结 合 最 新 的 二 级 VB 等 级 考 试 大 纲, 精 心 组 织 编 写 了 本 书 的 内 容 全 书 共 分 为 5 个 部 分, 包 括 上 机 实 验 典 型 例 题 解 析 与 习 题 全 国 计 算 机 等 级 考 试 ( 二 级 ) 大 纲 全 国 计 算 机 等 级 考 试 ( 二 级 VB) 历 年 真 题 及 参 考 答 案 全 国 计 算 机 等 级 考 试 ( 二 级 VB) 上 机 模 拟 试 题 本 书 汇 集 经 典 试 题 解 析 和 备 考 技 巧, 适 合 作 为 普 通 高 等 院 校 学 生 学 习 VB 程 序 设 计 的 参 考 辅 导, 也 可 作 为 参 加 计 算 机 等 级 考 试 ( 二 级 VB) 的 考 生 的 应 试 辅 导 用 书, 还 可 作 为 VB 业 余 爱 好 者 的 学 习 参 考 资 料 图 书 在 版 编 目 (CIP) 数 据 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 / 郭 元 辉, 冯 庆 煜 主 编. 北 京 : 科 学 出 版 社, ( 高 等 教 育 十 一 五 规 划 教 材 ) ISBN Ⅰ.V Ⅱ. 1 郭 2 冯 Ⅲ. 1BASIC 语 言 - 程 序 设 计 - 高 等 学 校 : 技 术 学 校 - 教 学 参 考 资 料 Ⅳ. 1TP312 中 国 版 本 图 书 馆 CIP 数 据 核 字 (2010) 第 号 策 划 : 姜 天 鹏 宋 芳 责 任 编 辑 : 王 纯 刚 李 瑜 / 责 任 校 对 : 柏 连 海 责 任 印 制 : 吕 春 珉 / 封 面 设 计 : 东 方 人 华 平 面 设 计 部 出 版 北 京 东 黄 城 根 北 街 16 号 邮 政 编 码 : 印 刷 科 学 出 版 社 发 行 各 地 新 华 书 店 经 销 * 2010 年 6 月 第 一 版 开 本 : / 年 6 月 第 一 次 印 刷 印 张 :12 1/2 印 数 : 字 数 : 定 价 :22.00 元 ( 如 有 印 装 质 量 问 题, 我 社 负 责 调 换 < >) 销 售 部 电 话 编 辑 部 电 话 版 权 所 有, 侵 权 必 究 举 报 电 话 : ; ; 科 学 出 版 社 职 教 技 术 出 版 中 心

4 编 写 人 员 名 单 主 编 郭 元 辉 冯 庆 煜 副 主 编 李 军 陈 亚 军 撰 稿 人 ( 按 姓 氏 笔 画 排 列 ) 冯 庆 煜 ( 西 华 师 范 大 学 ) 宋 国 琴 ( 西 华 师 范 大 学 ) 李 军 ( 四 川 农 业 大 学 ) 邱 乾 西 ( 西 华 师 范 大 学 ) 陈 亚 军 ( 西 华 师 范 大 学 ) 郭 元 辉 ( 西 华 师 范 大 学 ) 谢 开 勇 ( 西 华 师 范 大 学 )

5 前 言 VB 6.0 是 Microsoft 公 司 推 出 的 可 视 化 应 用 程 序 开 发 工 具, 是 目 前 最 流 行 的 可 视 化 编 程 工 具 VB 既 继 承 了 Basic 语 言 具 有 的 语 法 简 单 易 学 易 用 数 据 能 力 强 的 特 点, 又 引 入 了 面 向 对 象 的 编 程 机 制 和 可 视 化 程 序 设 计 方 法, 大 大 降 低 了 开 发 Windows 应 用 程 序 的 难 度, 有 效 地 提 高 了 应 用 程 序 开 发 的 效 率 本 书 是 Visual Basic 程 序 设 计 教 程 的 实 验 指 导 用 书, 可 以 与 Visual Basic 程 序 设 计 教 程 配 套 使 用 全 书 主 要 内 容 由 以 下 5 部 分 组 成 : 第 一 部 分 VB 上 机 实 验 该 部 分 根 据 Visual Basic 程 序 设 计 教 程 一 书 各 章 的 重 点 和 难 点, 分 别 设 计 了 11 个 实 验, 对 于 每 个 实 验 内 容, 除 给 出 具 体 实 验 目 的 外, 还 给 出 了 较 为 完 整 的 操 作 步 骤 和 程 序 代 码, 力 争 让 读 者 在 较 短 的 时 间 内, 取 得 事 半 功 倍 的 效 果 第 二 部 分 典 型 例 题 解 析 与 习 题 该 部 分 对 VB 所 涉 及 的 基 本 概 念 和 知 识 点 做 了 详 尽 的 叙 述, 通 过 练 习 题 来 考 查 学 生 对 知 识 点 的 掌 握 程 度 第 三 部 分 全 国 计 算 机 等 级 考 试 ( 二 级 ) 大 纲 该 部 分 详 细 地 列 出 了 二 级 考 试 中 公 共 基 础 部 分 和 VB 程 序 设 计 部 分 的 考 试 大 纲 第 四 部 分 全 国 计 算 机 等 级 考 试 ( 二 级 VB) 历 年 真 题 及 参 考 答 案 该 部 分 给 出 了 3 套 全 国 计 算 机 等 级 考 试 ( 二 级 VB) 笔 试 真 题 及 参 考 答 案 第 五 部 分 全 国 计 算 机 等 级 考 试 ( 二 级 VB) 上 机 模 拟 试 题 该 部 分 给 出 了 5 套 全 国 计 算 机 等 级 考 试 ( 二 级 VB) 的 上 机 考 试 模 拟 试 题 及 解 析, 希 望 对 参 加 计 算 机 等 级 考 试 的 读 者 有 所 帮 助 本 书 汇 集 经 典 试 题 解 析 和 备 考 技 巧, 适 合 作 为 普 通 高 等 院 校 学 生 学 习 VB 程 序 设 计 的 参 考 辅 导, 也 可 作 为 准 备 参 加 计 算 机 等 级 考 试 ( 二 级 VB) 的 考 生 的 应 试 辅 导 用 书, 还 可 作 为 VB 业 余 爱 好 者 的 学 习 参 考 资 料 科 学 出 版 社 职 教 技 术 出 版 中 心 本 书 由 郭 元 辉 冯 庆 煜 担 任 主 编, 李 军 陈 亚 军 担 任 副 主 编 其 中 第 一 部 分 由 郭 元 辉 冯 庆 煜 编 写 ; 第 二 部 分 由 谢 开 勇 邱 乾 西 编 写 ; 第 三 部 分 和 第 四 部 分 由 李 军 编 写 ; 第 五 部 分 由 陈 亚 军 宋 国 琴 编 写 本 书 是 作 者 多 年 教 学 的 积 累, 书 中 所 有 程 序 代 码 均 通 过 认 真 调 试, 在 多 年 的 教 学 实 践 中 以 及 与 学 生 的 交 流 中 逐 步 得 以 完 善 尽 管 我 们 已 经 做 了 很 大 的 努 力, 但 由 于 水 平 有 限, 书 中 难 免 存 在 不 足 之 处, 请 读 者 批 评 指 正, 以 帮 助 我 们 不 断 改 进 和 完 善 编 者 2010 年 5 月

6 目 录 第 一 部 分 VB 上 机 实 验...1 实 验 1 安 装 调 试 VB...1 实 验 2 VB 窗 体 与 常 用 控 件...3 实 验 3 VB 数 据 类 型 与 简 单 运 用...7 实 验 4 VB 的 条 件 与 循 环 语 句 示 例...11 实 验 5 VB 的 循 环 与 数 组...14 实 验 6 VB 的 过 程 函 数 与 调 用...19 实 验 7 VB 基 本 控 件 的 使 用 技 巧...22 实 验 8 VB 菜 单 设 计 与 多 窗 体 操 作...27 实 验 9 VB 目 录 控 件 与 文 件 读 写...34 实 验 10 VB 作 图...37 实 验 11 VB 数 据 库 的 初 步 应 用...39 第 二 部 分 典 型 例 题 解 析 与 习 题...45 第 1 章 VB 程 序 设 计 概 述...45 第 2 章 VB 语 言 基 础...48 第 3 章 VB 程 序 控 制 结 构...58 第 4 章 数 组...73 第 5 章 过 程 第 6 章 窗 体 第 7 章 VB 中 的 常 用 控 件 第 8 章 VB 图 形 操 作 第 9 章 VB 文 件 操 作 第 10 章 VB 数 据 库 编 程 第 三 部 分 全 国 计 算 机 等 级 考 试 ( 二 级 ) 大 纲 全 国 计 算 机 等 级 考 试 ( 二 级 公 共 基 础 知 识 ) 大 纲 全 国 计 算 机 等 级 考 试 ( 二 级 VB) 大 纲 第 四 部 分 全 国 计 算 机 等 级 考 试 ( 二 级 VB) 真 题 及 参 考 答 案 笔 试 试 卷 笔 试 试 卷 笔 试 试 卷 第 五 部 分 全 国 计 算 机 等 级 考 试 ( 二 级 VB) 上 机 模 拟 试 题 模 拟 试 题 模 拟 试 题

7 iv Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 模 拟 试 题 模 拟 试 题 模 拟 试 题 主 要 参 考 文 献 科 学 出 版 社 职 教 技 术 出 版 中 心

8 第 一 部 分 VB 上 机 实 验 实 验 1 安 装 调 试 VB 一 实 验 目 的 1) 构 建 VB 运 行 环 境 2) 初 步 尝 试 VB 编 程 全 过 程 二 实 验 题 目 1) 安 装 VB 6.0 企 业 版 2) 安 装 MSDN for VB 6.0 3) 编 程 实 现 在 窗 体 中 显 示 Hello,World! 效 果 如 图 所 示 图 三 实 验 背 景 及 准 备 1) 首 先 在 市 面 上 购 买 VB 6.0 企 业 版 与 MSDN(microsoft developer networklibrary) 正 版 光 盘 或 从 Internet 上 下 载 相 应 软 件 2) 对 于 VB 运 行 环 境 窗 体 属 性 事 件 方 法 等 有 初 步 理 性 的 概 念, 有 VB 相 关 教 材 3) 一 台 计 算 机 及 Windows 操 作 系 统 四 实 验 过 程 与 主 要 步 骤 1) 安 装 VB 6.0 与 MSDN for VB 6.0 均 是 执 行 相 应 的 setup.exe 文 件 MSDN 的 安 装 目 录 应 与 VB 6.0 的 目 录 保 持 一 致 安 装 中 可 设 置 用 户 名 与 用 户 单 位 VB 安 装 完 成 后 在 开 始 菜 单 中 出 现 相 应 的 程 序 项, 如 图 所 示

9 2 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 图 ) 启 动 VB, 在 新 建 工 程 对 话 框 中 选 择 标 准 EXE 命 令, 单 击 打 开 按 钮, 进 入 VB 编 辑 状 态, 如 图 所 示 图 科 学 出 版 社 职 教 技 术 出 版 中 心 3) 编 辑 界 面 效 果 依 照 题 意, 在 窗 体 上 添 加 2 个 命 令 按 钮 控 件 在 工 具 箱 中 单 击 选 择 CommandButton 控 件, 在 窗 体 适 当 位 置 按 左 键 拖 放 至 适 当 大 小 重 复 两 次, 此 时 窗 体 出 现 Command1 Command2 两 个 命 令 按 钮, 且 水 平 放 置 同 时 选 中 两 个 命 令 按 钮, 单 击 格 式 菜 单, 将 对 齐 设 置 为 顶 端 对 齐, 统 一 尺 寸 设 置 为 两 者 都 相 同 4) 手 工 修 改 属 性 选 择 视 图 属 性 窗 口 命 令, 在 相 应 控 件 的 属 性 窗 口 中, 依 照 如 表 所 示 的 参 数 修 改 相 应 的 属 性

10 第 一 部 分 VB 上 机 实 验 3 表 对 象 名 称 属 性 值 窗 体 Form1 Caption 实 验 一 命 令 按 钮 1 Command1 Caption 显 示 命 令 按 钮 2 Command2 Caption 退 出 5) 编 写 事 件 程 序 代 码 双 击 命 令 按 钮 控 件, 在 打 开 的 代 码 窗 口 中 编 写 代 码 在 Command1 与 Command2 控 件 的 Click 事 件 中 编 写 显 示 (Print) 与 退 出 (End) 命 令 代 码 如 下 : Private Sub Command1_Click() Print "Hello,World!" Private Sub Command2_Click() End 6) 选 择 运 行 启 动 或 全 编 译 执 行 命 令 运 行 程 序, 若 出 错, 则 修 改 后 重 新 运 行, 直 至 完 全 正 确 选 择 文 件 保 存 工 程 命 令, 保 存 窗 体 文 件 (.frm) 与 工 程 文 件 (.vbp) 选 择 文 件 生 成 命 令, 可 编 译 生 成.exe 可 执 行 文 件, 最 后 选 择 文 件 退 出 命 令, 退 出 VB 五 实 验 小 结 1)VB 的 特 点 是 可 视 化 编 程, 因 此 界 面 设 计 与 命 令 书 写 成 为 最 重 要 的 两 个 部 分 视 图 菜 单 中 提 供 的 对 象 窗 口 与 代 码 窗 口 成 为 界 面 设 计 与 命 令 书 写 的 工 作 平 台 2) 窗 体 与 控 件 外 观 尺 寸 大 小 与 显 示 位 置 可 由 Left Top Width Height 精 确 控 制, 其 值 可 在 视 图 属 性 窗 口 命 令 中 设 置 多 个 控 件 同 时 选 中 后, 可 用 格 式 菜 单 调 整 其 布 局 3)VB 工 程 保 留 窗 体 文 件 与 工 程 文 件 经 编 译 后 生 成 的.exe 文 件, 可 以 脱 离 VB 环 境 独 立 运 行 4) 控 件 属 性 自 动 继 承 默 认 值, 仅 在 需 要 时 才 修 改 修 改 分 手 工 操 作 与 命 令 执 行 两 种 形 式 进 行 实 验 2 VB 窗 体 与 常 用 控 件 一 实 验 目 的 1) 了 解 并 掌 握 窗 体 的 基 本 属 性 与 常 用 方 法 事 件

11 4 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 2) 了 解 并 掌 握 标 签 文 本 框 命 令 按 钮 的 基 本 属 性 与 应 用 技 巧 二 实 验 题 目 1) 设 计 一 个 简 单 窗 体, 界 面 如 图 所 示 实 现 载 入 窗 体 背 景 图, 窗 体 自 动 居 中, 进 行 窗 体 左 右 移 动 等 功 能 图 ) 设 计 一 个 简 易 的 VB 文 字 编 辑 器, 界 面 如 图 所 示 实 现 文 字 的 录 入 剪 切 复 制 与 粘 贴 等 功 能 三 实 验 背 景 及 准 备 图 ) 已 初 步 学 习 了 窗 体 标 签 命 令 按 钮 的 属 性 事 件 与 方 法 2) 已 初 步 学 习 并 使 用 了 文 件 视 图 运 行 等 菜 单 功 能 3) 准 备 了 题 目 1 和 题 目 2 所 需 的 相 关 图 片 4) 通 过 帮 助 文 件 学 习 了 Loadpicture( ) Left( ) Mid( ) 等 函 数 的 功 能 四 实 验 过 程 与 主 要 步 骤 (1) 题 目 1 1) 在 窗 体 Form1 中 手 工 修 改 属 性 其 中 Borderstyle=1, 使 边 界 固 定 ;StartupPosition=2, 使 窗 体 初 始 位 置 居 中 其 余 属 性 通 过 事 件 响 应 程 序 由 命 令 自 动 完 成 所 用 事 件 有 Load Initialize Activate Resize 等 ; 所 用 方 法 有 Move 与 Print 科 学 出 版 社 职 教 技 术 出 版 中 心

12 第 一 部 分 VB 上 机 实 验 5 2) 在 窗 体 上 加 载 一 个 标 签 Label1, 手 工 设 置 其 属 性 Caption= VB 实 验 之 标 签 ; BackColor 为 红 色 ;Font 属 性 设 置 如 图 所 示 (FontName= 隶 书,FontSize= 三 号 );AutoSize=True, 使 标 签 能 自 动 调 整 大 小 以 显 示 所 有 内 容 ;WordWrap=True, 使 标 签 能 显 示 多 行 内 容 图 ) 移 动 窗 体 使 用 Move 方 法, 其 格 式 为 : Object.Move left, top, width, height 装 载 背 景 图 片 使 用 Loadpicture 函 数, 其 格 式 为 : LoadPicture([filename], [size], [colordepth],[x,y]) 4) 编 写 代 码 窗 体 1 的 代 码 程 序 如 下 : Private Sub Command1_Click() Form1.Move (Form1.Left - 50) Private Sub Command2_Click() Form1.Move (Form1.Left + 50) Private Sub Form_Activate() Form1.Picture = LoadPicture(app.path & "\sy02t-01.jpg") ' 用 Loadpicture 函 数 装 载 背 景 图,app.path 为 当 前 目 录 Form1.Print "Hello!" Private Sub Form_Initialize() Form1.Left = (Screen.Width - Form1.Width) / 2 屏 幕 对 象 名 Form1.Top = (Screen.Height - Form1.Height) / 2 ' 自 动 居 中,Scree 为

13 6 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 Private Sub Form_Load() Form1.Caption = " 设 置 窗 体 属 性 " Private Sub Form_Resize() Command1.Caption = " 左 移 " Command2.Caption = " 右 移 " (2) 题 目 2 1) 在 窗 体 上 加 载 3 个 命 令 按 钮, 同 时 选 中 3 个 按 钮, 通 过 格 式 菜 单 调 整 其 外 观 一 样 2) 对 每 一 个 按 钮, 修 改 Caption 属 性, 也 可 设 置 访 问 键 ; 在 Picture 属 性 中 加 载 相 应 图 片 文 件 ; 编 写 每 个 按 钮 的 Click 事 件 响 应 程 序 例 如 Command1 按 钮, 设 置 属 性 Caption= &A 剪 切,&A 用 以 表 明 A 为 访 问 键, 使 用 时 可 用 Alt+A 组 合 键 的 形 式 激 活 Click 事 件 ; 设 置 Picture 属 性 为 预 先 准 备 的 图 片 文 件 cut.jpg; 设 置 ToolTipText= 剪 切, 使 鼠 标 移 至 该 控 件 时, 显 示 剪 切 两 字 3) 分 析 题 目, 程 序 中 要 解 决 的 问 题 包 括 : 1 如 何 记 录 光 标 位 置 与 所 选 中 的 文 字? 2 如 何 截 取 或 添 加 一 段 字 符? 前 者 用 到 文 本 框 的 SelStart 与 SelText 属 性, 后 者 用 到 字 符 串 截 取 函 数 Left( ) Mid( ) SelStart 是 选 择 开 始 的 位 置, 也 是 光 标 所 在 的 位 置 ;SelText 记 录 所 选 中 的 字 符 ;Left( ) 从 左 边 截 取 字 符 串 ;Mid( ) 从 中 间 截 取 字 符 串 两 个 字 符 串 之 间 可 用 + 运 算 连 接 4) 编 写 程 序 代 码 代 码 窗 口 的 程 序 代 码 如 下 : Public temp 全 局 变 量 Temp, 适 用 于 所 有 程 序 段 Private Sub Command1_Click() temp = Text1.SelText Text1 = Left(Text1.Text, Text1.SelStart) + Mid(Text1.Text, Text1. _ SelStart + Text1.SelLength + 1) Private Sub Command2_Click() temp = Text1.SelText 科 学 出 版 社 职 教 技 术 出 版 中 心 Private Sub Command3_Click() Text1 = Left(Text1.Text, Text1.SelStart) + temp + Mid(Text1.Text, _ Text1.SelStart + 1) Private Sub Form_Initialize() Form1.Caption = "VB 文 字 编 辑 器 "

14 第 一 部 分 VB 上 机 实 验 7 Text1.Text = " 世 有 伯 乐, 然 后 有 千 里 马 千 里 马 常 有, 而 伯 乐 不 常 有 故 虽 有 名 马, 只 _ 辱 于 奴 隶 人 之 手, 骈 死 于 槽 枥 之 间, 不 以 千 里 称 也 " 五 实 验 小 结 1) 窗 体 标 签 文 本 框 命 令 按 钮 每 个 对 象 都 有 自 身 的 属 性 事 件 与 方 法, 既 有 相 同 的 也 有 不 同 的 2) 文 本 框 的 SelStart 属 性 表 示 当 前 光 标 位 置, 也 是 所 选 字 符 的 开 始 位 置, 默 认 值 是 1;SelText 代 表 当 前 所 选 择 的 文 本 3)Temp 作 为 中 间 变 量 使 用, 代 表 先 选 中 的 字 符, 也 就 是 通 常 剪 贴 板 中 的 值 因 为 要 跨 越 两 个 程 序 段 使 用, 所 以 放 在 通 用 程 序 段 中, 并 定 义 为 全 局 变 量 4) 完 成 题 目 2 有 多 种 方 法 使 用 剪 贴 板 对 象 (Clipboard) 与 SendKeys 命 令 也 可 实 现 相 应 功 能 因 此, 实 现 程 序 的 方 法 并 非 唯 一 5)Loadpicture( ) Left( ) Mid( ) 等 函 数 的 用 法, 可 参 阅 教 材 与 帮 助 文 件 实 验 3 VB 数 据 类 型 与 简 单 运 用 一 实 验 目 的 1) 了 解 VB 数 据 类 型 常 量 变 量 运 算 符 函 数 表 达 式 的 基 本 概 念 2) 初 步 进 行 VB 数 值 运 算 处 理 二 实 验 题 目 1) 通 过 程 序 界 面 了 解 VB 数 据 类 型 设 计 一 个 窗 体, 包 含 4 个 标 签 1 个 组 合 框 和 3 个 文 本 框 运 行 时, 在 组 合 框 中 选 择 不 同 的 变 量 类 型, 文 本 框 中 可 显 示 相 应 的 初 值 类 型 符 字 节 数 运 行 界 面 如 图 所 示 图 ) 输 入 任 意 3 个 数, 选 出 最 大 值 和 最 小 值 设 计 一 个 窗 体, 包 含 1 个 命 令 按 钮 3

15 8 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 个 标 签 和 3 个 文 本 框 运 行 时, 单 击 命 令 按 钮 出 现 InputBox 输 入 框 依 次 输 入 3 个 数, 输 入 完 成 后, 重 新 开 始 输 入 第 1 个 数 时 既 是 最 大 值 也 是 最 小 值, 以 后 自 动 区 分 大 小 值 运 行 界 面 如 图 所 示 三 实 验 背 景 及 准 备 式 等 图 ) 初 步 学 习 了 VB 编 程 基 础, 包 括 数 据 类 型 常 量 变 量 运 算 符 函 数 表 达 2) 初 步 学 习 了 逻 辑 运 算 符 逻 辑 表 达 式 3) 预 习 组 合 框 控 件 的 基 本 操 作 4) 预 习 If EndIf 条 件 语 句,Select EndSelect 情 况 选 择 语 句 四 实 验 过 程 与 主 要 步 骤 (1) 题 目 1 1) 进 入 VB, 在 窗 体 上 放 置 相 应 的 控 件, 并 设 置 窗 体 和 标 签 的 标 题 组 合 框 控 件 的 图 科 学 出 版 社 职 教 技 术 出 版 中 心 作 用 是 下 拉 显 示 一 组 可 供 选 择 的 列 表 项, 当 选 中 某 一 项 单 击 时, 激 发 其 Click 事 件 因 此, 第 一 步, 在 组 合 框 List 属 性 中 手 动 填 入 各 种 变 量 类 型 名 称, 如 图 所 示 ; 第 二 步, 编 写 Click 事 件 过 程 2) 编 写 Click 事 件 过 程 首 先 要 知 道 所 选 中 的 是 哪 一 项, 组 合 框 的 ListIndex 记 录 了 被 选 项 的 序 号, 所 以 可 根 据 ListIndex 的 值 再 作 相 应 处 理 因 为 可 选 项 有 11 项, 故 可 使 用 Select EndSelect 情 况 语 句, 而 不 是 一 般 的 If EndIf 条 件 语 句 程 序 代 码 如 下 : Option Explicit ' 所 有 变 量 必 须 先 定 义, 后 使 用 Private Sub Combo1_Click() Dim qk As Integer qk = Combo1.ListIndex + 1 ' 组 合 框 的 ListIndex 属 性 返 回 当 前 所 选 项 目 的 序 号 ( 从 0 开 始 ) Select Case qk ' 选 择 语 句

16 第 一 部 分 VB 上 机 实 验 9 Case 1 Dim x1 As Byte Text1.Text = x1 Text2.Text = "" Text3.Text = 1 Case 2 Dim x2 As Boolean Text1.Text = x2 Text2.Text = "" Text3.Text = 2 Case 3 Dim x3 As Integer Text1.Text = x3 Text2.Text = "%" Text3.Text = 2 Case 4 Dim x4 As Long Text1.Text = x4 Text2.Text = "&" Text3.Text = 4 Case 5 Dim x5 As Single Text1.Text = x5 Text2.Text = "!" Text3.Text = 4 Case 6 Dim x6 As Double Text1.Text = x6 Text2.Text = "#" Text3.Text = 8 Case 7 Dim x7 As Currency Text1.Text = x7 Text2.Text = "@" Text3.Text = 8 Case 8 Dim x8 As Date Text1.Text = x8 Text2.Text = "" Text3.Text = 8 Case 9 Dim x9 As String

17 10 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 Text1.Text = x9 Text2.Text = "$" Text3.Text = " 可 变 " Case 10 Dim x10 As Object Set x10 = LoadPicture("G:\vb 教 材 \sy03\sy03t01.jpg") ' 对 象 变 量 定 义 后 必 须 用 set 语 句 设 置 初 值 Text1.Text = x10 ' 此 处 初 值 无 意 义 Text2.Text = "" Text3.Text = 4 Case Else Dim x11 As Variant Text1.Text = x11 Text2.Text = "" Text3.Text = " 可 变 " End Select (2) 题 目 2 1) 进 入 VB, 在 窗 体 上 放 置 相 应 的 控 件, 修 改 窗 体 与 控 件 的 标 题 用 于 显 示 最 大 值 最 小 值 的 文 本 框 的 初 始 值 为 空 在 命 令 按 钮 中 使 用 InputBox 输 入 框 函 数 进 行 数 据 输 入, 因 为 要 限 定 输 入 3 个 数, 所 以 用 一 个 全 局 变 量 n 来 计 数,n 的 初 值 为 0, 每 输 入 一 个 数, n 自 动 加 1, 当 n=3 时, 重 置 n=0 2) 数 值 的 大 小 比 较 用 > 或 < 来 进 行, 结 果 为 逻 辑 值 真 (True=1) 或 假 (False=0) If EndIf 条 件 语 句 用 来 对 情 况 作 不 同 处 理, 由 此, 产 生 了 分 支 程 序 程 序 代 码 如 下 : Option Explicit Public n As Integer 'n 为 全 局 变 量 Private x As Double 'x 为 私 有 变 量 Private Sub Command1_Click() If n = 0 Then ' 初 始 化 Text1.Text = "" Text2.Text = "" Text3.Text = "" n = n + 1 ' 循 环 3 次 x = InputBox(" 请 输 入 第 " & Str(n) & " 个 数 ") '& 表 示 字 符 串 连 接 Text1.Text = Text1.Text & x & Space(2) If n = 1 Then ' 只 有 一 个 数 时 Text2.Text = x Text3.Text = x If n = 2 Then ' 有 两 个 数 时 科 学 出 版 社 职 教 技 术 出 版 中 心

18 第 一 部 分 VB 上 机 实 验 11 If x > Text2.Text Then Text3.Text = Text2.Text Text2.Text = x Else Text3.Text = x If n = 3 Then If x > Text2.Text Then Text2.Text = x Else If x < Text3.Text Then Text3.Text = x n = 0 ' 有 三 个 数 时 ' 重 新 开 始 Private Sub Form_Load() n = 0 ' 为 变 量 n 赋 初 值 五 实 验 小 结 1) 初 学 VB 数 据 类 型 存 储 长 度 变 量 名 逻 辑 运 算 等 概 念 时 比 较 抽 象, 只 有 通 过 多 做 练 习 才 能 理 解 掌 握 2) 每 一 个 小 题 目 都 会 涉 及 到 综 合 的 运 用, 所 以 在 实 验 中 有 的 题 目 可 能 会 先 用 到 教 材 后 面 章 节 的 内 容 实 验 中 自 学 与 提 问 是 非 常 重 要 的 3) 两 个 数 比 较 大 小, 由 此 而 产 生 顺 序 进 一 步 可 考 虑 如 何 将 3 个 数 由 大 到 小 排 序? 实 验 4 VB 的 条 件 与 循 环 语 句 示 例 一 实 验 目 的 1) 掌 握 条 件 语 句 的 使 用 2) 了 解 并 掌 握 MsgBox 消 息 函 数 的 用 法 3) 初 步 建 立 循 环 概 念

19 12 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 二 实 验 题 目 1) 设 计 一 个 窗 体, 随 机 输 入 两 个 100 以 内 的 整 数, 并 实 现 相 加, 由 用 户 输 入 答 案, 计 算 机 自 动 判 断 正 误, 并 返 回 相 应 消 息 程 序 运 行 界 面 如 图 所 示 图 ) 设 计 一 个 工 程, 通 过 单 击 计 算 按 钮, 求 出 100 以 内 的 素 数 程 序 运 行 界 面 如 图 所 示 科 学 出 版 社 职 教 技 术 出 版 中 心 图 三 实 验 背 景 及 准 备 1) 已 学 习 了 VB 基 本 函 数, 了 解 Int 取 整 函 数 与 Rnd 随 机 函 数 2) 已 学 习 了 顺 序 结 构 条 件 分 支 结 构, 掌 握 条 件 语 句 的 基 本 形 式 3) 预 习 循 环 命 令

20 第 一 部 分 VB 上 机 实 验 13 四 实 验 过 程 与 主 要 步 骤 (1) 题 目 1 进 入 VB, 在 窗 体 中 放 置 2 个 标 签 3 个 文 本 框 和 2 个 命 令 按 钮, 修 改 各 控 件 标 题 使 之 与 图 中 所 示 一 致 文 本 框 1 和 文 本 框 2 用 来 显 示 两 个 整 数, 由 Int(100*Rnd) 自 动 产 生 用 户 将 答 案 填 入 文 本 框 3 后, 单 击 评 分 按 钮 进 行 判 断 处 理, 处 理 时 返 回 MsgBox 消 息 框 程 序 代 码 如 下 : Private Sub Command1_Click() If Val(Text3.Text) = Val(Text1.Text) + Val(Text2.Text) Then MsgBox (" 正 确!") Else p = MsgBox(" 重 做 吗?", , " 错 误!") ' 将 MsgBox() 的 返 回 值 赋 予 变 量 p Private Sub Command2_Click() Randomize Text1.Text = Int(100 * Rnd(1)) Text2.Text = Int(100 * Rnd(1)) Text3.Text = "" Private Sub Form_Load() Randomize Text1.Text = Int(100 * Rnd(1)) Text2.Text = Int(100 * Rnd(1)) Text3.Text = "" (2) 题 目 2 1) 进 入 VB, 窗 体 中 放 置 2 个 命 令 按 钮, 修 改 相 应 的 Caption 属 性 本 题 用 筛 选 法 选 100 以 内 的 素 数 2) 在 计 算 过 程 中 循 环 给 出 X,X 等 于 1~100 内 任 意 值 对 于 X=1,2,3, 因 为 是 素 数, 故 直 接 打 印 若 X 是 偶 数, 即 X Mod 2 为 0 或 Int(X/2)=X/2, 则 直 接 考 虑 下 一 个 数 对 于 每 个 X, 判 断 其 是 否 不 被 3~X-1 除 尽, 若 是, 则 内 层 循 环 完 后 任 保 留 标 志 字 Flage=0, 不 是 则 Flage=1 退 出 过 程 可 用 Unload me 语 句 程 序 代 码 如 下 : Private Sub Command1_Click() Cls For x = 1 To 100 If x <= 3 Then Print x Else 'x=1,2,3 为 素 数

21 14 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 If x Mod 2 = 0 Then 'x 为 偶 数 时 GoTo 100 ' 直 接 跳 出 本 次 循 环, 转 到 100 标 记 处 Else flage = 0 ' 标 志 字 初 值 For y = 3 To x - 1 ' 判 断 x 是 否 素 数, 用 x 除 以 3,4, x-1 If x Mod y = 0 Then flage = 1 ' 标 志 字 改 变, 表 示 非 素 数 Exit For If flage = 0 Then ' 标 志 字 未 改 变, 表 示 素 数 Print x Private Sub Command2_Click() Unload Me 五 实 验 小 结 1)VB 函 数 很 多, 主 要 通 过 程 序 应 用 掌 握 最 基 本 的 当 对 一 个 函 数 不 太 理 解 时, 可 通 过 帮 助 文 件 学 习 2)MsgBox 是 一 个 功 能 强 大 的 函 数, 调 用 后 它 有 一 个 返 回 值, 程 序 中 可 根 据 其 返 回 值 再 做 相 应 处 理 3) 循 环 前 加 标 志 字, 循 环 后 再 判 断 处 理, 这 是 一 种 常 见 的 处 理 方 法 4)VB 没 有 直 接 跳 转 下 一 次 循 环 的 命 令, 可 以 用 Goto 语 句 但 一 般 程 序 中 要 少 用 或 不 用 Goto 语 句 5) 条 件 语 句 If EndIf 循 环 语 句 For, 在 结 构 上 都 是 像 括 号 一 样 成 对 出 现 的 科 学 出 版 社 职 教 技 术 出 版 中 心 实 验 5 VB 的 循 环 与 数 组 一 实 验 目 的 1) 进 一 步 掌 握 循 环 语 句 的 使 用 技 巧

22 第 一 部 分 VB 上 机 实 验 15 2) 了 解 与 掌 握 静 态 数 组 动 态 数 组 和 控 件 数 组 的 概 念 3) 解 决 输 出 图 案 与 有 序 数 列 的 问 题 二 实 验 题 目 1) 设 计 一 个 窗 体, 有 3 个 命 令 按 钮, 每 单 击 一 个 命 令 按 钮 可 绘 制 一 种 图 案 程 序 运 行 后 效 果 如 图 所 示 图 ) 设 计 一 个 窗 体, 其 中 有 3 个 文 本 框 和 3 个 命 令 按 钮 第 1 个 文 本 框 用 于 显 示 10 个 100 以 内 的 随 机 整 数, 第 2 个 文 本 框 用 于 显 示 使 用 选 择 法 降 序 排 序 后 的 结 果, 第 3 个 文 本 框 用 于 显 示 使 用 冒 泡 法 降 序 排 序 后 的 结 果 两 种 排 序 方 法 通 过 命 令 按 钮 的 过 程 实 现 单 击 刷 新 数 据 按 钮 将 随 机 生 成 新 的 10 个 数 程 序 执 行 结 果 如 图 所 示 3) 设 计 一 个 窗 体, 其 中 包 含 1 个 标 签 1 个 文 本 框 和 15 个 命 令 按 钮, 模 拟 一 个 键 盘 输 入 过 程 程 序 执 行 结 果 如 图 所 示 图 图 三 实 验 背 景 及 准 备 1) 学 习 了 Print 命 令, 了 解 输 出 分 隔 符, ( 固 定 格 式 ) 与 ; ( 紧 凑 格 式 ) 的 使 用 2) 学 习 了 Tab( ) Space( ) 函 数 的 使 用 3) 学 习 了 Do while Loop For 等 循 环 语 句

23 16 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 4) 学 习 了 静 态 数 组 动 态 数 组 和 控 件 数 组 的 概 念 四 实 验 过 程 与 主 要 步 骤 (1) 题 目 1 进 入 VB, 在 窗 体 上 添 加 3 个 命 令 按 钮, 修 改 其 Caption 属 性 输 出 结 果 中 的 3 个 图 案 都 是 一 类 问 题, 即 打 印 若 干 行 若 干 列 的 字 符 以 构 成 某 种 图 案 因 此 要 解 决 几 个 问 题 : 第 一, 打 印 多 少 行 ; 第 二, 打 印 多 少 列 ; 第 三, 每 一 行 打 印 的 起 始 位 置 第 一 二 步 用 双 重 循 环 解 决 ; 第 三 步 用 Tab 函 数 定 位 同 时, 因 每 行 中 各 列 字 符 是 紧 凑 的, 所 以 中 间 使 用 ; 分 隔 程 序 代 码 如 下 : Private Sub Command1_Click() For i = 1 To 5 ' 打 印 的 行 数 Print Tab(5); ' 每 行 的 起 始 位 置 For j = 1 To 2 * i - 1 ' 每 行 的 符 号 个 数 Print "*"; Print ' 打 印 换 行 Private Sub Command2_Click() For i = 1 To 5 Print Tab(25 - i); For j = 1 To 2 * i - 1 Print "*"; Print 科 学 出 版 社 职 教 技 术 出 版 中 心 Private Sub Command3_Click() For i = 4 To 1 Step -1 Print Tab(45 - i); For j = 1 To 2 * i - 1 Print "*"; Print (2) 题 目 2 1) 进 入 VB, 在 窗 体 上 添 加 3 个 文 本 框 和 3 个 命 令 按 钮, 修 改 其 Caption 属 性 文 本 框 1 中 10 个 数 由 循 环 语 句 给 出, 由 Int(100*Rnd) 随 机 取 值, 形 成 刷 新 数 据 过

24 第 一 部 分 VB 上 机 实 验 17 程 所 谓 比 较 排 序, 即 每 一 次 从 待 排 序 的 10 个 数 据 元 素 中 选 出 最 大 的, 放 在 第 一 个 位 置 剩 下 的 9 个 数 重 复 选 择 比 较, 直 到 全 部 待 排 序 的 数 据 元 素 排 完 这 一 方 法 非 常 经 典, 用 双 重 循 环 便 可 完 成 值 得 注 意 的 是 : 两 个 数 的 交 换, 必 须 引 入 中 间 变 量 x 才 能 完 成, 即 x=a(i) : a(i)=a(j) : a(j)=x 2) 冒 泡 排 序 与 选 择 排 序 相 似, 但 它 仅 进 行 相 邻 两 个 数 的 比 较 与 交 换, 每 次 都 从 头 到 尾 进 行 比 较, 只 要 全 过 程 再 没 有 需 要 交 换 的 元 素, 排 序 即 可 完 成 冒 泡 排 序 在 算 法 上 优 于 选 择 排 序 程 序 代 码 如 下 : Dim a(10) As Integer ' 有 下 标 为 静 态 数 组, 无 下 标 值 为 动 态 数 组 Private Sub Command1_Click() Text2.Text = "" For i = 0 To 8 For j = i + 1 To 9 If a(i) < a(j) Then ' 第 i 个 数 与 后 面 的 所 有 数 比 较 x = a(i): a(i) = a(j): a(j) = x Text2.Text = Text2.Text + Str(a(i)) + Space(2) Text2.Text = Text2.Text + Str(a(i)) + Space(2) Private Sub Command2_Click() mp = 0 i = 0 Do Until i = 9 If a(i) < a(i + 1) Then ' 相 邻 两 个 数 比 较 x = a(i): a(i) = a(i + 1): a(i + 1) = x mp = 1 i = i + 1 Loop If mp = 1 Then ' 有 交 换 便 需 再 比 较 GoTo 100 Text3.Text = "" i = 0 Do While i <= 9 Text3.Text = Text3.Text + Str(a(i)) + Space(2) i = i + 1 Loop

25 18 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 Private Sub Command3_Click() Randomize Text1.Text = "" i = 0 Do While i <= 9 a(i) = Int(100 * Rnd(1)) ' 随 机 产 生 10 个 数 Text1.Text = Text1.Text + Str(a(i)) + Space(2) i = i + 1 Loop (3) 题 目 3 1) 进 入 VB, 在 窗 体 上 插 入 所 需 要 的 控 件 因 为 左 下 部 的 12 个 命 令 按 钮 相 似, 所 以 使 用 控 件 数 组 进 行 处 理 首 先 在 窗 体 上 放 置 一 个 命 令 控 件, 单 击 鼠 标 右 键 选 择 复 制 命 令, 然 后 在 其 他 地 方 单 击 鼠 标 右 键 选 择 粘 贴 命 令, 此 时 提 示 是 否 建 立 控 件 数 组? 选 择 是 即 可 2) 控 件 数 组 的 特 点 是 组 内 控 件 名 字 相 同, 用 下 标 来 区 分 当 一 个 控 件 处 于 当 前 位 置 时, 其 索 引 号 Index 自 动 等 于 其 序 号, 故 常 用 控 件 数 组 来 简 化 多 个 相 同 控 件 的 操 作 程 序 代 码 如 下 : Private Sub Command1_Click(Index As Integer) Text1.Text = Text1.Text + Command1(Index).Caption Private Sub Command2_Click() Text1.Text = "" Private Sub Command3_Click() Unload Me Private Sub Form_Load() Text1.Text = "" 五 实 验 小 结 科 学 出 版 社 职 教 技 术 出 版 中 心 1) 循 环 与 数 组 结 合 后, 原 则 上 所 有 的 数 值 计 算 与 处 理 都 可 以 完 成 2) 选 择 排 序 冒 泡 排 序 都 涉 及 双 重 循 环 循 环 可 分 多 层 进 行, 但 层 次 之 间 不 能 交 叉 3) 控 件 数 组 只 能 是 同 一 类 控 件

26 第 一 部 分 VB 上 机 实 验 19 实 验 6 VB 的 过 程 函 数 与 调 用 一 实 验 目 的 1) 了 解 并 掌 握 过 程 函 数 的 基 本 概 念 2) 正 确 编 写 过 程 函 数 并 灵 活 调 用 3) 理 解 递 归 的 概 念 二 实 验 题 目 1) 设 计 一 个 窗 体, 通 过 命 令 按 钮 操 作, 用 过 程 与 函 数 两 种 方 法 计 算 N! 运 行 界 面 如 图 所 示 图 ) 设 计 一 个 窗 体, 通 过 命 令 按 钮 操 作, 分 别 调 用 计 算 阶 乘 的 过 程 与 函 数, 计 算 排 列 组 合 的 可 能 次 数 运 行 界 面 如 图 所 示 图 三 实 验 背 景 及 准 备 1) 已 学 习 过 程 的 概 念 2) 已 学 习 函 数 的 概 念

27 20 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 3) 已 了 解 递 归 的 概 念 四 实 验 过 程 与 主 要 步 骤 (1) 题 目 1 进 入 VB, 在 窗 体 上 添 加 2 个 标 签 2 个 文 本 框 和 2 个 命 令 按 钮, 修 改 其 Caption 属 性 在 计 算 按 钮 中 用 一 个 循 环 完 成 N! 的 运 算, 根 据 定 义,N!=N*(N-1)*(N-2)* *1 在 递 归 算 法 按 钮 中 直 接 调 用 求 N! 的 函 数 函 数 写 在 通 用 程 序 段 中 递 归 公 式 N!=N*(N-1)!, 即 欲 求 N!, 必 须 先 求 出 (N-1)! 由 此, 先 有 1!=1, 再 反 推 出 2!, 3!,, N! 程 序 代 码 如 下 : Dim n As Integer Dim p As Integer Dim k As Integer Private Function jshs(x) As Integer If x = 1 Then jshs = 1 Else jshs = x * jshs(x - 1) End Function Private Sub Command1_Click() n = Val(Text1.Text) If n = 0 Or n = 1 Then p = 1 Else p = 1 For k = n To 1 Step -1 p = p * k Text2.Text = p ' 定 义 阶 乘 函 数 ' 递 归 科 学 出 版 社 职 教 技 术 出 版 中 心 Private Sub Command2_Click() n = Val(Text1.Text) Text2.Text = jshs(n) ' 函 数 调 用 Private Sub Form_Load() Text1.Text = "" Text2.Text = ""

28 第 一 部 分 VB 上 机 实 验 21 (2) 题 目 2 1) 进 入 VB, 在 窗 体 上 添 加 1 个 Picture 控 件 1 个 文 本 框 和 2 个 命 令 按 钮 修 改 窗 体 命 令 按 钮 的 Caption 属 性 在 图 片 控 件 的 Picture 属 性 中 载 入 图 片 文 件, 其 外 观 如 图 所 示 图 ) 计 算 N1 的 过 程 与 函 数 都 编 写 在 通 用 程 序 段 中 在 过 程 调 用 与 函 数 调 用 命 令 按 钮 控 件 中 只 写 调 用 的 相 关 命 令 程 序 代 码 如 下 : Public Function jcjs(n As Integer) ' 定 义 函 数 If n = 1 Then jcjs = 1 ' 函 数 有 返 回 值 Else jcjs = n * jcjs(n - 1) End Function Public Sub jcgc(byval n As Integer, ByRef y As Long) ' 定 义 过 程 N 传 值,Y 传 变 量 Dim k As Integer Dim p As Long p = 1 If n > 0 Then For k = n To 1 Step -1 p = p * k y = p ' 过 程 无 返 回 值 Private Sub Command1_Click() Dim y As Long m = 5 jcgc m, y c = y n = 3 Call jcgc(n, y) c = c / y m = 5-3 jcgc m, y ' 过 程 调 用 ' 过 程 调 用

29 22 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 c = c / y Text1.Text = c Private Sub Command2_Click() c = jcjs(5) / jcjs(2) / jcjs(3) Text1.Text = c ' 函 数 调 用 五 实 验 小 结 1) 一 个 事 件 的 响 应 程 序 一 段 写 在 通 用 段 的 程 序, 或 者 添 加 在 模 块 中 的 程 序, 只 要 用 Sub EndSub 括 上 的 内 容, 便 称 为 过 程 2) 用 Fuction EndFuction 括 上 的 程 序 段 称 为 函 数 3) 函 数 有 返 回 值, 过 程 没 有 过 程 通 过 传 地 址 参 数 使 两 个 变 量 具 有 相 同 的 值 4) 在 过 程 与 函 数 的 调 用 中, 实 参 与 形 参 的 个 数 类 型 必 须 匹 配 一 实 验 目 的 实 验 7 VB 基 本 控 件 的 使 用 技 巧 1) 了 解 并 掌 握 单 选 按 钮 复 选 框 的 基 本 用 法 2) 了 解 并 掌 握 时 钟 与 滚 动 条 控 件 的 基 本 用 法 3) 了 解 并 掌 握 列 表 框 控 件 的 使 用 技 巧 二 实 验 题 目 科 学 出 版 社 职 教 技 术 出 版 中 心 1) 设 计 一 个 窗 体, 其 中 包 含 2 个 框 架 控 件 3 个 单 选 按 钮 1 个 文 本 框 和 3 个 复 选 框 分 别 单 击 3 个 单 选 按 钮 时, 其 对 应 的 内 容 将 显 示 在 文 本 框 中,3 个 复 选 框 用 于 控 制 文 本 框 中 文 字 的 字 形 窗 体 运 行 的 界 面 效 果 如 图 所 示 图 1.7.1

30 第 一 部 分 VB 上 机 实 验 23 2) 设 计 一 个 窗 体, 其 中 包 含 1 个 标 签 1 个 滚 动 条 2 个 命 令 按 钮 和 1 个 时 钟 控 件 标 签 显 示 当 前 时 间 ; 滚 动 条 控 制 标 签 字 体 的 大 小 ; 一 个 命 令 按 钮 用 于 暂 停 与 继 续 时 钟 的 显 示, 另 一 个 命 令 按 钮 用 来 控 制 退 出 窗 体 运 行 效 果 如 图 所 示 图 ) 设 计 一 个 窗 体, 其 中 包 含 3 个 标 签 2 个 列 表 框 和 4 个 命 令 按 钮 窗 体 运 行 时, 用 户 可 从 左 侧 的 列 表 框 中 单 选 或 多 选 课 程 添 加 到 右 侧 列 表 框 中, 左 侧 原 内 容 自 动 消 失 也 可 从 右 侧 选 课 程 移 除 到 左 侧 另 外, 双 击 某 项 目 也 可 使 其 自 动 移 至 另 一 边 窗 体 运 行 界 面 效 果 如 图 所 示 图 三 实 验 背 景 及 准 备 1) 已 学 习 单 选 按 钮 复 选 框, 了 解 选 中 与 未 选 中 的 Value 值 2) 已 学 习 时 钟 与 滚 动 条 控 件, 了 解 其 常 用 属 性 3) 已 学 习 列 表 框, 了 解 Listindex List(i) Additem( ) Removeitems( ) 等 属 性 四 实 验 过 程 与 主 要 步 骤 (1) 题 目 1 1) 进 入 VB, 在 窗 体 上 添 加 2 个 Frame( 框 架 ) 控 件, 其 Caption 属 性 分 别 设 为 东 南 亚 与 字 型 变 化, 窗 体 标 题 设 为 单 选 复 选 与 框 架 3 个 单 选 按 钮 组 成 一 个 单 选 控 件 数 组,3 个 复 选 框 组 成 一 个 复 选 控 件 数 组

31 24 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 2) 对 于 控 件 数 组, 选 中 某 个 控 件,Index 属 性 便 返 回 该 控 件 的 索 引 号 ( 序 号 ), 因 此 常 用 Index 作 为 控 件 数 组 下 标 3) 由 于 复 选 框 在 选 中 与 未 选 中 两 者 之 间 变 换, 所 以 可 用 逻 辑 非 (NOT) 运 算 程 序 代 码 如 下 : Private Sub Check1_Click(Index As Integer) ' 复 选 框 控 件 数 组 Select Case Index Case 0 Text1.FontBold = Not Text1.FontBold ' 逻 辑 非 Case 1 Text1.FontItalic = Not Text1.FontItalic Case 2 Text1.FontUnderline = Not Text1.FontUnderline End Select Private Sub Option1_Click(Index As Integer) ' 单 选 框 控 件 数 组 Text1.Text = Option1(Index).Caption (2) 题 目 2 1) 进 入 VB, 在 窗 体 上 添 加 1 个 标 签 1 个 水 平 滚 动 条 (Hscrollbar) 2 个 命 令 按 钮 和 1 个 时 钟 控 件 设 置 滚 动 条 属 性 ( 最 大 值 Max=100, 最 小 值 Min=8, 单 击 滚 动 条 内 部 区 域 改 变 值 LargeChange=10, 单 击 滚 动 条 边 界 按 钮 改 变 值 SmallChange=4) 设 置 窗 体 与 命 令 按 钮 的 Caption 属 性 2) 当 时 钟 停 止 时, 属 性 Interval=0; 时 钟 运 动 时,Interval 取 非 0 值 N, 表 示 N 毫 秒 激 活 一 次 Timer 事 件 本 题 的 Timer 事 件 执 行 Lable1.Caption=Time( ), 使 标 签 显 示 时 间 同 时, 因 为 当 滚 动 条 的 值 (Value) 改 变 (Change) 时, 标 签 显 示 的 时 间 会 跟 着 改 变, 所 以 用 滚 动 条 的 值 作 为 标 签 字 体 的 大 小, 命 令 代 码 为 Label.Fontsize=Hscroll1.Value 程 序 代 码 如 下 : Private Sub Command1_Click() If Command1.Caption = " 暂 停 " Then Command1.Caption = " 继 续 " Timer1.Interval = 0 Else Command1.Caption = " 暂 停 " Timer1.Interval = 500 科 学 出 版 社 职 教 技 术 出 版 中 心 Private Sub Command2_Click() End

32 第 一 部 分 VB 上 机 实 验 25 Private Sub Form_Initialize() Label1.Caption = Time() Private Sub HScroll1_Change() Label1.FontSize = HScroll1.Value Private Sub Timer1_Timer() Label1.Caption = Time() ' 标 签 上 显 示 时 间 (3) 题 目 3 1) 进 入 VB, 在 窗 体 中 添 加 3 个 标 签 2 个 列 表 框 和 4 个 命 令 按 钮, 修 改 窗 体 标 签 命 令 按 钮 的 标 题 设 置 列 表 框 属 性, 在 左 侧 列 表 框 的 List 属 性 中 手 动 输 入 所 有 课 程 设 置 两 个 列 表 框 的 多 选 属 性 Multiselect=2 2) 程 序 中 用 Additem( ) 添 加 列 表 项, 用 Removeitem( ) 移 除 列 表 项, 用 Selected( ) 属 性 返 回 值 表 示 是 否 被 选 中, 用 List(i) 调 出 第 i 个 列 表 项 双 击 列 表 框 时, 直 接 调 用 添 加 或 移 除 过 程 程 序 代 码 如 下 : Private Sub Command1_Click() ' 添 加 过 程 For i = 0 To List1.ListCount - 1 'listcount 返 回 列 表 项 个 数 If List1.Selected(i) Then 'selected(i) 判 断 是 否 选 中 List2.AddItem (List1.List(i)) 'additem() 添 加 列 表 项,list(i) 为 第 i 个 列 表 项 内 容 For i = List1.ListCount - 1 To 0 Step -1 If List1.Selected(i) Then List1.RemoveItem (i) 'removeitem() 移 除 第 i 个 列 表 项 If List1.ListCount = 0 Then Command1.Enabled = False ' 列 表 框 1 为 空, 不 能 再 选 择 Command2.Enabled = False Command3.Enabled = True ' 添 加 以 后, 总 可 移 除 Command4.Enabled = True Private Sub Command2_Click() For i = 0 To List1.ListCount - 1 List2.AddItem (List1.List(i))

33 26 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 For i = List1.ListCount - 1 To 0 Step -1 List1.RemoveItem i Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Command4.Enabled = True Private Sub Command3_Click() For i = 0 To List2.ListCount - 1 If List2.Selected(i) Then List1.AddItem (List2.List(i)) For i = List2.ListCount - 1 To 0 Step -1 If List2.Selected(i) Then List2.RemoveItem i If List2.ListCount = 0 Then Command3.Enabled = False Command4.Enabled = False Command1.Enabled = True Command2.Enabled = True Private Sub Command4_Click() For i = 0 To List2.ListCount - 1 List1.AddItem (List2.List(i)) For i = List2.ListCount - 1 To 0 Step -1 List2.RemoveItem i Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = False 科 学 出 版 社 职 教 技 术 出 版 中 心

34 第 一 部 分 VB 上 机 实 验 27 Private Sub List1_DblClick() Call Command1_Click ' 双 击 列 表 项 等 于 调 用 添 加 过 程 Private Sub List2_DblClick() Call Command3_Click 五 实 验 小 结 1) 对 多 个 单 选 按 钮 一 起 处 理 时, 最 好 使 用 控 件 数 组 2) 单 选 按 钮 复 选 框 控 件 是 否 被 选 中 可 由 其 Value 属 性 的 取 值 标 志 3) 时 钟 控 件 运 行 时 不 可 见, 使 用 中 需 要 设 置 Interval 属 性 与 Timer 事 件 4) 列 表 框 的 RemoveItem 方 法 用 于 移 除 指 定 位 置 的 项 目,AddItem 方 法 用 于 在 末 端 添 加 指 定 内 容 实 验 8 VB 菜 单 设 计 与 多 窗 体 操 作 一 实 验 目 的 1) 了 解 并 掌 握 下 拉 菜 单 ( 系 统 菜 单 ) 快 捷 菜 单 ( 弹 出 式 菜 单 ) 的 概 念 与 设 计 2) 掌 握 多 窗 体 设 计 的 基 本 方 法 与 调 用 技 巧 二 实 验 题 目 1) 设 计 一 个 窗 体, 其 中 包 含 一 个 下 拉 菜 单, 菜 单 中 仅 对 关 闭 菜 单 项 编 写 过 程, 其 余 的 不 写 过 程 窗 体 执 行 效 果 如 图 所 示 2) 在 实 验 7 中 题 目 3 的 基 础 上, 为 列 表 框 添 加 右 键 快 捷 菜 单 窗 体 运 行 效 果 如 图 所 示 图 图 1.8.2

35 28 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 3) 设 计 一 个 窗 体, 其 中 包 含 3 个 标 签 2 个 文 本 框 和 2 个 命 令 按 钮, 窗 体 名 为 Frmform, 文 件 名 为 sy0803.frm 窗 体 运 行 后 界 面 如 图 所 示 当 输 入 用 户 名 为 ABC 口 令 为 123 时, 本 窗 体 隐 藏, 调 用 题 目 1 的 窗 体 (Frmform11) 退 出 Frmform11 窗 体 时, 调 用 题 目 2 的 窗 体 (Frmform12) 退 出 Frmform12 窗 体 时, 调 用 一 个 新 添 加 的 MDI 多 文 档 界 面 窗 体 MDIForm1.frm( 如 图 所 示 ), 最 后 退 出 MDI 窗 体 时 返 回 到 第 一 个 窗 体 三 实 验 背 景 及 准 备 图 图 ) 已 学 习 下 拉 菜 单 快 捷 菜 单, 了 解 其 基 本 概 念 与 编 辑 方 法 2) 已 学 习 多 窗 体 操 作 与 MDI 窗 体 概 念 3) 准 备 了 MDI 窗 体 所 用 的 图 片 文 件 sy08t05.jpg 四 实 验 过 程 与 主 要 步 骤 (1) 题 目 1 1) 进 入 VB, 修 改 窗 体 的 Caption 属 性 为 菜 单 设 计 选 择 工 具 菜 单 编 辑 器 命 令, 打 开 如 图 所 示 的 界 面 科 学 出 版 社 职 教 技 术 出 版 中 心 图 ) 在 菜 单 编 辑 器 对 话 框 中 输 入 标 题 名 称 若 将 可 见 复 选 框 选 中, 则 执 行 时 会 显 示 出 标 题 菜 单 名 称 必 须 有, 以 便 程 序 中 控 制 调 用 该 菜 单 项 窗 口 的 4 个 箭

36 第 一 部 分 VB 上 机 实 验 29 头 中, 左 右 箭 头 决 定 上 下 级 菜 单 关 系 ; 上 下 箭 头 决 定 菜 单 项 的 先 后 位 置 本 题 打 开 菜 单 项 选 择 快 捷 键 为 Ctrl+O ; 保 存 项 输 入 保 存 (&S), 其 中 & 引 导 的 后 一 字 符 为 热 键, 即 运 行 中 按 Alt+S 组 合 键 可 代 替 单 击 保 存 命 令 保 存 与 关 闭 之 间 输 入 标 题 - ( 减 号 ), 名 称 任 意 取, 运 行 时 在 保 存 与 关 闭 之 间 产 生 一 条 分 隔 线, 没 有 过 程 响 应 菜 单 名 称 标 题 等 项 目 设 置 好 后, 单 击 确 定 按 钮, 返 回 窗 体, 此 时 可 在 菜 单 中 编 写 各 个 菜 单 项 的 单 击 响 应 程 序 本 题 只 在 关 闭 中 编 写 End 语 句 程 序 代 码 如 下 : Private Sub vbclose_click() End (2) 题 目 2 1) 进 入 VB, 打 开 实 验 7 中 第 3 题 的 工 程 文 件 sy0703.vbp, 另 存 为 sy0802.vbp, 关 闭 后 再 打 开 进 行 编 辑 选 择 工 具 菜 单 编 辑 器 命 令, 编 写 如 图 所 示 的 菜 单 注 意 : 添 加 移 除 两 个 一 级 菜 单 设 置 为 不 可 见 ( 先 选 为 可 见, 待 各 个 菜 单 项 响 应 过 程 编 写 完 成 后, 再 选 为 不 可 见 ) 图 ) 作 为 弹 出 式 菜 单, 当 单 击 右 键 时, 添 加 或 移 除 菜 单 将 被 激 活 这 里 用 MouseUp( 鼠 标 释 放 ) 或 MouseDown( 鼠 标 按 下 ) 事 件 来 检 测 鼠 标 动 作 例 如 MouseUp, 格 式 如 下 : Private Sub object _MouseUp([index As Integer,]button As Integer, shift As Integer, x As_ Single, y As Single) 其 中,button 返 回 一 个 整 数, 对 应 于 左 键 右 键 以 及 中 间 按 键 的 值 分 别 等 于 1 2 和 4, 即 如 果 单 击 右 键, 则 button=2 当 MouseUp 检 测 到 右 键 被 按 下 后, 便 可 调 用 PopupMenu 方 法 弹 出 相 应 的 菜 单 PopupMenu 方 法 的 格 式 如 下 : object.popupmenu menuname, flag, x, y, boldcommand

37 30 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 其 中,flag=2 表 示 不 论 使 用 鼠 标 右 按 钮 还 是 左 按 钮, 弹 出 式 菜 单 中 的 项 目 都 响 应 鼠 标 单 击 程 序 代 码 如 下 : Private Sub add_click() Command1.Value = True ' 调 用 命 令 按 钮 1 的 过 程, 即 添 加 Private Sub alladd_click() Command2.Value = True Private Sub allremove_click() Command4.Value = True Private Sub Command1_Click() ' 添 加 过 程 For i = 0 To List1.ListCount 1 'listcount 返 回 列 表 项 个 数 If List1.Selected(i) Then 'selected(i) 判 断 是 否 选 中 List2.AddItem (List1.List(i)) 'additem() 添 加 列 表 项,list(i) 为 第 i 个 列 表 项 内 容 For i = List1.ListCount - 1 To 0 Step -1 If List1.Selected(i) Then List1.RemoveItem (i) 'removeitem() 移 除 第 i 个 列 表 项 If List1.ListCount = 0 Then Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Command4.Enabled = True 科 学 出 版 社 职 教 技 术 出 版 中 心 ' 列 表 框 1 为 空, 不 能 再 选 择 ' 添 加 以 后, 总 可 移 除 Private Sub Command2_Click() For i = 0 To List1.ListCount - 1 List2.AddItem (List1.List(i)) For i = List1.ListCount - 1 To 0 Step -1 List1.RemoveItem (i) Command1.Enabled = False

38 第 一 部 分 VB 上 机 实 验 31 Command2.Enabled = False Command3.Enabled = True Command4.Enabled = True Private Sub Command3_Click() For i = 0 To List2.ListCount - 1 If List2.Selected(i) Then List1.AddItem (List2.List(i)) For i = List2.ListCount - 1 To 0 Step -1 If List2.Selected(i) Then List2.RemoveItem (i) If List2.ListCount = 0 Then Command3.Enabled = False Command4.Enabled = False Command1.Enabled = True Command2.Enabled = True Private Sub Command4_Click() For i = 0 To List2.ListCount - 1 List1.AddItem (List2.List(i)) For i = List2.ListCount - 1 To 0 Step -1 List2.RemoveItem (i) Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = False Private Sub List1_DblClick() Call Command1_Click ' 双 击 列 表 项 等 于 调 用 添 加 过 程 Private Sub List1_MouseUp(Button As Integer, Shift As Integer, X As Single, _

39 32 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 Y As Single) If Button = 2 Then PopupMenu vbadd, 2 ' 检 测 右 键 按 下 ' 激 活 菜 单 Private Sub List2_DblClick() Call Command3_Click Private Sub List2_MouseDown(Button As Integer, Shift As Integer, X As Single,_ Y As Single) If Button = 2 Then PopupMenu vbremove, 2 Private Sub remove_click() Command3.Value = True (3) 题 目 3 1) 进 入 VB, 分 别 打 开 第 1 题 窗 体 sy0801.frm 第 2 题 窗 体 sy0802.frm, 然 后 分 别 另 存 为 窗 体 Frmform11.frm Frmform12.frm 窗 体 名 称 (Name) 改 为 Frmform11 与 Frmform12 2) 依 照 图 所 示 编 写 窗 体 文 件 sy0803.frm, 窗 体 名 称 为 Frmform13 选 择 工 程 添 加 窗 体 命 令, 在 现 存 窗 体 文 件 中 选 择 Frmform11.frm 与 Frmform12.frm 选 择 工 程 添 加 MDI 窗 体 命 令, 新 建 窗 体 MDIForm1.frm, 窗 体 名 为 MDIForm1 在 视 图 工 程 资 源 管 理 器 命 令 中 可 看 到 多 个 窗 体 并 列 逐 步 选 择 各 个 窗 体 进 行 编 程 3) 在 sy0803.frm 中, 为 使 密 码 呈 现 * ( 星 号 ), 在 文 本 框 的 PasswordChar 属 性 中 输 入 一 个 * sy0803.frm 的 程 序 代 码 如 下 : Private Sub Command1_Click() If UCase(Trim(Text1.Text)) = "ABC" And Val(Text2.Text) = 123 Then MsgBox (" 欢 迎 使 用 学 生 成 绩 管 理 系 统 ") frmform11.show Me.Hide Else pm = MsgBox(" 口 令 错 误!", , " 出 错 ") If pm = 3 Then Command2.Value = True 科 学 出 版 社 职 教 技 术 出 版 中 心 ' 调 用 另 一 窗 体 ' 隐 藏 本 窗 体

40 第 一 部 分 VB 上 机 实 验 33 Private Sub Command2_Click() End Private Sub Form_Load() Text1.Text = "" Text2.Text = "" 4)Frmform11.frm 的 程 序 代 码 如 下 : Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) ' 卸 载 时 响 应 frmform12.show ' 显 示 另 一 窗 体 Me.Hide ' 隐 藏 本 窗 体 Private Sub vbclose_click() frmform12.show Me.Hide 5)Frmform12.frm 增 加 的 程 序 代 码 如 下 : Private Sub Form_Unload(Cancel As Integer) MDIForm1.Show ' 调 用 另 一 窗 体 Me.Hide 6)MDIForm1.frm 的 背 景 图 案 通 过 在 Picture 属 性 中 载 入 图 形 文 件 sy08t05.jpg 实 现 程 序 代 码 如 下 : Private Sub MDIForm_Unload(Cancel As Integer) frmform1.show Me.Hide 五 实 验 小 结 1)VB 菜 单 分 为 系 统 菜 单 与 弹 出 式 菜 单, 弹 出 式 菜 单 中 的 一 级 菜 单 需 设 置 为 不 可 见 2) 菜 单 名 窗 体 名 控 件 名 都 是 必 不 可 少 的, 用 在 程 序 控 制 与 调 用 中 3) 多 窗 体 多 模 块 的 添 加 编 辑 与 调 用 代 表 VB 软 件 开 发 的 综 合 应 用 4) 调 用 控 件 过 程 有 多 种 方 式, 可 让 其 值 Value=True, 也 可 用 Call 语 句 调 用

41 34 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 实 验 9 VB 目 录 控 件 与 文 件 读 写 一 实 验 目 的 1) 了 解 VB 中 磁 盘 目 录 文 件 的 组 织 结 构, 掌 握 相 关 控 件 的 使 用 2) 了 解 顺 序 文 件 随 机 文 件 的 概 念, 掌 握 VB 传 统 方 式 的 文 件 读 写 二 实 验 题 目 1) 综 合 应 用 磁 盘 目 录 文 件 3 个 列 表 框 控 件, 实 现 相 互 之 间 关 联, 即 磁 盘 的 选 择 决 定 目 录 的 位 置, 目 录 的 选 择 决 定 文 件 的 位 置 由 用 户 给 出 某 种 文 件 类 型, 通 过 查 找 命 令 按 钮 实 现 将 选 出 的 文 件 显 示 在 文 件 列 表 框 中 当 在 文 件 列 表 框 中 选 中 某 项 目 后, 则 在 文 本 框 中 出 现 该 文 件 的 完 整 路 径 与 文 件 名 程 序 的 运 行 界 面 如 图 所 示 图 科 学 出 版 社 职 教 技 术 出 版 中 心 2) 设 计 程 序, 实 现 传 统 方 式 的 VB 顺 序 文 件 与 随 机 文 件 的 读 写 工 作 界 面 及 执 行 结 果 如 图 所 示 其 中, 顺 序 文 件 的 读 写 完 成 对 已 有 文 件 life.txt 的 读 出 并 写 入 到 back.txt 文 件 中 首 先 定 义 如 下 记 录 类 型 长 度 : Private Type studentb xm As String * 8 ' 学 生 姓 名 xb As String * 2 ' 学 生 性 别 sr As String * 16 ' 出 生 日 期 fs As String * 8 ' 入 学 分 数 End Type 然 后 写 入 两 条 记 录 : 1 号 记 录 : 莫 虎 男 10/11/ 号 记 录 : 那 梅 女 05/10/ 最 后 读 出 3 号 记 录 并 打 印

42 第 一 部 分 VB 上 机 实 验 35 图 三 实 验 背 景 及 准 备 1) 具 备 文 件 目 录 驱 动 器 的 基 本 概 念, 学 习 了 磁 盘 目 录 文 件 3 个 列 表 框 控 件 2) 了 解 了 顺 序 文 件 随 机 文 件 的 存 储 特 点 与 VB 相 关 读 写 命 令 3) 了 解 文 件 号 的 取 值 范 围 四 实 验 过 程 与 主 要 步 骤 (1) 题 目 1 1) 进 入 VB, 在 窗 体 中 放 入 相 应 控 件 并 调 整 合 适 的 大 小 与 位 置 2) 对 于 磁 盘 控 件 Drive1, 需 要 使 用 其 Drive 属 性 和 Change 事 件 初 始 时 可 设 置 Drive 为 C 盘, 当 用 户 改 变 盘 符 时, 则 激 活 Change 事 件 3) 对 于 目 录 控 件 Dir1, 需 要 使 用 Path 属 性 为 使 目 录 控 件 与 磁 盘 控 件 联 动, 可 在 磁 盘 控 件 的 Change 事 件 中 设 置 目 录 控 件 的 Path 属 性 为 Drive1.Drive 4) 对 于 文 件 控 件 File1, 需 要 使 用 Path 属 性 和 Pattern 属 性 Path 指 明 当 前 目 录, Pattern 指 明 将 在 文 件 列 表 框 显 示 的 文 件 类 型 为 使 文 件 控 件 与 目 录 控 件 联 动, 在 目 录 控 件 的 Change 事 件 中 设 置 文 件 控 件 的 Path 属 性, 使 之 等 于 目 录 控 件 的 Path 文 件 控 件 的 Pattern 初 值 设 为 *.*, 表 示 任 意 类 型 5) 查 找 命 令 按 钮 需 要 指 定 文 件 控 件 的 Pattern 属 性 6) 文 件 控 件 的 Filename 属 性 将 返 回 文 件 列 表 框 中 当 前 所 选 中 的 内 容 7) 可 用 App.path 直 接 得 到 当 前 路 径, 它 表 示 当 前 对 象 所 在 的 目 录 程 序 代 码 如 下 : Private Sub Command1_Click() File1.Pattern = Text1.Text Private Sub Dir1_Change() File1.Path = Dir1.Path

43 36 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 Private Sub Drive1_Change() Dir1.Path = Drive1.Drive Private Sub File1_Click() Text2.Text = Dir1.Path & File1.FileName Private Sub Form_Load() Text1.Text = "*.*" (2) 题 目 2 进 入 VB, 在 窗 体 上 添 加 2 个 命 令 控 件 对 于 文 件 的 读 写, 有 打 开 (Open) 关 闭 (Close) 及 文 件 号 (#number) 等 命 令 与 概 念, 根 据 需 要 选 择 读 (Input) 写 (Print Write) 命 令 对 于 随 机 文 件, 需 要 指 定 记 录 号, 也 就 是 当 前 读 写 位 置 在 随 机 文 件 中, 记 录 可 以 作 为 用 户 定 义 类 型, 事 先 定 义 每 个 字 段 的 类 型 长 度 程 序 代 码 如 下 : Private Type studentb xm As String * 8 ' 学 生 姓 名 当 前 目 录 xb As String * 2 ' 学 生 性 别 sr As String * 16 ' 出 生 日 期 fs As String * 8 ' 入 学 分 数 End Type Private Sub Command1_Click() Dim fnum As Integer fnum = FreeFile ' 空 余 的 文 件 号, 默 认 为 1 Open App.Path & "\life.txt" For Input As #fnum ' 读 fnum 号 文 件,app.path Open App.Path & "\back.txt" For Output As #3 ' 写 3 号 文 件 Do Until EOF(fnum) Line Input #fnum, abcd Print abcd Print #3, abcd Loop Close #fnum Close #3 科 学 出 版 社 职 教 技 术 出 版 中 心 ' 判 断 是 否 到 文 件 尾 ' 读 入 ' 写 入 ' 关 闭 文 件 Private Sub Command2_Click() Dim stu As studentb With stu.xm = " 莫 虎 ".xb = " 男 "

44 第 一 部 分 VB 上 机 实 验 37.sr = #10/11/1990#.fs = 560 End With Open App.Path & "\rand.txt" For Random As #1 Len = Len(stu) Put #1, 1, stu With stu.xm = " 那 梅 ".xb = " 女 ".sr = #5/10/1991#.fs = 555 End With Put #1, 3, stu Close #1 Open App.Path & "\rand.txt" For Random As #1 Len = Len(stu) Get #1, 3, stu Print stu.xm, stu.xb, stu.sr, stu.fs Close #1 五 实 验 小 结 1) 在 VB 中, 磁 盘 目 录 文 件 3 个 列 表 框 控 件 的 使 用 可 使 应 用 程 序 界 面 进 一 步 直 观 与 智 能 化 2) 在 文 件 的 读 写 中, 打 开 与 关 闭 读 与 写 的 对 应, 文 件 号 的 一 致, 都 是 容 易 出 错 的, 应 该 注 意 3) 除 了 传 统 方 式,VB 也 支 持 其 他 方 式 的 文 件 操 作 实 验 10 VB 作 图 一 实 验 目 的 1) 了 解 并 掌 握 VB 作 图 的 坐 标 体 系 与 原 点 位 置 2) 利 用 线 条 形 状 等 控 件 作 图 3) 自 定 义 作 图 二 实 验 题 目 编 写 窗 体 及 过 程 窗 体 上 用 线 条 控 件 (Line) 和 形 状 控 件 (Shape) 画 出 斜 线 与 圆, 并 用 坐 标 定 位, 画 出 正 弦 函 数 与 直 线 圆 程 序 运 行 界 面 如 图 所 示

45 38 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 图 三 实 验 背 景 及 准 备 1) 学 习 了 线 条 与 形 状 控 件 2) 了 解 直 角 坐 标 概 念 及 基 本 函 数 图 形 3) 了 解 圆 椭 圆 的 半 径 长 短 轴 概 念 四 实 验 过 程 与 主 要 步 骤 题 目 1 1) 进 入 VB, 在 窗 体 上 添 加 控 件 至 适 当 大 小 位 置 对 于 线 条 状 控 件 直 接 操 作, 拖 放 形 成 一 定 长 度 的 线 条 对 于 Shape 控 件, 在 属 性 Shape 中 选 择 Circle( 圆 ), 并 设 置 属 性 Width 与 Height 相 等 运 行 时 得 到 显 示 效 果 2) 自 定 义 作 图 时 首 先 用 Scale 命 令 定 义 坐 标 范 围, 此 时 原 点 在 窗 体 左 下 角, 而 不 是 默 认 的 左 上 角 用 Pset(x,y) 画 坐 标 点, 可 以 有 形 状 颜 色 等 选 择 本 题 所 作 图 为 正 弦 函 数, 对 形 状 作 了 适 当 放 大 中 间 部 分 的 圆 通 过 调 用 Circle 方 法 实 现 程 序 代 码 如 下 : Private Sub Command1_Click() Scale (0, 100)-(110, 0) BackColor = QBColor(7) ' 以 当 前 窗 体 大 小 定 义 坐 标 刻 度,(0,0) 在 左 下 角 ' 设 置 背 景 色 Line (0, 55)-(110, 58), RGB(255, 0, 0), BF For X = 0 To 110 Y = * Sin(2 * 3.14 * X / 110) PSet (X, Y), RGB(0, 0, 255) PSet (X, Y + 1), RGB(0, 0, 255) PSet (X, Y - 1), RGB(0, 0, 255) CurrentX = 50 ' 画 直 线 ' 正 弦 函 数 ' 在 (x,y) 坐 标 着 色 CurrentY = 100 ' 设 置 print 位 置 坐 标 Print " 正 弦 函 数 图 " 'print 方 法 FillStyle = 1 ' 画 一 个 空 心 圆 科 学 出 版 社 职 教 技 术 出 版 中 心

46 第 一 部 分 VB 上 机 实 验 39 Circle (50, 50), 20,,,, 1 CurrentX = 50: CurrentY = 50 Print " 圆 " 'circle 方 法 Private Sub Command2_Click() Cls 'cls 方 法 五 实 验 小 结 1)VB 的 作 图 功 能 强 大, 基 本 的 作 图 需 要 定 义 坐 标 与 使 用 作 图 命 令 2) 作 图 的 关 键 是 分 析 描 述 图 形 本 身 的 内 在 数 学 关 系 与 显 示 色 彩 形 状 设 计 实 验 11 VB 数 据 库 的 初 步 应 用 一 实 验 目 的 1) 了 解 并 掌 握 VB 操 纵 数 据 库 的 基 本 方 法 2) 初 步 实 现 VB 控 件 与 数 据 库 的 关 联 3) 简 单 了 解 SQL 语 句 二 实 验 题 目 1) 建 立 数 据 库 用 Access 2003 建 立 一 个 student.mdb 库, 包 含 学 生 档 案 学 生 成 绩 两 张 表 记 录 数 据 如 图 和 图 所 示 图 图 在 VB 中 选 择 外 部 程 序 可 视 化 数 据 管 理 器 命 令 打 开 student97.mdb, 并 执 行 一 个 SQL 查 询, 找 出 在 学 生 档 案 与 学 生 成 绩 表 中 同 时 出 现 的 学 生, 并 将 查 询 结 果 保 存 为 ABCD 操 作 结 果 如 图 所 示

47 40 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 图 ) 编 写 程 序, 用 数 据 库 控 件 Data 连 接 数 据 库 student97.mdb, 显 示 添 加 或 删 除 学 生 档 案 表 的 内 容 程 序 运 行 界 面 如 图 所 示 3) 编 写 程 序, 用 ADO 模 式 连 接 数 据 库, 隐 藏 Adodc 控 件, 实 现 数 据 库 内 容 的 直 观 显 示 运 行 界 面 如 图 所 示 三 实 验 背 景 及 准 备 图 图 ) 学 习 了 数 据 库 的 基 本 概 念 2) 初 步 了 解 VB 是 通 过 控 件 与 命 令 定 义 操 纵 与 控 制 数 据 库 的 3) 对 于 SQL 语 句 有 简 单 认 识 四 实 验 过 程 与 主 要 步 骤 (1) 题 目 1 1) 进 入 VB, 选 择 外 部 程 序 可 视 化 数 据 管 理 器 命 令, 可 以 新 建 Access Foxpro 等 数 据 库 因 为 VB 是 通 过 命 令 与 控 件 来 操 作 管 理 数 据 库 的, 所 以 用 Access 2003 直 接 建 立 student.mdb 科 学 出 版 社 职 教 技 术 出 版 中 心

48 第 一 部 分 VB 上 机 实 验 41 2) 用 Access 创 建 表 也 是 个 简 单 的 学 习 过 程 一 个 数 据 库 可 包 含 若 干 张 表, 每 张 表 由 表 名 字 段 与 记 录 构 成 字 段 定 义 需 要 确 定 字 段 名 类 型 长 度 另 外, 为 了 便 于 索 引 与 排 序, 需 要 确 定 一 个 主 关 键 字, 默 认 的 是 自 动 编 号 3) 如 图 和 图 中 的 数 据 可 以 顺 利 完 成 表 的 建 立 在 照 片 字 段 处 理 中, 本 来 应 选 择 OLE 对 象 数 据 类 型, 因 为 版 本 原 因 以 及 便 于 将 来 更 灵 活 地 处 理 图 形, 因 此 选 择 文 本 类 型 4) 为 了 使 VB 能 够 有 效 地 驱 动 数 据 库, 当 数 据 库 建 立 后, 在 Access 中 使 用 工 具 数 据 库 实 用 工 具 命 令 将 文 件 转 换 成 Access 97 格 式, 数 据 库 名 为 student97.mdb 5) 在 VB 中 选 择 外 部 程 序 可 视 化 数 据 管 理 器 命 令 打 开 student97.mdb, 并 执 行 一 个 SQL 查 询, 即 Select * From 学 生 档 案, 学 生 成 绩 where 学 生 档 案. 姓 名 = 学 生 成 绩. 姓 名, 找 出 在 学 生 档 案 与 学 生 成 绩 表 中 同 时 出 现 的 学 生, 并 将 查 询 结 果 保 存 为 ABCD (2) 题 目 2 1) 进 入 VB, 依 照 题 意 在 窗 体 上 添 加 所 需 要 的 控 件 这 里 有 两 个 基 本 问 题 : 一 是 如 何 建 立 起 数 据 库 控 件 Data1 与 具 体 数 据 库 表 的 联 系? 二 是 其 他 控 件 如 何 与 数 据 库 控 件 Data1 关 联, 并 绑 定 到 某 个 表 的 具 体 字 段? 第 一 个 问 题, 在 数 据 库 控 件 Data1 中 修 改 3 个 属 性 Connect Databasename Recordsource 其 中 第 一 个 指 定 数 据 库 类 型 ; 第 二 个 指 定 数 据 库 名 称 ; 最 后 一 个 指 定 表 的 名 称 第 二 个 问 题, 比 如 文 本 框 复 选 框 等, 需 要 修 改 2 个 属 性 Datasource Datafield, 第 一 个 指 明 数 据 库 控 件 名 称, 第 二 个 指 明 绑 定 的 字 段 名 2) 数 据 库 控 件 Data1 本 身 提 供 了 向 前 向 后 翻 动 记 录 的 功 能, 但 不 提 供 删 除 添 加 记 录 的 功 能, 所 以 实 现 添 加 与 删 除 功 能 需 要 使 用 Data 控 件 的 Recordset 对 象, 调 用 它 的 方 法 并 进 行 编 程 本 题 需 用 到 Addnew 与 Delete 方 法 程 序 代 码 如 下 : Private Sub Command1_Click() Data1.Recordset.AddNew Private Sub Command2_Click() aa = " 真 的 要 删 除 当 前 记 录 嘛?" bb = MsgBox(aa, vbokcancel, " 删 除 记 录 ") If bb = vbok Then Data1.Recordset.Delete (3) 题 目 3 1) 进 入 VB, 依 照 题 意 在 窗 体 上 添 加 所 需 要 的 控 件, 增 加 一 个 图 片 (Picture) 控 件 用 以 显 示 照 片 2) 使 用 ADO 技 术 进 行 数 据 库 连 接 选 择 工 程 部 件 命 令, 打 开 如 图

49 42 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 所 示 的 界 面, 选 中 Microsoft Datalist Control 6.0(OLE DB) Microsoft ADO Data Control 6.0(SP6)(OLE DB) Microsoft DataGrid Control 6.0 (SP6) (OLE DB) Mcrosoft Hierarchical FlexGrid Control 6.0 (SP6)(OLE DB) 等 复 选 框, 添 加 到 工 具 箱 3) 工 具 箱 上 会 出 现 相 应 的 几 个 控 件 选 中 Adodc 控 件 将 其 放 入 窗 体, 控 件 名 称 自 动 为 Adodc1 设 置 属 性 Visible 为 False, 即 不 可 见 设 置 Adodc 控 件 的 Connectionstring 属 性, 其 功 能 用 于 连 接 数 据 库 单 击 该 属 性 后 出 现 如 图 所 示 的 界 面 图 图 ) 选 择 使 用 连 接 字 符 串 单 选 按 钮, 输 入 一 个 连 接 字 符 串 ( 用 户 自 定 义 ), 例 如 abcd, 然 后 弹 出 如 图 所 示 的 界 面, 选 择 Microsoft Jet 3.51 OLE DB Provider, 即 微 软 对 象 嵌 入 链 接 引 擎 提 供 商 选 项 科 学 出 版 社 职 教 技 术 出 版 中 心 图 ) 单 击 下 一 步 按 钮, 打 开 如 图 所 示 的 界 面, 选 择 相 应 的 数 据 库 名 C: \VB 实 验 \sy11\student97.mdb, 不 需 要 使 用 密 码 登 录 6) 测 试 连 接, 弹 出 如 图 所 示 的 界 面

50 第 一 部 分 VB 上 机 实 验 43 图 图 ) 测 试 连 接 成 功 后, 单 击 确 定 按 钮 退 出 设 置 Adodc1 控 件 的 Recordsource 属 性, 以 便 连 接 到 具 体 的 某 一 个 表, 本 题 为 学 生 档 案 在 Adodc1 的 属 性 窗 口 中 单 击 Recordsource 项, 弹 出 属 性 页, 选 择 命 令 类 型 与 表 或 存 储 过 程 名 称, 结 果 如 图 所 示 图 其 他 各 个 控 件 与 Adodc1 的 绑 定 设 置 如 同 题 目 2 中 与 Data1 的 绑 定 属 性 Datasource 选 择 Adodc1,Datafield 选 择 学 生 档 案 表 中 相 应 字 段 在 本 题 中 要 求 根 据 记 录 号 把 相 应 图 片 文 件 放 入 图 片 控 件 的 Picture 属 性 中, 因 此 书 写 语 句 :Picture1.Picture = LoadPicture(App.Path & "\" & Adodc1.Recordset.Fields(" 照 片 ")) 程 序 代 码 如 下 : Private Sub Command1_Click() Adodc1.Recordset.MoveFirst 转 到 第 一 条 记 录 Picture1.Picture = LoadPicture(App.Path & "\" & Adodc1.Recordset.Fields(" 照 _ 片 ")) 照 片 调 出 Private Sub Command2_Click()

51 44 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 Adodc1.Recordset.Move 转 到 下 一 条 记 录 If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast 转 到 最 后 一 条 记 录 Picture1.Picture = LoadPicture(App.Path & "\" & Adodc1.Recordset.Fields(" 照 _ 片 ")) Private Sub Command3_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF = True Then Adodc1.Recordset.MoveFirst Picture1.Picture = LoadPicture(App.Path & "\" & Adodc1.Recordset.Fields(" 照 _ 片 ")) Private Sub Command4_Click() Adodc1.Recordset.MoveLast Picture1.Picture = LoadPicture(App.Path & "\" & Adodc1.Recordset.Fields(" 照 _ 片 ")) Private Sub Form_Load() 初 始 状 态 Picture1.Picture = LoadPicture(App.Path & "\" & Adodc1.Recordset.Fields(" 照 _ 片 ")) 五 实 验 小 结 1) 数 据 库 数 据 库 管 理 系 统 数 据 库 程 序 设 计 有 专 门 的 理 论 与 方 法,VB 是 以 命 令 与 控 件 来 控 制 使 用 与 管 理 数 据 库 的 2)Access 数 据 库 语 言 适 宜 小 型 桌 面 数 据 库 管 理 系 统 的 开 发 3)SQL 语 言 功 能 强 大, 可 跨 语 言 平 台 使 用 科 学 出 版 社 职 教 技 术 出 版 中 心