抽奖系统毕业论文.pdf

1、兰 州 职 业 技 术 学 院 信 息 工 程 系 抽 奖 程 序毕 业 论 文1抽 奖 系 统目 录一 、 引 言 . (2)二 、 关 键 字 . (3)三 、 开 发 及 运 行 环 境 . (3)四 、 开 发 平 台 简 介 . (3)五 、 相 关 内 容 . (4)六 、 参 考 文 献 . (10)七 、 结 束 语 . (10)八 、 附 录 . (10)兰 州 职 业 技 术 学 院 信 息 工 程 系 抽 奖 程 序毕 业 论 文2（制作人：杨宏亮指导老师：冯文超）一、引言诞 生 于 本 世 纪 中 叶 的 计 算 机 科 学 较 之 其 他 现 代 科 学 技 术 的

2、发 展 更 迅 速 ， 它 大 大 方 便 了 人 们的 生 活 。 随 着 计 算 机 的 普 及 ， 以 及 计 算 机 技 术 的 不 断 提 高 和 完 善 ， 越 来 越 多 的 企 业 运 用 计算 机 技 术 来 提 高 员 工 的 工 作 效 率 。Visual Basic 版 本 的 不 断 更 新 ， 功 能 不 断 的 得 到 增 强 ， 现 在 的 最 新 版 本 是 VisualBasic6.0。 为 了 满 足 不 同 的 开 发 需 要 ， Visual Basic6.0本 身 又 分 为 学 习 版 本 、 专 业 版 和企 业 版 。 3种 版 本 是 在 相

3、 同 的 基 础 上 建 立 起 来 的 ， 因 此 大 多 数 应 用 程 序 可 在 3种 版 本 中 通用 。 3中 版 本 适 合 于 不 同 的 拥 护 层 次 。 同 时 增 加 了 许 多 新 的 功 能 。（ 1） 学 习 版 ： Visual Basic 的 基 础 版 本 ， 可 用 来 开 发 Windows应 用 程 序 。 该 版 本 包括 所 有 的 内 部 控 件 （ 标 准 控 件 ） 和 网 络 （ Gad） 控 件 、 对 以 及 数 据 绑 定 控 件 。（ 2） 专 业 版 ： 该 版 本 为 编 程 人 员 提 供 一 整 套 用 于 软 件 开 发

4、的 功 能 完 备 的 工 具 。 它 包 括 学习 版 的 全 部 功 能 ， 同 时 包 括 Active控 件 、 Internet控 件 Crystal report Write和 报表 控 件 .（ 3） 企 业 版 ： 该 版 本 包 括 了 专 业 版 的 全 部 功 能 ,同 时 具 有 自 动 化 管 理 器 、 部 件 管 理 器 、 数据 库 管 工 具 。启 动 VB6.0中 文 版 （ 其 它 语 言 的 版 本 也 可 以 ， 操 作 时 请 选 择 相 应 的 菜 单 或 按 钮 ） ， 单 击 “ 视图 ” 菜 单 ， 从 其 中 的 “ 工 具 栏 ” 子 菜

5、 单 中 选 择 “ 自 定 义 ” ， 单 击 它 可 以 打 开 “ 自 定 义 ” 对话 框 ， 选 择 其 中 的 “ 命 令 ” 选 项 卡 。 在 这 个 对 话 框 中 ， 在 左 边 的 “ 类 别 ” 选 项 框 中 找 到“ 帮 助 ” 并 单 击 它 ， 然 后 从 右 边 的 “ 命 令 ” 选 择 框 中 找 到 “ 关 于 Microsoft V isualBasic” ， 按 住 鼠 标 左 键 将 它 拖 到 “ 工 具 条 ” 上 （ 也 可 以 拖 到 一 个 单 中 ） 。 用 鼠 标 右 键 单 击该 按 钮 ， 在 弹 出 的 菜 单 中 找 到 “

6、命 名 ” ， 它 的 后 边 跟 着 一 个 文 字 框 ， 其 中 有 该 按 钮 的 名 字 ：“ 关 于 Microsoft Visual Basic6.0Visual Basic 是 一 种 新 型 的 现 代 程 序 设 计 语 言 .同 传 统 的 高 级 语 言 相 比 , Visual Basic在 许 多 方 面 都 有 重 要 的 改 革 和 突 破 ,其 中 最 根 本 、 最 重 要 的 突 破 集 中 在 以 下 几 点 上 。1) 可 视 化 编 程2) 面 向 对 象 编 程兰 州 职 业 技 术 学 院 信 息 工 程 系 抽 奖 程 序毕 业 论 文33)事

7、 件 驱 动 编 程二、关键词抽 奖 查 询 控 件三、本程序开发及运行环境程 序 开 发 环 境 ： 硬 件 ： 方 正 S650N笔 记 本 电 脑 (CPU ： IntelPentiumT2130 内 存 ： 1024MB)操 作 系 统 ： windowsXPSP3运 行 环 境 ： CPU： PIII以 上 ， 内 存 ： 256MB操 作 系 统 ： windows2000 以 上 。 无 需 其 它 软 件 支 持 。使 用 者 可 以 是 抽 奖 操 作 人 员 或 兑 奖 人 员 。四、开发平台简介VisualBasic6.0 简 介VisualBasic6.0是 美 国 微

8、 软 公 司 推 出 的 对 市 场 冲 击 最 大 、 最 优 秀 的 可 视 化 开 发 环 境 ， 它 提 供 了 一 种 方便 快 捷 的 Windows应 用 程 序 开 发 工 具 VisualBasic。 使 用 了 Microsoftwindows 图 形 用 户 界 面 的 许 多 先进 特 性 和 设 计 思 想 ， 采 用 了 可 重 复 利 用 的 完 整 的 面 向 对 象 的 程 序 语 (Object OrientedLanguage)。 当 今世 界 上 最 快 的 编 辑 器 、 最 为 领 先 的 数 据 库 技 术 。 对 于 广 大 的 程 序 开 发

9、人 员 来 讲 ， VisualBasic。 使 用 开发 应 用 软 件 ， 无 疑 会 大 大 提 高 编 程 效 率 。 VisualBasic6.0 是 目 前 的 最 新 版 本 。 VisualBasic6.0又 在 VisualBasic1.0的 基 础 上 增 加 了 许 多 新 的 功 能 ， 对 开 发 环 境 也 作 了 改 进 和 完 善 ， 特 别 是 增 加 了 大 量 新 的 组 建 ，一 时 用 于 网 络 开 发 的 需 要 。 VisualBasic使 用 “ 可 视 化 ” 的 编 程 方 法 。 程 序 员 不 必 自 己 建 立 对 象 ， 利 用Vi

10、sualBasic 所 提 供 的 可 视 “ 控 件 ” ， 只 要 在 提 供 的 程 序 框 架 中 加 入 完 成 功 能 的 代 码 ， 如 选 择 命 令 、 移动 鼠 标 等 ， 而 不 必 考 虑 按 精 确 次 序 执 行 的 每 个 步 骤 。 在 这 种 机 制 下 ， 不 必 编 写 一 个 大 型 程 序 ， 二 是 建立 一 个 由 若 干 微 小 程 序 组 成 的 应 用 程 序 ， 这 些 微 小 程 序 可 以 由 用 户 启 动 事 件 来 激 发 。 这 样 就 可 以 快 速创 建 强 大 的 应 用 程 序 而 无 须 涉 及 不 必 要 的 细 节

11、 。 这 样 就 为 程 序 员 的 工 作 减 少 了 相 当 一 部 分 难 度 ， 而 且是 系 统 功 能 得 以 全 面 。VisualBasic6.0开 发 环 境 和 基 本 语 言 成 分 ， 程 序 设 计 基 础 知 识 ， 面 向 对 象 程 序 设 计 的 基 本 概 念 和 方 法 ，窗 体 、 菜 单 、 控 件 等 用 户 界 面 的 设 计 ， 以 及 文 件 操 作 、 图 形 图 像 处 理 、 程 序 调 试 与 出 错 处 理 、 数 据 库应 用 、 ActiveX控 件 等 。 VisualBasic6.0是 专 门 为 的 32位 操 作 系 统

12、设 计 的 。 可 用 来 建 立 32位 的 应 用 编程 。 用 VisualBasic6.0的 编 译 器 可 以 自 动 生 成 32位 应 用 程 序 。 这 样 的 应 用 程 序 在 32位 操 作 系 统 下 运行 ， 速 度 更 快 ， 更 安 全 。 并 且 更 适 合 在 多 任 务 环 境 下 运 行 。五、相关内容兰 州 职 业 技 术 学 院 信 息 工 程 系 抽 奖 程 序毕 业 论 文41.1编 写 目 的兰 州 职 业 技 术 学 院 信 息 工 程 系 将 举 行 庆 元 旦 联 欢 晚 会 ， 其 中 有 个 抽 奖 活 动 ， 需 要 一 个 抽 奖

13、软 件 。1.2背 景项 目 名 称 ： 抽 奖 程 序项 目 制 作 人 ： 杨 宏 亮项 目 开 发 单 位 ： 兰 州 职 业 技 术 学 院 信 息 工 程 系 05B网 络 二 班主 管 部 门 ： 兰 州 职 业 技 术 学 院 信 息 工 程 系2.项 目 概 述2.1抽 奖 抽 奖 程 序 功 能 描 述抽 奖 程 序 在 联 欢 晚 会 上 由 主 持 人 输 入 奖 票 号 码 范 围 ， 并 指 定 获 奖 等 级 后 ， 在 给 定 的 号 码 范 围 内 产 生 一个 随 机 号 码 ， 作 为 该 获 奖 等 级 的 一 个 中 奖 号 码 。 如 果 产 生 的

14、中 奖 号 码 与 已 产 生 的 中 奖 的 号 码 重 复 ， 则给 出 明 确 的 提 示 ， 有 操 作 人 员 选 择 中 奖 号 “ 有 效 ” （ 即 中 奖 规 则 允 许 一 个 奖 票 重 复 获 奖 ） ， 或 者 是 “ 无效 ” （ 即 不 允 许 一 个 奖 票 重 复 获 奖 ） 。 可 随 时 显 示 或 打 印 抽 奖 结 果 。程 序 功 能 ：（ 1） 用 户 可 以 输 入 不 同 的 抽 奖 范 围 ， 选 择 不 同 的 中 奖 等 级 。（ 2） 本 抽 奖 程 序 为 随 机 抽 奖 中 奖 号 ， 如 果 产 生 了 重 复 的 中 奖 号 将

15、 根 据 规 则 “ 丢 弃 ” 或 “ 保 留 ”（ 3） 产 生 的 中 奖 和 对 应 的 中 奖 等 级 记 录 在 一 个 名 为 “ LuckRecord” 的 文 本 文 件 中 。（ 4） 可 随 时 打 印 或 显 示 中 奖 记 录 。2.2抽 奖 程 序 流 程 图抽 奖 程 序 系 统 流 程 图 如 图 所 示 。兰 州 职 业 技 术 学 院 信 息 工 程 系 抽 奖 程 序毕 业 论 文51.1 1.21.3 1.4D1 中 奖 信 息抽 奖 程 序 系 统 流 程 图2.3抽 奖 程 序 数 据 流 图抽 奖 程 序 数 据 流 程 图 所 示 。抽 奖 程

16、序 数 据 流 程 图2.4条 件 与 限 制本 程 序 只 限 于 内 部 使 用 ， 考 虑 到 工 会 操 作 人 员 的 水 平 ， 工 会 的 笔 记 本 电 脑 上 不 一 定 有 数 据 库 支 持 环 境 ，兰 州 职 业 技 术 学 院 信 息 工 程 系 抽 奖 程 序毕 业 论 文6所 以 采 用 文 本 文 件 来 记 录 “ 中 奖 信 息 ” 。 用 文 本 文 件 记 录 的 好 处 还 体 现 在 ， 工 会 的 工 作 人 员 ， 尤 其 是 兑奖 人 员 ， 可 以 直 接 到 Windows自 带 的 记 事 本 打 开 中 奖 信 息 和 打 印 中 奖

17、 信 息 。 可 以 开 展 工 作 。3.功 能 要 求3.1主 要 功 能 划 分（ 1） 输 入 抽 奖 规 则（ 2） 产 生 中 奖 号 码（ 3） 显 示 中 奖 信 息（ 4） 更 新 中 奖 记 录（ 5） 打 印 中 奖 记 录3.2功 能 描 述（ 1） 输 入 中 奖 规 则 ： 输 入 最 小 中 奖 号 ， 输 入 最 大 奖 票 号 ， 输 入 是 否 允 许 重 复 抽 奖 。（ 2） 产 生 中 奖 号 码 ： 产 生 一 个 界 于 最 小 奖 票 号 和 最 大 奖 票 号 之 间 的 数 。 并 且 判 断 该 数 是 否 为 一 个 有 效的 中 奖 。

18、（ 3） 显 示 中 奖 信 息 ： 一 表 格 的 形 式 显 示 到 目 前 为 止 所 有 抽 出 的 中 奖 奖 票 号 和 中 奖 等 级 。（ 4） 更 新 中 奖 记 录 :将 中 奖 奖 票 号 和 中 奖 等 级 写 入 “ LuckyRecord” 文 件 。（ 5） 打 印 中 奖 记 录 ： 以 表 格 的 形 式 打 印 “ LuckyRecord” 文 件 内 容 。4 外 部 接 口（ 1） 系 统 输 入 ： 从 用 户 界 面 输 入 奖 票 号 码 范 围 。（ 2） 系 统 输 出 ： 存 放 “ 中 奖 信 息 ” 的 文 本 文 件 。（ 3） 硬 件

19、 接 口 ： 一 般 的 P 机 或 更 高 档 微 机 或 笔 记 本 电 脑 。（ 4） 软 件 接 口 ： Winsows2000或 以 上 版 本 。初 步 决 定 为 程 序 五 个 界 面 ： 主 界 面 ， 如 图 B.3所 示 ； 等 待 中 奖 号 码 产 生 ， 正 在 滚 动 号 码 时 的 界 面 ，如 图 B.4所 示 ； 产 生 了 一 个 中 奖 号 码 的 界 面 ， 如 图 B.5所 示 ； 显 示 或 打 印 “ 中 奖 记 录 ” 的 界 面 ，如 图 B.6所 示 ； 要 求 确 认 中 奖 号 码 重 复 所 抽 奖 票 是 否 有 效 的 对 话 框

20、 ， 如 图 B.7所 示 。 为 什 么 不 在 第一 个 界 面 中 输 入 是 否 重 复 中 奖 的 选 择 ， 而 是 要 单 个 奖 票 来 确 认 呢 ？ 在 需 求 获 取 的 过 程 中 ， 了 解 到 安 慰奖 、 三 等 奖 、 二 等 奖 、 一 等 奖 等 四 个 等 级 的 奖 不 允 许 重 复 但 是 特 等 奖 是 从 所 有 奖 票 中 产 生 ， 允 许 与 其他 等 级 奖 重 复 。 而 且 工 会 的 工 作 人 员 还 说 这 个 规 划 有 可 能 会 变 ， 因 此 ， 这 样 处 理 重 复 抽 取 的 号 码 有 一定 的 灵 活 性 。兰

21、 州 职 业 技 术 学 院 信 息 工 程 系 抽 奖 程 序毕 业 论 文7图 B.3 主 界 面说 明 ： 本 抽 奖 系 统 需 要 使 用 着 指 定 奖 票 号 的 范 围 ， 以 及 最 大 和 最 小 奖 票 号 码进 行 抽 奖 。 本 系 统 为 了 防 止 人 为 的 作 弊 ， 使 用 着 可 以 输 入 最 小 奖 票 号 和 最 大奖 票 号 后 ， 锁 定 程 序 防 止 二 次 输 入 发 生 作 弊 行 为 。 当 使 用 者 输 入 抽 奖 范 围 并锁 定 后 ， 使 用 者 单 击 开 始 抽 奖 按 钮 ， 系 统 将 开 始 按 照 指 定 的 范

22、围 开 始 随 即 抽奖 。图 B.4 奖 票 号 码 滚 动 时 的 界 面说 明 ： 当 抽 奖 系 统 运 行 起 来 之 后 ， 操 作 着 可 以 选 择 奖 票 的 等 级 ， 并 选 定 中 奖 号 码 。 显 示 下 一 界 面 。兰 州 职 业 技 术 学 院 信 息 工 程 系 抽 奖 程 序毕 业 论 文8图 B.5 中 奖 号 码 的 界 面说 明 ： 当 程 序 运 行 到 此 界 面 ， 程 序 将 自 动 保 存 中 奖 号 码 ， 并 保 存 中 奖 号 码 的 等 级 。 使 用 人 员 可 以 单 击开 始 抽 奖 按 钮 ， 开 始 抽 取 其 它 奖 票

23、 号 。图 B.6显 示 中 奖 记 录说 明 ： 当 抽 奖 完 成 后 ， 使 用 人 员 可 以 查 看 中 奖 号 码 的 等 级 以 及 中 奖 号 。图 B.7奖 票 是 否 有 效说 明 ： 如 果 中 奖 号 码 有 重 复 将 提 示 使 用 者 ， 次 奖 票 是 否 有 效 。5 性 能 需 求（ 1） 用 户 单 击 开 始 抽 奖 后 ， 程 序 1秒 内 调 出 “ 正 在 产 生 中 奖 号 码 的 界 面 ” ， 显 示 翻 滚 着 的 随 机 奖 票 号兰 州 职 业 技 术 学 院 信 息 工 程 系 抽 奖 程 序毕 业 论 文9码 。（ 2） 用 户 单

24、 击 “ 选 定 中 奖 号 码 ” 到 获 取 奖 号 的 响 应 时 间 为 1秒 。（ 3） 抽 奖 后 重 复 对 话 框 等 待 1分 种 ， 用 户 仍 不 做 出 选 择 ， 自 动 响 应 为 允 许 重 复 。（ 4） 显 示 抽 奖 记 录 ， 打 印 抽 奖 记 录 ， 表 格 弹 出 时 间 性 在 2分 钟 之 内 。5 2数 据 精 度 要（ 1） 本 系 统 全 部 为 整 数（ 2） 中 奖 等 级 最 多 可 以 有 99个 中 奖 等 级 ， 最 大 奖 票 号 允 许 为 99999。 最 小 奖 票 号 为 空 ， 则 默 认 为 1。6.软 件 属 性

25、 要 求（ 1） 正 确 性 ： 本 软 件 要 求 在 一 般 条 件 下 ， 不 产 生 不 在 最 大 和 最 小 奖 票 号 之 间 的 中 奖 号 码 。（ 2） 可 靠 性 ： 一 般 条 件 下 ， 不 会 死 机 。（ 3） 效 率 ： 各 个 操 作 在 1-20s内 完 成 。（ 4） 完 整 性 ： 如 果 出 现 意 外 情 况 ， 要 求 前 面 已 产 生 的 中 奖 记 录 是 完 好 的 。（ 5） 易 使 用 性 ： 界 面 符 合 windows风 格 ， 能 对 照 画 面 提 示 直 接 操 作 。（ 6） 可 维 护 性 ： 如 果 将 这 个 程 序

26、 用 在 学 生 联 欢 会 时 ， 也 应 能 快 速 修 改 ， 或 有 错 误 时 也 能 快 速 修 改 。（ 7） 可 测 试 性 ： 设 计 时 尽 可 能 减 少 测 试 各 项 功 能 的 工 作 量 。（ 8） 复 用 性 ： 尽 量 选 用 已 有 的 设 计 、 类 来 节 省 开 发 时 间 ， 设 计 尽 量 模 块 化 ， 方 便 以 后 复 用 。（ 9） 安 全 保 密 性 ： 因 为 这 个 程 序 主 要 在 一 种 娱 乐 活 动 中 采 用 ， 没 有 特 别 安 全 性 要 求 。（ 10） 可 理 解 性 ： 要 求 程 序 中 的 菜 单 、 按

27、钮 、 提 示 信 息 直 观 ， 一 看 就 懂 。（ 11） 可 移 植 性 ： 要 求 在 PC机 、 笔 记 本 电 脑 上 通 用 。（ 12） 互 联 性 ： 没 有 互 联 要 求 。7 其 他 要 求无8 数 据 说 明8 1静 态 数 据最 大 奖 票 号 、 最 小 奖 票 号 、 奖 票 。8.2动 态 数 据中 奖 记 录 、 中 奖 奖 票 号 、 中 奖 等 级 。8.3数 据 文 件 描 述中 奖 记 录 ： LuckRecord文 件 ， 由 于 系 统 本 身 并 不 复 杂 ， 所 以 决 定 用 文 本 文 件 来 保 存 中 奖 记 录 中 的 中 奖兰

28、 州 职 业 技 术 学 院 信 息 工 程 系 抽 奖 程 序毕 业 论 文10奖 票 号 和 中 奖 记 录 。8.4数 据 字 典1奖 票 =数 字 52中 奖 等 级 =1数 字 23最 大 奖 票 号 =1数 字 54最 小 奖 票 号 =1数 字 55中 奖 奖 票 号 =1数 字 56中 奖 记 录 =1中 奖 奖 票 号 中 奖 等 级 n六 参 考 文 献1 VB编 程 技 术 2 软 件 工 程 与 UML作 者 ： 胡 琳 玲 黄 奇七 结 束 语经 过 近 一 个 多 月 的 分 析 、 设 计 和 调 试 终 于 完 成 了 本 软 件 。 在 程 序 设 计 过 程

29、 中 我 着 重 进 行 了 查 询 、统 计 和 报 表 的 设 计 工 作 ， 在 软 件 的 功 能 方 面 或 许 存 在 许 多 不 足 和 平 不 完 善 的 地 方 ， 通 过 使 用 过境 程 中 的 信 息 反 馈 有 待 以 后 继 续 完 善 。 通 过 设 计 分 析 此 软 件 ， 我 受 益 匪 浅 ， 把 所 学 的 理 论 通 过毕 业 设 计 与 实 践 联 系 起 来 ， 解 决 实 际 问 题 ， 提 高 了 我 设 计 水 平 和 编 程 技 巧 ， 同 时 也 认 识 到 自 己的 不 足 。 此 次 设 计 通 过 指 导 教 师 的 热 心 指 导

30、 以 及 我 的 主 动 观 察 就 和 努 力 得 以 顺 利 完 成 。 在 此 特别 感 谢 冯 老 师 的 精 心 指 导 。敬 礼八 附 录主 界 面 代 码 如 下 ：OptionExplicitPrivateSubCheck1_Click()IfCheck1.Value=1ThenText1.Enabled=FalseElseText1.Enabled=TrueEndIf兰 州 职 业 技 术 学 院 信 息 工 程 系 抽 奖 程 序毕 业 论 文11EndSubPrivateSubCheck2_Click()IfCheck2.Value=1ThenText2.Enabled=

31、FalseElseText2.Enabled=TrueEndIfEndSubPrivateSubCommand1_Click()C=FormMain.Text1.TextD=FormMain.Text2.TextIfIsNumeric(Text1.Text)AndIsNumeric(Text2.Text)ThenIfVal(Text1.Text)Val(Text2.Text)ThenMsgBox“非 法 操 作 ， 最 小 票 号 不 能 大 于 最 大 票 号 ！ “,vbCritical,“非 法 操 作 “Else A=Val(Text1.Text)B=Val(Text2.Text)Fo

32、rmCount.ShowEndIfElse IfText1.Text=“OrText2.Text=“ThenMsgBox“奖 票 号 不 能 为 空 ， 请 输 入 奖 票 号 范 围 ！ “,vbCritical,“非 法 操 作 “Else MsgBox“非 法 奖 票 号 的 范 围 ， 请 重 新 输 入 ！ （ 只 能 是 数 字 ） “,vbCritical,“非 法 操 作 “EndIfEndIfEndSubPrivateSubCommand2_Click()兰 州 职 业 技 术 学 院 信 息 工 程 系 抽 奖 程 序毕 业 论 文12strFileName=App.Pat

33、h& “LuckyRecord.ini“lngHandle=FreeFile()OpenstrFileNameForInputAslngHandleDoWhileNotEOF(lngHandle)LineInput#lngHandle,strLinestrall=strall& strLine& vbCrLfLoopFormPrint.Text1.Text=strallUnloadMeFormPrint.ShowEndSubPrivateSubForm_Load()X0=Screen.WidthY0=Screen.HeightX0=(X0-Me.Width)/2Y0=(Y0-Me.Height

34、)/2Me.MoveX0,Y0strFileName=App.Path& “LuckyRecord.ini“lngHandle=FreeFile()strWrite=“OpenstrFileNameForAppendAslngHandlePrint#lngHandle,strWriteCloselngHandleEndSubPrivateSubTimer1_Timer()IfLabel2.ForeColor=vbRedThenLabel2.ForeColor=vbGreenElseLabel2.ForeColor=vbRed兰 州 职 业 技 术 学 院 信 息 工 程 系 抽 奖 程 序毕

35、业 论 文13EndIfEndSubPrivateSubTimer2_Timer()EndSub中 奖 号 的 界 面 如 下 所 示 ：OptionExplicitPrivateSubCommand1_Click()Timer2.Enabled=FalseFormCreate.Text2.Text=Combo1FormCreate.Text1.Text=Text2.TextstrFileName=App.Path& “LuckyRecord.ini“lngHandle=FreeFile()strWrite=“& “& “& Combo1& “& “& “& “& “& “& “& “& “&

36、 “& “& “&“& “& Text2.TextOpenstrFileNameForAppendAslngHandlePrint#lngHandle,strWriteCloselngHandleUnloadMeFormCreate.ShowEndSubPrivateSubForm_Load()X0=Screen.WidthY0=Screen.HeightX0=(X0-Me.Width)/2Y0=(Y0-Me.Height)/2Me.MoveX0,Y0EndSubPrivateSubTimer1_Timer()IfLabel2.ForeColor=vbRedThen兰 州 职 业 技 术 学

37、院 信 息 工 程 系 抽 奖 程 序毕 业 论 文14Label2.ForeColor=vbGreenElse Label2.ForeColor=vbRedEndIfEndSubPrivateSubTimer2_Timer()RandomizeText2.Text=Int(Rnd()*(A-B+1)+B)EndSub中 奖 号 码 产 生 代 码 如 下 ：PrivateSubForm_Load()X0=Screen.WidthY0=Screen.HeightX0=(X0-Me.Width)/2Y0=(Y0-Me.Height)/2Me.MoveX0,Y0EndSubPrivateSubTimer1_Timer()IfLabel2.ForeColor=vbRedThenLabel2.ForeColor=vbGreenLabel2.Font.Bold=TrueLabel2.Font.Size=15ElseLabel2.ForeColor=vbRedLabel2.Font.Bold=FalseLabel2.Font.Size=12EndIfEndSub