1、 课 程 大 作 业 报 告 课程名称： vb 程序设计（自学） 课程编号： 0533006 作业内容： 制作小游戏（排排看） 专 业： 计算机科学与技术 班 级： 学 号： 姓 名： 指导教师： 2 20 0 年年 月月 日日 目目 录录 1.1.课程大作业目的课程大作业目的 1 1 1.1 加深对 VB 的运用 . 1 运用所学 VB 知识自行设计一个小游戏，加深对 VB 的相关了解，熟练掌握其操作过 程。 1 2.2.课程大作业题目描述和要求课程大作业题目描述和要求 1 1 2.1 课程设计该小游戏的描述 1 2.2 课程设计小游戏要求 3.3.课程大作业报告内容课程大作业报告内容 1
2、1 3.1 在 VB 应用程序里设计好小游戏（排排看）窗口。共有控件如下： . 1 3.2 设计好界面后，打开“代码”窗口，编写如下代码： 2 4.4.总结总结 6 6 浙江林学院信息工程学院课程大作业报告 1 1.1.课程课程大作业大作业目的目的 1.1 加深对 VB 的运用 运用所学 VB 知识自行设计一个小游戏，加深对 VB 的相关了解，熟练掌握其操作过 程。 1.2 提高兴趣 通过所做的课程设计来提高学习 VB 的个人兴趣。 2.课程大作业题目描述和要求 2.1 课程设计该小游戏的描述 游戏者打开以设计好的该款 exe 格式的游戏，会弹出一个游戏界面。点击游戏菜单 项里的开局项，游戏开
3、始。 通过单击鼠标来移动数字，直到数字按首行，次行，第三行 排列，时，游戏者胜利。 期间游戏者可以通过菜单项进行“重玩” 、 “退出”及“帮助”操作。 2.2 课程设计小游戏要求 要在对游戏的原理进行深入分析的基础上，利用标签控件数组和鼠标事件来设计该 款游戏。 3.3.课程课程大作业大作业报告内容报告内容 3.1 在 VB 应用程序里设计好小游戏（排排看）窗口。共有控件如下： 控件名称 Form Label Shape 数量 1 11 1 设计界面如下图所示： 浙江林学院信息工程学院课程大作业报告 2 3.2 设计好界面后，打开“代码”窗口，编写如下代码： Private Sub Form_
4、Load() End Sub Private 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 浙江林学院信息工程学院课程大作业报告 3 lbl(Index) = term flag = True For i = 0 To 7 If Val(lbl(i) i + 1 Then flag = False Next If flag
