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

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