VB课程设计报告——扫雷游戏.docVIP

VB课程设计报告 -------扫雷游戏 马学清 1008260132 指导老师：张小兵 题目介绍 在计算机逐步渗入社会生活各个层面的今天，计算机已经成为人们日常生活的一分，越来越多的人使用计算机办公、娱乐等等。 扫雷游戏是Windows操作系统自带的一款小游戏，在过去的几年里，Windows操作系统历经数次换代更新，变得越来越庞大、复杂，功能也越来越强大，但是这款小游戏依然保持原来的容貌，可见这款小游戏受到越来越多人的喜爱。我利用Turbo C 编写了与它功能相仿的扫雷游戏，寓学于乐。 程序功能 程序功能 程序的功能是随机生成地雷数，通过鼠标操作玩游戏，不接受键盘，按任意键结束程序。单击屏幕上的“开始”按钮可以重新开始游戏。所有地雷标出后胜利，当鼠标左键单击到地雷时失败。 程序设计目的 1．培养综合运用所学知识独立完成课题的能力。 2．更深入地理解和掌握该课程中的有关基本概念，程序设计思想和方法。 3．提高对工作认真负责、一丝不苟，对同学团结友爱，协作攻关的基本素质。 4．培养勇于探索、严谨推理、实事求是、有错必改，用实践来检验理论，全方位考虑问题等科学技术人员应具有的素质。 5．培养从资料文献、科学实验中获得知识的能力，提高从别人经验中找到解决问题的新途径的悟性，初步培养工程意识和创新能力。 6．对掌握知识的深度、运用理论去处理问题的能力、实验能力、课程设计能力、书面及口头表达能力进行考核 游戏规则 设计10×10 格区域，单击鼠标后，在此格中显示的数字，则表示它周围就有几个空格内含有的地雷数，周围没有地雷的显示空白，则不能再单击了。如果是地雷，则游戏结束。如果判断是地雷，可以单击鼠标右键标出，显示红色，要取消红旗标志则再单击鼠标右键，当所有地雷都标出，每个空格都处理过，那么游戏就胜利结束。 程序源代码 级别 Private Sub Form_Load() 默认初级 dengji = 1 Call nandu(dengji) End Sub Private Sub zidingyi_Click() 自定义类型 Load Form2 Form2.Show End Sub Private Sub again_Click() 重新开始 Call nandu(dengji) End Sub Private Sub chuji_Click() 1级 dengji = 1 Call nandu(dengji) End Sub Private Sub zhongji_Click() 2级 dengji = 2 Call nandu(dengji) End Sub Private Sub gaoji_Click() 3级 dengji = 3 Call nandu(dengji) End Sub Private Sub tuichu_Click() 退出 Unload Me End Sub Private Sub bang_Click() 显示英雄榜 Load Form3 Form3.Show End Sub Private Sub about_Click() 显示关于扫雷 Load Form4 Form4.Show End Sub Private Sub Timer1_Timer() 处理计时器 If time 999 Then time = time + 1 stime1 = Format(time, 000) heng = Pic1.Width - (4 + 13) - 13 - 13 时间处理 For i = 1 To 3 stime2 = Mid(stime1, i, 1) Pic1.PaintPicture Clip1.GraphicCell(11 - Val(stime2)), heng, 4 heng = heng + 13 Next shijian(dengji) = time End If If time = 999 Then 游戏失败 MsgBox 你输了, 0, 失败 End If End Sub Public Sub nandu(dengji) 调用主程序 Dim s As Integer Open App.Path mingzi Fo