VB课程设计 打地鼠论文
打地鼠vb课程设计
打地鼠vb课程设计一、课程目标知识目标：1. 学生能够理解VB编程的基本概念，掌握打地鼠游戏的规则和设计思路。
2. 学生能够运用VB编程语言，实现打地鼠游戏的界面设计和功能实现。
3. 学生了解计算机编程中的循环、条件语句和随机函数的应用。
技能目标：1. 学生能够运用VB编程环境，独立编写打地鼠游戏的代码。
2. 学生能够通过调试和修改代码，解决编程过程中遇到的问题。
3. 学生提高问题分析能力，能够运用编程思维解决实际问题。
情感态度价值观目标：1. 学生培养对计算机编程的兴趣，激发创新意识和探索精神。
2. 学生在团队协作中，学会沟通、分享和合作，培养集体荣誉感。
3. 学生通过编程实践，认识到科技对社会发展的积极作用，树立正确的价值观。
课程性质：本课程为实践性课程，结合 VB 编程教学，以学生动手实践为主。
学生特点：六年级学生具备一定的计算机操作能力，对游戏有浓厚兴趣，但编程经验不足。
教学要求：教师需关注学生的个体差异，提供适当的指导与帮助，鼓励学生独立思考，培养解决问题的能力。
在教学过程中，注重将目标分解为具体的学习成果，便于教学设计和评估。
二、教学内容本课程教学内容围绕VB编程实现打地鼠游戏，依据课程目标，教学内容分为以下三个部分：1. VB编程基础知识：- 了解VB编程环境，熟悉界面和基本操作。
- 学习变量、数据类型、运算符和表达式等基本概念。
- 掌握条件语句（If...Then...）和循环语句（For...Next，Do...Loop）的使用。
2. 游戏设计思路与实现：- 分析打地鼠游戏的规则和设计思路。
- 学习使用VB中的随机函数（Rnd）生成随机数，实现地鼠随机出现。
- 学习设计游戏界面，使用控件（如PictureBox）显示地鼠和锤子。
3. 编程实践与调试：- 学生分组进行编程实践，独立编写打地鼠游戏代码。
- 学习使用调试工具，查找并解决编程过程中的错误。
- 评价与改进：展示学生作品，进行评价和交流，提出改进意见。
打地鼠_VB课程设计
目录第1章课程设计目的与要求 (1)1.1 课程设计目的 (1)1.2 课程设计的实验环境 (1)1.3 课程设计的预备知识 (1)1.4 课程设计要求 (1)第2章课程设计内容 (2)2.1 游戏介绍 (2)2.2 游戏设计 (3)2.3 游戏实现 (12)第3章课程设计总结 (14)参考文献 (15)第1章课程设计目的与要求1.1 课程设计目的本课程的课程设计实际是学生学习完《可视化编程技术》课程后，进行的一次全面的综合训练，其目的在于加深对可视化编程技术基本知识的理解，掌握运用VB开发应用程序的基本方法及基本技巧。
1.2 课程设计的实验环境硬件要求能运行Windows 9.X操作系统的微机系统。
软件：Microsoft Visual Basic 6.01.3 课程设计的预备知识熟悉Visual Basic 6.0程序设计的基本语法知识及常用技巧。
1.4 课程设计要求按课程设计指导书提供的课题，每个小组设计一个完整的小游戏应用程序。
要求根据规定设计游戏的具体要求，按照应用程序的设计步骤和VB的基本知识应用程序的分析与实现。
应根据后面给出的基本学时分配合理安排设计时间，并独立完成各方面的设计。
选择同一题目的同学，可以共同协作完成一个应用程序的开发任务。
要求书写详细的设计说明书，对有复杂的代码段和程序段的部分，应画出程序流程图，写出全部的代码。
在界面设计中，需画出每个窗体的布局，进行属性说明，杜绝雷同。
第2章课程设计内容2.1游戏介绍2.1.1 游戏规则打地鼠是一种非常有趣的益智游戏。
游戏进行时，地鼠不断从洞中探出头再缩回去，当地鼠头在洞外时，可以通过按键的方式打击地鼠，时间到时游戏结束，打中地鼠次数越多得分越高，击错、逃跑数越多得分越低。
在英雄榜中保留前五名最高得分信息。
2.1.2 游戏说明进入“游戏”选择“打地鼠”，选择“开始/帮助/英雄榜”，按ok 键确认选项，鼠标左键敲打地鼠。
鼠标左右键都可打击想、要能更快的打到地鼠连续打击左右键，那能加快打地鼠的次数。
打地鼠游戏设计毕业论文(设计)
打地鼠游戏机公布论文和全部源码，仅供学习摘要：本作品采用STC12C5A60S22单片机作为主控芯片，选取1602液晶作为显示屏，通过红外接收器用遥控控制游戏机的开机和关机。
游戏程序应用C语言编译，主要使用函数为随机函数和键盘扫描函数。
通过随机函数产生一个随机数，该随机数使显示屏对应位置出现“O”，同时对应的LED被点亮以代表地鼠的随机出现。
通过键盘扫描函数，使每个按键各对应一个LED灯，通过按下该键使相应LED灯熄灭。
本系统配有开场音乐和游戏音效。
关键词：单片机、随机函数、键盘扫描函数、音乐Abstract: this work using STC12C5A60S2 microcontroller as the main control chip select LCD as a display,1602, through the infrared receiver remote control game startup and shutdown. This game program using C language editing, the main function used are the random function and keyboard scan function. Use random functions to generate a random number, at the same time the random number to display the corresponding position"0" and the corresponding LED is illuminated to represent the random hamster. Through the keyboard scan function, make each key corresponds to a LED lamp, by pressing this key to the corresponding LED lights.The whole process has background music and game sound.Key words: SCM, random function, keyboard scan function, music游戏说明：本游戏由8个LED灯分别代表8只地鼠，当地鼠跳出来时显示屏对应位置出现“O”，同时该地鼠对应的LED灯被点亮，在限定时间内按下相应按键后，对应LED灯熄灭，同时“O”闪烁一下，表示打中该地鼠。
嵌入式课程设计报告--基于ARM平台的打地鼠游戏
中南大学嵌入式课程设计《基于ARM平台的打地鼠游戏》姓名：董嘉伟学号：0909103303班级：物联网1002指导教师：刘连浩李刚时间：2013-9-13目录●课程设计内容●课程设计实验环境●课程设计原理分析●课程设计开发计划●课程设计系统设计图●课程设计关键源码分析●课程设计成果展示●课程设计总结●参考资料●工程源代码一、课程设计内容本次课程设计基于课程《物联网与嵌入式系统》的学习，利用现有的硬件知识和计算机软件编程知识从以下三个题目选择一个作为课程设计内容：测频程序、交通灯演示系统、打地鼠游戏，难度依次递增。
基于个人实力和兴趣的考虑，我选择了打地鼠游戏作为我的课程设计题目。
具体要求如下：●LCD正确显示需求内容●触摸屏功能正常使用●基本的打地鼠游戏环节●打地鼠游戏流畅运行，无显著BUG●游戏结束后输出统计数据二、课程设计实验环境软件：WindowsXP\Keil uVision4.72\ARM DeveloperSuite1.2\H-JTAG\DNW\，其中keil编译优化等级为Level0.硬件：飞凌FL2440开发板，4.3寸（480*272）显示屏、USB-JTAG 仿真器实验室：中南大学-美国德州仪器联合嵌入式实验室三、课程设计原理分析1、LCD显示原理分析S3C2440的LCD控制器由由一个逻辑单元组成，它的作用是：把LCD 图像数据从一个位于系统内存的videobuffer传送到一个外部的LCD 驱动器。
LCD控制器使用一个基于时间的像素抖动算法和侦速率控制思想，可以支持单色，2-bitper pixel(4级灰度)或者4-bit-pixel(16级灰度)屏，并且它可以与256色(8BPP)和4096色(12BPP)的彩色STN LCD连接。
它支持1BPP,2BPP,4BPP,8BPP的调色板TFT彩色屏并且支持64K色(16BPP)和16M色(24BPP)非调色板真彩显示。
LCD控制器是可以编程满足不同的需求，关于水平，垂直方向的像素数目，数据接口的数据线宽度，接口时序和刷新速率。
打地鼠类小游戏VB代码解析
Private Sub Image1_Click(Index As Integer)
For i = 0 To 11
If Image1(i) = Image2 Then
Image1(i) = Image3
f = f + 10
Call Image2_Click
Else
Call Image3_Click
Call Image2_Click
End If
i = i + 1
Next i
= hp
= a
= f
End Sub
Private Sub Image2_Click()
a = 10
= True
i = Int(Rnd * 12)
If i = 0 Then Image1(0) = Image2
If i = 1 Then Image1(1) = Image2
二、此刻咱们开始在Form1窗体的相应位置放置花瓶图像，在窗体上放置图像框控件Image1，然后拷贝、粘贴变成一个控件组，包括十二个图像框控件Image1(0)-----------Image1(11)，
Image1(0)-------------------Image1(11)控件的picture的属性为：
打地鼠c课程设计
打地鼠c 课程设计一、课程目标知识目标：1. 学生能理解“打地鼠”游戏的编程原理，掌握基本的循环结构和条件语句的使用。
2. 学生能运用所学知识，设计并实现一个简单的“打地鼠”游戏，展示出对程序流程控制的深入理解。
技能目标：3. 学生通过实践操作，提升编程解决问题的能力，培养逻辑思维和创造性思维能力。
4. 学生能够在团队协作中有效沟通，共同完成游戏设计任务，增强团队合作能力。
情感态度价值观目标：5. 学生在编程学习过程中，培养对信息科学的兴趣和好奇心，增强自我探索和主动学习的动力。
6. 学生通过游戏设计的成功体验，建立自信心，激发对科技创新的热情，培养积极向上的学习态度。
7. 学生在团队协作中，学会相互尊重和包容，培养集体荣誉感和责任感，体现社会主义核心价值观。
二、教学内容本节教学内容以《信息技术》教材中“程序设计基础”章节为依据，结合课程目标，具体包括以下内容：1. 程序设计基本概念：回顾变量、数据类型、输入输出等基础知识，为游戏设计打下基础。
2. 循环结构：讲解for循环和while循环的用法，通过实例演示循环结构在游戏中的运用。
3. 条件语句：介绍if-else条件判断，让学生理解如何根据不同条件执行不同操作。
4. 游戏设计：以“打地鼠”游戏为例，讲解游戏设计的基本流程，包括游戏规则、角色控制、得分与计时等。
5. 编程实践：指导学生运用所学知识，分组进行“打地鼠”游戏的设计与编程。
6. 课堂讨论：针对编程过程中遇到的问题，组织学生进行讨论，分享经验，解决问题。
7. 作品展示与评价：展示各小组设计的“打地鼠”游戏，组织学生进行评价，提高学生的审美和评价能力。
教学进度安排如下：第一课时：回顾程序设计基本概念，讲解循环结构。
第二课时：讲解条件语句，介绍游戏设计基本流程。
第三课时：分组进行编程实践，教师巡回指导。
第四课时：课堂讨论，作品展示与评价。
教学内容与课程目标紧密结合，确保学生在学习过程中掌握所需知识，提高编程技能。
打地鼠 vb教学设计
打地鼠vb教学设计打地鼠是一种经典的休闲游戏，它提供了一个有趣的方式来锻炼玩家的反应速度和手眼协调能力。
在VB中设计打地鼠游戏可以让学生学习和实践一些基本的编程概念，如控件交互、事件处理和图形绘制。
下面我将为你介绍一个设计打地鼠游戏的VB教学项目。
首先，我们需要创建一个新的VB工程，并添加一个窗体(Form)。
在窗体上添加一个时钟控件(Timer)，一个标签控件(Label)用于显示分数，以及一些图片控件(Image)用于显示地鼠。
接下来，我们需要给窗体和控件设置一些初始属性和事件处理程序。
在窗体的加载事件处理程序中，设置窗体的标题、大小和背景颜色。
我们也可以添加一些全局变量来追踪游戏状态和分数。
然后，我们需要设计一个函数来控制地鼠的出现和消失。
我们可以使用VB中的随机数生成器来随机选择一个地鼠出现的位置，并通过更改Image控件的Visible属性来显示或隐藏地鼠图片。
在地鼠图片上添加一个鼠标点击事件处理程序，当玩家点击地鼠时可以得到分数。
在事件处理程序中，我们可以增加分数并通过更新标签控件的文本来显示最新的分数。
游戏还需要一个计时器来限制游戏的时间。
我们可以使用Timer控件的间隔属性来设置更新时间，并在事件处理程序中递减剩余时间。
当时间到达零时，我们可以显示一个消息框来告诉玩家游戏结束，并提供重新开始游戏的选项。
为了增加游戏的挑战性，我们可以添加一些额外的功能。
例如，我们可以在游戏开始后逐渐增加地鼠出现的速度，或者在游戏中增加一些特殊道具，如增加时间或减少地鼠数量。
最后，我们可以在项目中添加一些额外的功能和设计来增强游戏的体验。
例如，我们可以为游戏添加背景音乐、声效和动画效果；或者为玩家添加一个最高分榜来竞争。
通过设计打地鼠游戏的教学项目，学生可以学习和应用一些重要的编程概念和技术。
例如，他们可以学习如何使用VB控件和事件处理程序来实现用户交互；如何使用VB的图形绘制功能来显示游戏元素；以及如何设计和管理游戏的逻辑和状态。
vb程序设计课程设计打地鼠
vb程序设计课程设计打地鼠一、课程目标知识目标：1. 学生能理解VB编程语言的基本语法和结构，掌握程序设计的基本方法。
2. 学生能运用VB编写简单的打地鼠游戏，理解游戏逻辑和程序流程控制。
3. 学生了解计算机编程解决问题的基本过程，掌握程序调试和错误处理方法。
技能目标：1. 学生能运用VB编程语言设计并实现游戏界面，培养界面设计能力。
2. 学生能运用条件语句和循环语句实现游戏逻辑，提高逻辑思维能力。
3. 学生能通过编写代码解决实际问题，培养解决问题的能力和创新意识。
情感态度价值观目标：1. 学生对计算机编程产生兴趣，树立学习自信心，形成积极的学习态度。
2. 学生在合作学习中培养团队协作精神，学会倾听、沟通和表达。
3. 学生通过编程实践，认识到计算机编程在现实生活中的应用价值，增强社会责任感。
课程性质：本课程为选修课，适用于对计算机编程感兴趣的学生。
学生特点：学生具备一定的计算机操作能力，对编程有一定了解，但VB编程经验不足。
教学要求：注重理论与实践相结合，强调动手实践，培养学生的编程兴趣和实际操作能力。
教学过程中，关注学生个体差异，鼓励学生积极参与，提高课堂互动效果。
通过本课程的学习，使学生能够掌握VB编程基础，培养编程思维和解决问题的能力。
二、教学内容本课程教学内容围绕VB程序设计基础和打地鼠游戏设计展开，包括以下几部分：1. VB编程基础：- 数据类型、变量和常量- 运算符和表达式- 程序控制结构（顺序、选择、循环）- 数组的使用- 过程和函数2. 界面设计：- 窗体和控件的属性、事件和方法- 图形和图像处理- 用户交互设计（键盘和鼠标事件）3. 打地鼠游戏设计：- 游戏逻辑分析- 地鼠随机出现和消失- 计时器和得分系统- 游戏难度递增设计4. 程序调试与优化：- 错误处理和调试技巧- 代码优化和性能提升教学内容按照以下进度安排：1. VB编程基础（2课时）2. 界面设计（2课时）3. 打地鼠游戏设计（3课时）4. 程序调试与优化（1课时）教材章节关联：1. VB编程基础：参考教材第3、4章2. 界面设计：参考教材第5章3. 打地鼠游戏设计：结合教材第6章实例进行拓展4. 程序调试与优化：参考教材第7章三、教学方法本课程采用以下多样化的教学方法，以激发学生的学习兴趣和主动性，提高教学效果：1. 讲授法：教师通过生动的语言和实例，为学生讲解VB编程基础知识和界面设计原理。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
武汉工业学院VB程序设计课程设计报告打地鼠—VB课程设计学号姓名：学院：专业班级：指导教师：日期：目录第一章课程设计概述 (3)第一节课程设计名称 (3)第二节任务要求 (3)第三节开发环境 (3)第二章总体设计 ................. 错误！未定义书签。
第一节系统功能需求分析 (4)第二节系统总体设计框架....... 错误！未定义书签。
第三章界面设计 . (5)第四章源程序代码及解释 (6)第五章程序运行效果及出错处理 (13)第六章课程设计体会 (17)参考文献 (18)第1章课程设计概述第一节课程设计名称课程设计目的：本课程的课程设计实际是学生学习完《可视化编程技术》课程后，进行的一次全面的综合训练，其目的在于加深对可视化编程技术基本知识的理解，掌握运用VB开发应用程序的基本方法及基本技巧。
程序名称：打地鼠游戏游戏简介：打地鼠是一种非常有趣的益智游戏，老少皆宜。
游戏进行时，地鼠不断从洞中探出头再缩回去，当地鼠头在洞外时，可以通过按键的方式打击地鼠，时间到时游戏结束，打中地鼠次数越多得分越高，击错、逃跑数越多得分越低。
人们在游戏的同时还能锻炼自己的反映能力，不同的难度选项适用于不同的打地鼠选手。
在英雄榜中保留前五名最高得分信息。
第二节任务要求1.课程设计的预备知识：熟悉Visual Basic 6.0程序设计的基本语法知识及常用技巧。
2.按照课程设计指导书提供的课题，每人设计一个完整的应用程序，要求根据根据规定设计程序的具体要求，按照应用程序的设计步骤，和VB的基本能知识完成应用程序的分析和实现。
第三节开发环境硬件要求能运行Windows 9.X操作系统的微机系统。
软件：Microsoft Visual Basic 6.0VB是由美国微软公司于1991年开发出来的一种可视化的，面向不同对象和驱动环境的各类应用程序。
它简单易学，效率高，功能大。
在VB环境下，利用事件驱动的编程程序机制，可视化设计工具，使用Windows内部的广泛应用程序接口（API）函数，动态链接库（DLL），对象的链接与嵌入（OLE），开发式数据连接（ODBC）等技术，可以高效，快速的开发Windows 环境下功能强大的，图形界面丰富的应用软件。
第二章总体设计第一节系统功能需求分析一．主要知识点：图像控件（Image）Select Case语句RanDoomize语句随机函数Rnd()Move 方法For 的循环语句二．任务分析1.在窗体上显示地鼠可以用图像框或图片框，在这里我们选用图像框（Image）控件。
2.地鼠显示位置是随机的，也就是承载地鼠图像框的Left和Top是随机的。
这就需要利用VB提供的随机函数来实现。
而控制地鼠出现的时间，显然可以用计时器来控制。
3.RndDoomize语句的作用是初始化Rnd()中随机数生成，打乱原来的生成序列，使Rnd()函数产生的数更接近真正的随机数。
4.Move 方法对象：Move x(y(,Width(,Height)))功能：移动对象，使其Left为x,Top值为y,并改变对象的宽度值为Width,高度值为Height。
省略的参数，就以上次的数值为默认值。
第二节系统总体设计框架第三章界面设计一.单击菜单栏中的【文件】/【新建工程】命令，这时会弹出【新建工程】对话框，选择“标准EXE”项，然后单击“确定”按钮，这样就新建一个工程。
二．选择窗体，设置窗体的几个属性如下：“Name”为”Form1”,“Caption”为“地鼠娱乐部”。
三．添加一个Label控件，“Caption”为“得分”四．添加一个时间控件“Timer”，其属性设置为：“Enabled”设置为“Fslse”,“Interval”设置为“700”。
五．添加五个Image控件，分别为Image1,Image2,Image3,Image4 Image5,在五个Image 控件中分别添加。
第四章源程序代码及解释Dim 鼠X As SingleDim 鼠Y As SingleDim 地鼠 As ByteDim 对数 As IntegerDim 总数 As IntegerSub 判断(X, Y)Select Case 地鼠Case 0, 1, 2 ‘表示测试的值为0,1,2,X = 地鼠Y = 0Case 3, 4, 5 ‘表示测试的值为3,4,5X = 地鼠 - 3Y = 1Case 6, 7, 8 ‘表示测试的值为6，7,8X = 地鼠 - 6Y = 2End SelectEnd SubPrivate Sub Form_Load() ‘窗体加载Randomize ‘随机函数初始化ShowPrintFor 地鼠 = 0 To 8 ‘遍历鼠洞判断 X, YForm1.PaintPicture Image5.Picture, 1000 + 1050 * X, 1000 + 1050 * Y Next总数 = 1End SubPrivate Sub Form_ Load ()RandomizeShowPrintFor 地鼠 = 0 To 8判断 X, YForm1.PaintPicture Image5.Picture, 1000 + 1050 * X, 1000 + 1050 * Y Next总数 = 1End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Image1.Move X - Image1.Width / 2, Y - Image1.Height / 2鼠X = Image1.Left鼠Y = Image1.TopTimer1.Enabled = TrueLabel2.Caption = "运行中..."End SubPrivate Sub Image1_MouseDown (Button As Integer, Shift as Integer, X As Single, Y as Single)Image1.Picture = Image3.Picturexy = 99If 鼠X > 800 And 鼠X < 1850 ThenIf 鼠Y + 1500 > 1600 And 鼠Y + 1500 < 2350 Then xy = 0If 鼠Y + 1500 > 2650 And 鼠Y + 1500 < 3400 Then xy = 3If 鼠Y + 1500 > 3700 And 鼠Y + 1500 < 4450 Then xy = 6End IfIf 鼠X > 1850 And 鼠X < 2900 ThenIf 鼠Y + 1500 > 1600 And 鼠Y + 1500 < 2350 Then x y = 1If 鼠Y + 1500 > 2650 And 鼠Y + 1500 < 3400 Then x y = 4If 鼠Y + 1500 > 3700 And 鼠Y + 1500 < 4450 Then x y = 7End IfIf 鼠X > 2900 And 鼠X < 3950 ThenIf 鼠Y + 1500 > 1600 And 鼠Y + 1500 < 2350 Then xy = 2If 鼠Y + 1500 > 2650 And 鼠Y + 1500 < 3400 Then xy = 5If 鼠Y + 1500 > 3700 And 鼠Y + 1500 < 4450 Then xy = 8End IfIf 地鼠 = xy Then对数 = 对数 + 1Label1.Caption = "打中次数 :" & 对数判断 X, YForm1.PaintPicture Image6.Picture, 1000 + 1050 * X, 1000 + 1050 * Y End IfEnd SubPrivate Sub Image1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)Image1.Move 鼠X - (Image1.Width / 2 - X), 鼠Y - (Image1.Height / 2 - Y)鼠X = Image1.Left鼠Y = Image1.TopEnd SubPrivate Sub Image1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)Image1.Picture = Image2.PictureEnd SubPrivate Sub Timer1_Timer ()总数 = 总数 + 1判断 X, YForm1.PaintPicture Image5.Picture, 1000 + 1050 * X, 1000 + 1050 * Y 地鼠 = Int(Rnd * 9)判断 X, YForm1.PaintPicture Image4.Picture, 1000 + 1050 * X, 1000 + 1050 * Y If 总数 > 100 ThenTimer1.Enabled = False判断 X, YForm1.PaintPicture Image5.Picture, 1000 + 1050 * X, 1000 + 1050 * YIf 对数 > 100 Thenmsg = MsgBox("恭喜" + Chr(13) + "你以经爆机了，还要继续吗？", vbYesNo, "地鼠娱乐部")Elsemsg = MsgBox("你以经过关了，您打中了" & 对数 & "次。
还要继续吗?", vbYesNo, "地鼠娱乐部")End IfIf msg = vbYes Then总数 = 1对数 = 0Timer1.Enabled = TrueElseUnload MeEnd IfEnd IfEnd SubPrivate Sub 犯得上_Click(Index As Integer)EndEnd SubPrivate Sub 关于_Click()MsgBox " 地鼠娱乐部" + Chr(13) + Chr(13) + "这是一个基于Windows98以上操作系统下" + Chr(13) + _"用VB编写的程序", , "地鼠娱乐部"End SubPrivate Sub 使用_Click()MsgBox "欢迎来到地鼠娱乐部" + Chr(13) + "使用说明:" + Chr(13) + "鼠标左右键都可打击" _+ "想要能更快的打到地鼠连续打击左右键，" + Chr(13) + "那能加快打地鼠的次数", , "地鼠娱乐部"End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Image1.Move X - Image1.Width / 2, Y - Image1.Height / 2鼠X = Image1.Left鼠Y = Image1.TopTimer1.Enabled = TrueLabel2.Caption = "运行中..."End SubPrivate Sub Image1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)Image1.Picture = Image3.Picturexy = 99If 鼠X > 800 And 鼠X < 1850 ThenIf 鼠Y + 1500 > 1600 And 鼠Y + 1500 < 2350 Then xy = 0If 鼠Y + 1500 > 2650 And 鼠Y + 1500 < 3400 Then xy = 3If 鼠Y + 1500 > 3700 And 鼠Y + 1500 < 4450 Then xy = 6End IfIf 鼠X > 1850 And 鼠X < 2900 ThenIf 鼠Y + 1500 > 1600 And 鼠Y + 1500 < 2350 Then xy = 1If 鼠Y + 1500 > 2650 And 鼠Y + 1500 < 3400 Then xy = 4If 鼠Y + 1500 > 3700 And 鼠Y + 1500 < 4450 Then xy = 7End IfIf 鼠X > 2900 And 鼠X < 3950 ThenIf 鼠Y + 1500 > 1600 And 鼠Y + 1500 < 2350 Then xy = 2If 鼠Y + 1500 > 2650 And 鼠Y + 1500 < 3400 Then xy = 5If 鼠Y + 1500 > 3700 And 鼠Y + 1500 < 4450 Then xy = 8End IfIf 地鼠 = xy Then对数 = 对数 + 1Label1.Caption = "打中次数 :" & 对数判断 X, YForm1.PaintPicture Image6.Picture, 1000 + 1050 * X, 1000 + 1050 * Y End IfEnd SubPrivate Sub Image1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)Image1.Move 鼠X - (Image1.Width / 2 - X), 鼠Y - (Image1.Height / 2 - Y)鼠X = Image1.Left鼠Y = Image1.TopEnd SubPrivate Sub Image1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)Image1.Picture = Image2.PictureEnd SubPrivate Sub Timer1_Timer ()总数 = 总数 + 1判断 X, YForm1.PaintPicture Image5.Picture, 1000 + 1050 * X, 1000 + 1050 * Y 地鼠 = Int(Rnd * 9)判断 X, YForm1.PaintPicture Image4.Picture, 1000 + 1050 * X, 1000 + 1050 * Y If 总数 > 100 ThenTimer1.Enabled = False判断 X, YForm1.PaintPicture Image5.Picture, 1000 + 1050 * X, 1000 + 1050 * YIf 对数 > 100 Thenmsg = MsgBox("恭喜" + Chr(13) + "你以经爆机了，还要继续吗？", vbYesNo, "地鼠娱乐部")Elsemsg = MsgBox("你以经过关了，您打中了" & 对数 & "次。