VB课程设计--制作小游戏.doc

课 程 大 作 业 报 告课程名称： vb程序设计（自学） 课程编号： 0533006 作业内容： 制作小游戏（排排看） 专 业： 计算机科学与技术 班 级： 学 号： 姓 名： 指导教师： 20 年 月 日目 录1.课程大作业目的11.1加深对vb的运用1运用所学vb知识自行设计一个小游戏，加深对vb的相关了解，熟练掌握其操作过程。12.课程大作业题目描述和要求12.1 课程设计该小游戏的描述12.2课程设计小游戏要求3.课程大作业报告内容13.1 在vb应用程序里设计好小游戏（排排看）窗口。共有控件如下：13.2 设计好界面后，打开“代码”窗口，编写如下代码：24.总结5浙江林学院信息工程学院课程大作业报告1.课程大作业目的1.1加深对vb的运用运用所学vb知识自行设计一个小游戏，加深对vb的相关了解，熟练掌握其操作过程。1.2 提高兴趣通过所做的课程设计来提高学习vb的个人兴趣。2.课程大作业题目描述和要求2.1 课程设计该小游戏的描述游戏者打开以设计好的该款exe格式的游戏，会弹出一个游戏界面。点击游戏菜单项里的开局项，游戏开始。通过单击鼠标来移动数字，直到数字按首行，次行，第三行排列，时，游戏者胜利。 期间游戏者可以通过菜单项进行“重玩”、“退出”及“帮助”操作。2.2课程设计小游戏要求要在对游戏的原理进行深入分析的基础上，利用标签控件数组和鼠标事件来设计该款游戏。3.课程大作业报告内容3.1 在vb应用程序里设计好小游戏（排排看）窗口。共有控件如下：控件名称formlabelshape数量1111 设计界面如下图所示： 3.2 设计好界面后，打开“代码”窗口，编写如下代码： private sub form_load()end subprivate sub lbl_dragdrop(index as integer, source as control, x as single, y as single) if (abs(source.index - index) = 1 or abs(source.index - index) = 3) and lbl(index) = then term = source.caption source.caption = lbl(index).caption lbl(index) = term flag = true for i = 0 to 7 if val(lbl(i) i + 1 then flag = false next if flag then msgbox 你赢了!, 48, 排排看 end ifend subprivate sub mabout_click() msgbox 程序设计: & vbcrlf & 2009年6月, 48, 排排看end subprivate sub mexit_click() dim x% x = msgbox(结束游戏吗？, vbyesno + 48, 排排看) if x = vbyes then unload gameformend subprivate sub mnew_click() dim i%, j%, k% randomize timer for i = 0 to 8 lbl(i) = next i for i = 1 to 8 k = int(rnd * 9) if val(lbl(k) = 0 then lbl(k) = i else for j = 0 to 8 if val(lbl(j) = 0 then lbl(j) = i exit for end if next j end if next iend subprivate sub mreplay_click() dim i% for i = 0 to 7 lbl(i) = next mnew_clickend sub3.3 编写好代码后，执行操作，结果如下： 窗口内设有游戏、帮助两个菜单项。游戏项又包含三个子菜单项，依次为：开局(f2)、重玩（f3）、退出（x）。点击“开局”子菜单项可弹出如下界面（注：数字是随机排列的，即每点击一次，弹出界面的排列顺序会不一样的，下图只是其中的一例）使用时可以单击鼠标来移动数字，当数字按首行，次行，第三行，排列时，游戏者胜利。点击“帮助”选项，弹出如下界面：4.总结 通过对v