《VB猜数字游戏课程设计报告》由会员分享，可在线阅读，更多相关《VB猜数字游戏课程设计报告（17页珍藏版）》请在金锄头文库上搜索。
1、猜 数 字 游 戏 猜数字游戏实验报告 课 程 设 计 的 目 的 课 程 设 计 为 学 生 提 供 了 一 个 既 能 动 手 又 能 动 脑 ， 独 立 实 践 的 机 会 ， 将 课 本 上 的 v b 课 理 论 知 识 和 实 践 有 机 的 结 合 起 来 ， 锻 炼 学 生 的 分 析 解 决 实 际 问 题 的 能 力 、 提 高 运 用 v b 应 用 的 能 力 。 课 程 设 计 题 目 和 简 介 猜 数 字 游 戏 ； 游 戏 开 始 时 系 统 将 随 机 产 生 一 个 数 字 不 同 的 四 位 数 ， 玩 家 根 据 游 戏 提 示 纠 正 答 案 （ 1
2、A 0 B ： 表 示 猜 中 一 个 数 字 且 位 置 正 确 ； 2 A 2 B ： 有 两 个 数 字 正 确 且 位 置 正 确 有 两 个 数 字 正 确 当 位 置 不 正 确 ） 输 入 的 数 字 不 能 相 同 也 不 能 为 空 而 且 只 有 十 次 机 会 。1 设 计 说 明 R a n d o m i z e 产 生 随 机 数 用 户 输 入 值 比 较 随 机 值 与 输 入 值 给 出 提 示 确 定 退 出 游 戏 开 始 游 戏 设 计 思 路 首 先 要 创 建 三 个 窗 口 ， f o r m 1 是 进 入 游 戏 界 面 ， f o r m 2
3、 是 游 戏 运 行 界 面 ， f o r m 3 是 游 戏 规 则 介 绍 。2 其 次 要 按 要 求 实 现 三 个 窗 口 的 s h o w 与 h i d e 在 代 码 为 P r i v a t e S u b c o m m a n d * _ c l i c k ( ) f o r m * . s h o w F o r m * . h i d e E n d s u b 在 f o r m 3 中 我 没 有 用 这 种 方 法 ， 因 为 在 f o r m 3 中 又 关 闭 按 钮 ， 如 果 想 之 前 一 样 的 话 ， 按 关 闭 按 钮 就 直 接 退
4、出 游 戏 了 ， 而 我 想 要 实 现 是 再 次 回 到 游 戏 进 入 界 面 ， 所 以 有 用 了 一 个 方 法 代 码 为 : P r i v a t e s u b f o r m _ u n l o a d ( C a n c l e a s i n t e g e r ) F o r m 1 . s h o w E n d s u b 这 样 子 就 防 止 之 前 那 种 情 况 的 发 生 了 下 一 步 开 始 创 建 控 件 现 在 f o r m 1 中 创 建 游 戏 进 入 界 面 ， 根 据 游 戏 需 要 应 该 创 建 3 个 c o m m a n
5、d 控 件 ， 和 一 个 l a b e l 控 件3 然 后 开 始 编 写 代 码 代 码 如 下 P r i v a t e S u b C o m m a n d 1 _ C l i c k ( ) F o r m 1 . H i d e f o r m 2 . S h o w E n d S u b P r i v a t e S u b C o m m a n d 2 _ C l i c k ( ) F o r m 1 . H i d e F o r m 3 . S h o w E n d S u b P r i v a t e S u b C o m m a n d 3 _ C
6、 l i c k ( ) E n d E n d S u b4 P r i v a t e S u b F o r m _ L o a d ( ) L a b e l 1 . B a c k S t y l e = 0 把 l a b e l 1 的 背 景 方 式 改 为 透 明 E n d S u b 当 然 也 可 以 在 f o r m 1 的 界 面 上 加 上 自 己 喜 欢 的 图 片 ， 需 要 在 p i c t u r e 中 加 载 然 后 在 f o r m 3 中 设 计 游 戏 规 则 界 面 这 个 界 面 中 我 把 最 大 化 与 最 化 省 去 了 ， 然
7、后 把 关 闭 按 钮 编 写 了 一 下 在 f o r m 3 的 属 性 栏 中 吧 m i n b u t t o n 和 m a x b u t t o n 的 属 性 改 为 f a l s e 这 样 子 就 不 会 有 最 大 最 小 化 按 钮 了 剩 下 的 就 编 写 代 码 了5 P r i v a t e S u b F o r m _ L o a d ( ) L a b e l 1 . B a c k S t y l e = 0 E n d S u b P r i v a t e S u b F o r m _ u n l o a d ( C a n c l e A
8、 s I n t e g e r ) F o r m 1 . S h o w E n d S u b 也 可 以 在 f o r m 3 界 面 中 加 载 自 己 喜 欢 的 图 片 下 面 的 也 是 这 个 程 序 中 最 重 要 的 程 序 游 戏 的 编 写 首 先 应 该 创 建 控 件6 也 就 是 说 要 创 建 4 个 c o m m a n d 控 件 和 4 个 t e x t 控 件 2 个 l a b e l 控 件 然 后 开 始 编 写 代 码 D i m a 1 A s I n t e g e r , a 2 A s I n t e g e r , a 3 A
9、s I n t e g e r , a 4 A s I n t e g e r P u b l i c c i s h u A s I n t e g e r P r i v a t e S u b C o m m a n d 1 _ C l i c k ( ) 在 点 击 开 始 按 钮 之 后 c o m m a n d 是 可 见 的 ， 可 使 用 的 C o m m a n d 2 . E n a b l e d = T r u e C o m m a n d 3 . E n a b l e d = T r u e R a n d o m i z e 随 机 产 生 四 个 不 同
10、的 数 字 L a b e l 2 . C a p t i o n = 0 & “ A “ & 0 & “ B “ a 1 = I n t ( 1 0 * R n d ) D o a 2 = I n t ( 1 0 * R n d ) L o o p W h i l e a 2 = a 17 D o a 3 = I n t ( 1 0 * R n d ) L o o p W h i l e a 3 = a 1 O r a 3 = a 2 D o a 4 = I n t ( 1 0 * R n d ) L o o p W h i l e a 4 = a 1 O r a 4 = a 2 O r a
11、 4 = a 3 L a b e l 1 . C a p t i o n = “ 已 经 随 机 产 生 了 一 个 数 字 （ 0 9 ） 不 同 的 四 位 数 ！ 猜 猜 是 什 么 数 吧 ！ “ E n d S u b P r i v a t e S u b C o m m a n d 2 _ C l i c k ( ) 重 新 开 始 游 戏 的 设 置 c i s h u = 0 T e x t 1 . T e x t = “ “ T e x t 2 . T e x t = “ “ T e x t 3 . T e x t = “ “ T e x t 4 . T e x t = “
12、 “ R a n d o m i z e L a b e l 2 . C a p t i o n = 0 & “ A “ & 0 & “ B “ a 1 = I n t ( 1 0 * R n d )8 D o a 2 = I n t ( 1 0 * R n d ) L o o p W h i l e a 2 = a 1 D o a 3 = I n t ( 1 0 * R n d ) L o o p W h i l e a 3 = a 1 O r a 3 = a 2 D o a 4 = I n t ( 1 0 * R n d ) L o o p W h i l e a 4 = a 1 O r
13、a 4 = a 2 O r a 4 = a 3 L a b e l 1 . C a p t i o n = “ 已 经 随 机 产 生 了 一 个 数 字 （ 0 9 ） 不 同 的 四 位 数 ！ 猜 猜 是 什 么 数 吧 ！ “ E n d S u b P r i v a t e S u b C o m m a n d 4 _ C l i c k ( ) E n d E n d S u b P r i v a t e S u b F o r m _ L o a d ( ) 可 以 使 c o m m a n d 2 和 c o m m a n d 3 点 击 开 始 游 戏 按 扭 之
14、前 是 灰 色 的 不 可 用 的 C o m m a n d 2 . E n a b l e d = F a l s e C o m m a n d 3 . E n a b l e d = F a l s e9 L a b e l 1 . B a c k S t y l e = 0 L a b e l 2 . B a c k S t y l e = 0 E n d S u b P r i v a t e S u b T e x t 1 _ C h a n g e ( ) T e x t 控 件 中 焦 点 的 设 置 I f L e n ( T e x t 1 . T e x t ) = 1
15、 T h e n T e x t 2 . S e t F o c u s E n d I f E n d S u b P r i v a t e S u b t e x t 2 _ c h a n g e ( ) I f L e n ( T e x t 2 . T e x t ) = 1 T h e n T e x t 3 . S e t F o c u s E n d I f E n d S u b P r i v a t e S u b t e x t 3 _ c h a n g e ( ) I f L e n ( T e x t 3 . T e x t ) = 1 T h e n T e
16、 x t 4 . S e t F o c u s E n d I f E n d S u b P r i v a t e S u b C o m m a n d 3 _ C l i c k ( ) 猜 数 字 真 确 与 否 的 代 码 D i m t m p 1 A s I n t e g e r , t m p 2 A s I n t e g e r , t m p 3 A s I n t e g e r ,1 0 t m p 4 A s I n t e g e r D i m A A s I n t e g e r , B A s I n t e g e r A = 0 B = 0 I f c i s h u = 9 T h e n M s g B o x “ 很 遗 憾 ！ 你 已 经 猜 了 1 0 次 答 案 是 “ & a 1 & a 2 & a 3 & a 4 , , “ 猜 数 字 “ E x i t S u b E n d I f t m p 1 = V a l ( T e x t 1 . T e x t ) t m p 2 = V a l ( T
