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

课 程 大 作 业 报 告课程名称： vb程序设计（自学） 课程编号： 0533006 作业内容： 制作小游戏（排排看） 专 业： 计算机科学与技术 班 级： 学 号： 姓 名： 指导教师： 20 年 月 日目 录1.课程大作业目的11.1加深对VB的运用1运用所学VB知识自行设计一个小游戏，加深对VB的相关了解，熟练掌握其操作过程。12.课程大作业题目描述和要求12.1 课程设计该小游戏的描述12.2课程设计小游戏要求3.课程大作业报告内容13.1 在VB应用程序里设计好小游戏（排排看）窗口。共有控件如下：13.2 设计好界面后，打开“代码”窗口，编写如下代码：24.总结51.课程大作业目的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.总结 通过对VB这一课程的自学，了解并掌握了其基本操作。以课程设计的形式加深了对VB这一计算机语言的认知。 课程设计的该款游戏类似于很多人喜爱的单机游戏纸牌，很大程度上对游戏者学习VB有一定的促进作用。