快速配对游戏_课程设计报告
配对游戏教案：给幼儿打造开发双手协调能力的良机!
配对游戏教案：给幼儿打造开发双手协调能力的良机！！在孩子们的成长过程中，锻炼双手协调能力显得尤为重要。
双手协调能力是人类最基本的动作能力之一，能够促进大脑的发育，提高身体的灵活性和协调性。
而如何培养幼儿的双手协调能力呢？我们可以通过配对游戏这一教育工具来帮助幼儿开发双手协调能力。
一、配对游戏的介绍配对游戏是一种互动性强的游戏，适合于幼儿园和小学低年级的孩子们玩耍。
孩子们可以通过这种游戏锻炼记忆力、观察力、集中力、手眼协调能力和动手能力，同时也可以促进孩子们的交流和沟通。
二、配对游戏的规则1、游戏中使用的配对卡片应该是成对的，每一对卡片上的图案应该相同或相似。
2、游戏开始前，应该把所有卡片混合好并平在桌面上或者地面上。
3、游戏的玩家们轮流翻开两张卡片。
如果两张卡片是相同或相似的，玩家就可以获得这一对卡片，并且重新轮到下一个玩家。
4、如果两张卡片不是相同或相似的，那么玩家必须将这两张卡片翻回去，并且等到轮到下一个玩家的时候才能重新尝试。
5、当全部的卡片都被配对完毕后，获得的卡片最多的玩家即为胜者。
三、配对游戏的实际应用1、增强幼儿的记忆力配对游戏可以帮助幼儿锻炼自己的记忆力，通过记住每一对卡片的位置来尽可能地获得更多的卡片。
在游戏中，孩子们会逐渐掌握记忆技巧，提高自己的记忆能力。
这种技巧不仅适用于配对游戏，还可以在孩子们的生活中应用。
2、提高幼儿的观察力配对游戏需要孩子们做到细心观察，寻找相同或相似的卡片。
随着游戏的进行，孩子们的观察力会逐渐得到提高，不仅能在游戏中得到应用，还能在孩子们的学习和生活中展现出来。
3、发展幼儿的手眼协调能力和动手能力配对游戏需要孩子们使用双手，通过翻开卡片来进行游戏。
这种动作需要手部和眼部的配合，促进了孩子们的手眼协调能力。
在配对游戏中，孩子们还需要更加灵活地运用自己的双手，这提高了孩子们的动手能力。
4、促进幼儿的交流和沟通在配对游戏中，孩子们可以相互交流和合作来完成游戏。
小班数学《配对游戏》优秀教案与反思
小班数学《配对游戏》优秀教案与反思一、教学内容本节课选自小班数学教材第四章《比较与分类》，详细内容为第二节“配对游戏”。
通过本节课的学习，学生能够理解配对的概念，掌握基本的配对方法，并能在实际操作中灵活运用。
二、教学目标1. 让学生理解配对的概念，知道什么是配对。
2. 使学生掌握基本的配对方法，并能运用到实际操作中。
3. 培养学生的观察能力、动手能力和逻辑思维能力。
三、教学难点与重点教学难点：理解配对的概念，运用配对方法。
教学重点：掌握基本的配对方法，培养观察能力和逻辑思维能力。
四、教具与学具准备1. 教具：图片卡片、磁性黑板、配对卡片。
2. 学具：学生用图片卡片、彩笔、剪刀。
五、教学过程1. 实践情景引入（5分钟）利用磁性黑板展示一组图片，让学生观察并找出相同的图片进行配对。
2. 例题讲解（15分钟）（1）展示教材中的例题，引导学生观察图片特点。
（2）讲解配对的概念，引导学生用彩笔和剪刀进行实际操作。
3. 随堂练习（15分钟）（1）发放学生用图片卡片，让学生独立完成配对任务。
（2）邀请学生上台展示，分享配对过程和心得。
（3）针对学生的表现，给予评价和指导。
4. 小组讨论（10分钟）（1）将学生分成小组，讨论如何快速找到配对的图片。
（2）布置课后作业，鼓励学生运用所学知识进行拓展延伸。
六、板书设计1. 配对的概念2. 配对方法（1）观察法（2）排除法（3）试错法3. 配对技巧七、作业设计（1）找出相同的动物图片。
（2）找出相同的交通工具图片。
（3）找出相同的水果图片。
2. 答案：（1）猫和猫、狗和狗、兔子 and 兔子（2）汽车 and 汽车、飞机 and 飞机、火车 and 火车（3）苹果 and 苹果、香蕉 and 香蕉、橙子 and 橙子八、课后反思及拓展延伸1. 学生在课堂上的表现：（1）学生对配对概念的理解基本到位，能运用所学方法完成配对任务。
（2）部分学生在配对过程中观察能力和逻辑思维能力较强，能快速找到配对图片。
2024年小班数学《配对游戏》优秀精彩教案与反思
2024年小班数学《配对游戏》优秀精彩教案与反思一、教学内容本节课选自《小班数学活动手册》第三章“比较与分类”，详细内容为“配对游戏”。
通过教材的学习，让学生掌握相同与不同的概念，培养其观察能力、思维能力和动手操作能力。
二、教学目标1. 知识与技能：让学生能够识别并找出相同和不同的物品，学会用语言描述事物的特征。
2. 过程与方法：通过观察、思考和动手操作，培养学生比较和分类的能力，提高解决问题的策略。
3. 情感态度价值观：激发学生对数学活动的兴趣，培养合作意识，增强自信心。
三、教学难点与重点教学难点：找出物体的相同与不同之处，用语言进行描述。
教学重点：培养学生观察、思考和动手操作的能力。
四、教具与学具准备教具：PPT课件、积木、水果模型、动物模型等。
学具：每人一套积木、水果模型、动物模型。
五、教学过程1. 实践情景引入（5分钟）利用PPT展示一幅图片，图片中有各种水果、动物和形状。
让学生观察图片，引导他们找出图片中的相同与不同之处。
2. 例题讲解（10分钟）出示例题，引导学生观察积木的形状、颜色和大小。
让学生两人一组，互相讨论如何找出积木的相同与不同之处。
3. 随堂练习（10分钟）让学生动手操作，找出水果模型、动物模型的相同与不同之处。
学生互相交流，分享自己的发现。
提问学生如何将配对游戏应用到生活中，拓展学生思维。
六、板书设计1. 配对游戏相同：形状、颜色、大小不同：形状、颜色、大小七、作业设计1. 作业题目：找出家里的物品，进行配对游戏，记录下相同与不同之处。
尝试用自己的话描述配对的过程。
2. 答案：学生需将找到的物品进行拍照或画图，标注相同与不同之处。
描述配对过程，要求语言通顺、逻辑清晰。
八、课后反思及拓展延伸1. 课后反思：思考如何更好地激发学生的学习兴趣，提高课堂参与度。
2. 拓展延伸：开展家庭作业分享活动，让学生互相学习，提高表达能力。
鼓励学生探索生活中的配对现象，将数学知识应用到实际生活中。
配对游戏教案：让孩子轻松学习匹配技巧!
配对游戏教案：让孩子轻松学习匹配技巧！！随着教育理念的不断更新与变化，许多老师开始尝试新的教学方式和方法。
对于小学阶段的教育，很多老师都在积极尝试在教学中加入一些游戏元素以提高学生的学习兴趣和学习效果。
其中比较受欢迎的一个教学游戏就是配对游戏。
配对游戏在小学教育的教学中表现出了很好的效果，不仅能够提高孩子的注意力、记忆力、集中力和联想能力，也是一种收获快乐的学习方式。
下面我们就来看看如何通过配对游戏轻松学习匹配技巧。
一、什么是配对游戏配对游戏是一种非常受欢迎的游戏类型，它通常是一种记忆类小游戏，玩家需要记住相同的图像或者文本内容并将其两两匹配。
玩家通过不断练习可以提高自己的记忆力和反应能力。
在教育方面，配对游戏也被引入到教学中，用作小学生的学习工具，帮助他们更好地学习与掌握知识。
配对游戏不仅能够提高孩子的集中力、联想能力和注意力，还能够帮助他们轻松地学习匹配技巧。
二、为什么适合小学生的学习1、引导学生积极参与小学生正在经历着一段比较关键的成长期，在这个期间，他们的注意力比较难以集中在课程学习上，容易产生一些不良的行为。
因此，在教学中，老师需要引导学生参与到学习中来，让他们在轻松的氛围中感受到学习的魅力。
2、帮助学生增强记忆力小学生的记忆力还比较脆弱，他们需要更多的时间来记忆并掌握知识。
配对游戏是一种比较好的记忆类游戏，能够帮助学生提高记忆力，同时学生们也能够在游戏中感受到学习的快乐。
3、促进学生联想思维能力在玩配对游戏的过程中，孩子们还能够训练自己的联想思维，通过一些图像或者文本，让孩子们对事物建立起联系。
这样的练习不仅能够提高学生的联想能力，还能够帮助他们更好地理解知识。
三、如何使用配对游戏教学1、确定游戏主题在使用配对游戏进行教学时，我们需要根据所教授的知识，来选择相应的游戏主题。
例如，在教学数字时，我们可以将数字图像打印出来并分成两部分，要求学生根据图像找出相应的数字并将其捆在一起，这样才能完成配对游戏。
配对游戏教案
配对游戏教案教案标题：配对游戏教案教案目标：1. 学生能够通过配对游戏提高记忆力和注意力。
2. 学生能够通过配对游戏巩固并应用所学的知识。
3. 学生能够通过配对游戏培养合作意识和团队精神。
教学目标：1. 知识目标：学生能够理解和运用所学的词汇、概念或主题。
2. 技能目标：学生能够通过配对游戏提高记忆力、注意力和反应能力。
3. 情感目标：学生能够通过配对游戏培养合作意识、团队精神和积极参与的态度。
教学重点：1. 学生能够理解和运用所学的知识。
2. 学生能够通过配对游戏提高记忆力和注意力。
教学准备：1. 配对游戏卡片或材料。
2. 计时器。
3. 学生分组表。
教学过程：引入：1. 引导学生回顾已学的知识，并提出与之相关的问题或主题。
2. 引入配对游戏的概念，解释游戏的目的和规则。
主体：1. 分组：将学生分成小组，确保每个小组有相等的人数和能力水平。
2. 游戏规则说明：解释配对游戏的规则，例如，学生需要翻开两张卡片，如果两张卡片相匹配，则保留这对卡片，否则将卡片翻回原位。
3. 游戏实施：让学生在小组内进行配对游戏，设定一定的时间限制，例如，每轮游戏持续2分钟。
4. 记分规则：根据每个小组成功配对的卡片数量给予相应的奖励或积分，鼓励学生竞争和合作。
5. 游戏结束：结束游戏后，统计每个小组的得分，并宣布获胜小组。
巩固：1. 讨论：与学生一起讨论他们在游戏中遇到的挑战和策略。
2. 总结：总结配对游戏对于记忆力和注意力的重要性，并与学生分享一些记忆和注意力训练的方法。
拓展：1. 扩展活动：鼓励学生在课余时间继续玩配对游戏，以巩固所学的知识。
2. 创新应用：学生可以设计自己的配对游戏，并与其他小组分享。
评估：1. 观察学生在游戏中的表现，包括记忆力、注意力和合作精神。
2. 通过小组得分和讨论的参与程度评估学生的学习成果。
教学延伸：1. 针对不同教育阶段的学生，可以调整游戏的难度和题材。
2. 结合课程要求，设计与课程内容相关的配对游戏，以加深学生对知识的理解和应用能力。
2024年小班数学《配对游戏》优秀教案与反思
2024年小班数学《配对游戏》优秀教案与反思一、教学内容本节课选自2024年小班数学教材第四章《比较与分类》第三节《配对游戏》。
教学内容主要包括：理解配对的概念，掌握基本的配对方法，运用配对知识解决实际问题。
二、教学目标1. 知识目标：学生能够理解配对的概念，掌握基本的配对方法。
2. 技能目标：学生能够运用配对知识解决生活中的实际问题。
3. 情感目标：培养学生合作交流、积极参与的学习态度。
三、教学难点与重点教学难点：理解配对的概念，运用配对知识解决实际问题。
教学重点：掌握基本的配对方法。
四、教具与学具准备教具：配对卡片、磁性教具、挂图等。
学具：学生用配对卡片、磁性学具、作业本等。
五、教学过程1. 实践情景引入（5分钟）教师组织学生进行“找朋友”游戏，引导学生体会配对的概念。
2. 例题讲解（10分钟）教师通过讲解例题，引导学生掌握基本的配对方法。
例题：将下列物品进行配对。
图一：图二：苹果桃子�鞋袜子3. 随堂练习（10分钟）学生独立完成随堂练习，巩固配对方法。
4. 小组合作（10分钟）教师组织学生进行小组合作，共同完成配对任务。
六、板书设计1. 配对概念2. 基本配对方法3. 例题及解答七、作业设计1. 作业题目：将下列物品进行配对。
图一：图二：狗猫书包笔记本2. 答案：图一：狗图二：猫图一：书包图二：笔记本八、课后反思及拓展延伸1. 课后反思：本节课通过实践情景引入、例题讲解、随堂练习等多种教学方式，使学生掌握了配对的概念和基本方法。
但在小组合作环节，部分学生参与度不高，需要进一步关注和引导。
2. 拓展延伸：教师可布置一道拓展性作业，要求学生寻找生活中的配对现象，并尝试用配对知识解决实际问题。
例如，让学生回家后与家长共同完成一项家庭物品的配对任务。
重点和难点解析1. 实践情景引入的设计与实施。
2. 例题讲解的深度和广度。
3. 小组合作的组织与管理。
4. 作业设计的针对性和拓展性。
一、实践情景引入的设计与实施1. 与学生生活紧密相关：选择学生熟悉的、感兴趣的情景，使学生在轻松愉快的氛围中进入学习状态。
幼儿园《配对游戏》教案
幼儿园《配对游戏》教案
一、教学目标
1.让幼儿了解到配对游戏的意义和目的；
2.培养幼儿的观察能力、集中注意力和记忆力；
3.提高幼儿的动手能力和团队合作精神。
二、教材准备
1.游戏卡片：分成若干组，每组有相同主题的图片对，例如水果、动物、
颜色等；
2.游戏桌：设置在教室的一侧，保持安静并悬挂相同的图片对；
3.讲解材料：包括游戏规则和所需语言。
三、教学过程
1. 游戏安排
教师首先将卡片随机分成若干组，将每组的卡片各自放置在教室的另一侧，以
便幼儿可以看到它们。
2. 游戏规则
1.每个队伍有若干名幼儿，让他们依次站在桌子旁边。
教师选择一组把
卡片放在桌子中间；
2.教师向孩子们指出其中一张卡片，然后让队伍中的一名幼儿前来选择
另一张匹配卡片；
3.如果卡片能够匹配，这名学生可以将这两张卡片放在一起并继续选择
下一组匹配卡片；
4.如果卡片不能匹配，学生必须将它们放回原处，回到队伍中，让下一
位同伴来选择一组卡片。
直到找到匹配对手，才能继续选择下一组。
3. 游戏提示
在游戏过程中，老师可以提示学生注意以下事项：
1.注意卡片上的细节，如颜色、图案、形状；
2.通过记忆找到卡片的位置；
3.与队友合作，共同寻找匹配的卡片。
四、教学反思
通过这个游戏，幼儿们可以从中学习到配对的方法。
在配对的过程中，他们能
够通过观察，记忆、协调等方法来获得成功，而这些技能也可以用在以后的学习中。
在整个教学过程中，教师可以多采用各种不同的方式来引导学生，让他们积极参与，提高自己的学习兴趣，从而更好地进行学习。
幼儿园配对游戏教案
幼儿园配对游戏教案引言教育界的专家们都一致认为，幼儿阶段是人生中最为关键的阶段，是决定一个人一生的基础。
而在幼儿阶段教育中，游戏是幼儿学习的重要途径之一。
因此，幼儿园教师应该利用游戏教学的特点，在游戏中培养幼儿的动手能力、观察能力、记忆能力等等。
本文将介绍一种幼儿园配对游戏教案，读者们可以了解这种游戏教学的内容和优点。
一、教学目标幼儿在完成配对游戏的过程中能够：1、训练幼儿的感知能力，提高幼儿的观察能力。
2、培养幼儿的记忆能力，让幼儿掌握记忆技能的同时加深对事物的认识。
3、培养幼儿的判断能力，促进幼儿的动脑思考。
二、教学内容配对游戏是一种比较常见的游戏，对于幼儿的阳性心理具有一定的积极作用。
以下是教学材料和准备需要的物品。
1、教学材料：图片。
2、准备需要的物品：图片，架子（几个）。
三、教学步骤1、开场引导第一步，让幼儿猜一下游戏的内容是什么，教师可以举一些包含两个相似的元素游戏来引导幼儿猜测游戏的内容，如找差异、认识颜色、认识数字、序列、部分-整体等。
2、游戏规则第二步，向幼儿介绍游戏规则。
在架子上张贴同种类或相同的图片，每一张都有另一张对应的图片，要求幼儿快速找出它们之间的关系，完成回顾。
游戏时间不宜过长，每一次不宜超过五分钟。
3、游戏操作第三步，幼儿在被分配的桌面工作。
教需提醒幼儿在玩配对游戏时，要注意下列几点:(1) 观察图片，发现两张相同或相似的。
(2) 在一张图片的周围找到与另一张图片相匹配的图片。
(3) 把该组匹配成功的图片放到桌子的一边。
(4) 如果幼儿出现了一定的困难，那么教师可以提供提示，并欣赏幼儿的努力和成果。
四、教学效果的评估教学效果的评估包括两个方面：1、教师的评估：教师可以从幼儿是否能完成任务、完成的时间、正确率等方面对教学效果进行评估。
教师还需要关注幼儿在游戏中的表现，如幼儿们有没有过度紧张、犯错误等。
2、学生的评估：幼儿家长可以从孩子是否在游戏中表现得自信、积极，以及孩子的表现是否得到老师的认可等方面对教学效果进行评估。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Visual Basic课程设计报告所属课程名称：Visual Basic程序设计课程设计题目：快速配对游戏课程设计难度：两星课程设计时间：2012.2.27 ~ 4.18学号：9121091601XX姓名：XXX南京理工大学机械工程学院二〇一三年X月一、程序功能（1）运行程序，显示如图1的开始界面，图片均为“背对”用户。
单击“开始”按钮，图片显示1.5秒（如图2，图片均随机安排），然后翻过去。
用户使用鼠标将图片翻起，如果连续单击的两个图片内容相同则会保持显示状态；如果两图片不同，两张图片0.5秒后自动翻过去。
用户凭记忆在尽量短的时间内将8对图片全部“翻起”，游戏完成。
图1图2（2）从用户第一次单击图片是，程序开始计时（以秒为单位），并在窗口的右上角显示已用时间。
没击中一对图片，窗口中显示一个“笑脸”图标，否则显示一个“严肃的脸”图标（见图3）。
图3（3）程序自动记录前三个最短完成时间，在游戏结束时一图4所示的消息框显示所用的时间，并请玩家输入名字。
单击“排行榜”按钮时可以弹出“排行榜”窗体，如图5所示，显示前三名所用的时间。
图4图5（4）在游戏中，窗口的“开始”和“排行榜”按钮成无效态，游戏完成后，“开始”按钮变为“重来”，单击该按钮可以从头再来一局。
二、课程设计的详细设计游戏主界面：（1）窗体的顶部要放置“开始”、“排行榜”和“退出”按钮。
在放置一个两个重合的图像控件用来显示游戏中的“笑脸”和“严肃的脸”。
再放置一个标签控件来显示用户所用的时间。
加入三个定时器控件“Timershow”、“Timercompare”和“Timercounter”分别来控制展示图片的时间、点击不同图片后图片的展示时间和记录玩家的所用时间。
（2）窗体的中部放置16个图像框控件数组“”来放置游戏中的图片。
和一个放置“背面”图片的图像框控件“Imageback”在案安排游戏使用图片时使用的是随机函数Rnd随机的将“Imagepicture（）”的Index值赋给数组，然后将这些选中的图片的“Picture”属性赋给“Imageshow（）”图像框达到随机安排图片的目的。
（3）窗体的下部放置31个图像框控件“Imagepicture（）”来放置31种不同的候选图片。
排行榜窗体：（1）加入12个标签控件用来显示“排行榜”。
“LabelWanjia（）”控件组显示玩家姓名，“LabelChengji（）”控件组显示玩家成绩。
（2）添加“返回”按钮，单击按钮时返回游戏主界面。
游戏加载时将“chengji”文件中的已存入的成绩和玩家姓名加载到“排行榜”窗体的相应位置上。
在游戏完成时用消息框提示你的成绩，如果你的成绩进入前三名则可以再“Inputbox”里面输入自己的姓名。
在游戏程序结束时将“排行榜”窗体上的内容存入成绩文件中。
全程序中使用控件数组和数组使程序的编写简单、明了。
三、程序调试过程【问题1】：在程序加载时要将31张图片中的8张随机的成对安排到游戏使用的图片中，但在加载时会出现4张相同的图片。
【解决办法】：在选出8张图片后判断是否有相同的图片，如果有则重新跳到“Rnd”函数重新选出8张不同的图片。
【问题2】：在游戏运行时会出现：如果点击一张已经翻开的图片和一张没翻开的图片时也会出现两张图片翻回显示背面的情况。
【解决办法】：在程序设计时用逻辑数组“Finishi（）”判断图片是否翻开，如果是已经翻开则不记录点击的图片数。
【问题3】：当游戏再来一次时，可以连续点击两张以上的不同图片翻开对比。
【解决办法】：在游戏重新开始时将所有的“Imageshow（）”图像框控件的“是否翻开”值“Finishi （）”全部设置为“False”。
四、更上一层楼（1）在游戏过程中使用的8对图片不是一直不变的，而是从候选的31张图片中随机选出8 张图片。
（2）在玩家进入前三名时不仅可以记录玩家的成绩，而且还可以记录玩家的名字。
五、课程设计总结体会：自己动手设计程序可以提高我们的计算机技术，当自己设计的程序可以运行时有成就感，增加对编程的兴趣。
同时在编程的过程中可以提高我们发现问题和解决问题的能力，能培养自己的创新能力。
不足：在点击“开始”按钮后到显示图片的时间间隔有点长。
六、源程序代码Option ExplicitDim a(0 To 15) As Integer, b(1 To 2) As Integer, str(1 To 3) As StringDim Finish(0 To 15) As Boolean, Order(1 To 3) As String, Q(1 To 3) As IntegerDim y As Integer, Time1 As IntegerPrivate Sub CmdExit_Click() '退出Dim i As Integer, k As IntegerOpen App.Path & "\Chengji.txt" For Output As #2For i = 1 To 3 '保存姓名和成绩k = 15 - Len(str(i))Print #2, str(i) & Space(k) & Q(i) & Space(5)NextCloseEnd SubPrivate Sub cmdPaihangbang_Click()Dim i As IntegerFormZhujiemian.HideFormPaihangbang.ShowFor i = 1 To 3belChengji(i).Caption = Q(i) '将已存的成绩和名字加载到排行榜页面belWanjia(i).Caption = str(i)NextEnd SubPrivate Sub cmdstart_Click()Dim i As Integercmdstart.Enabled = False '游戏开始后只有退出按钮可用cmdPaihangbang.Enabled = FalseTimershow.Enabled = True '计时开始For i = 0 To 15Imageshow(i).Picture = Imageback.Picture '再次开始时图片先全部显示背面Imageshow(i).Enabled = FalseFinish(i) = False '游戏在开始时图片的属性为全部没翻开NextEnd SubPrivate Sub Form_Load()Dim Index As Integer, u As IntegerFormZhujiemian.Width = 5655: FormZhujiemian.Height = 6660For u = 0 To 15Imageshow(u).Picture = Imageback.Picture '初始时全部显示背面且图片不可点击Imageshow(u).Enabled = FalseNextTimershow.Enabled = False '计时器关闭状态Timercompare.Enabled = FalseTimercounter.Enabled = FalseDim w As Integer, j As Integer, p As Integer, i As IntegerOpen App.Path & "\Chengji.txt" For Input As #1w = 1Do While Not EOF(1)Input #1, Order(w) '打开文件w = w + 1LoopFor i = 1 To 3Q(i) = Val(Trim(Mid(Order(i), 6, 18))) '取出成绩str(i) = Trim(Mid(Order(i), 1, 6)) '取出名字NextCloseDim m As Integer, c(0 To 7) As Integer, n As Integer, r As Integer, d(0 To 7) As IntegerFor i = 0 To 7c(i) = -1NextL1: RandomizeFor i = 0 To 7n = Int(Rnd * 31) '从候选图片中随机选出8张图片c(i) = nNextFor i = 0 To 7For r = i + 1 To 7If c(i) = c(r) Then GoTo L1 '如果有选出相同的图片择重新选择NextNextFor i = 0 To 15a(i) = -1NextRandomizeFor i = 0 To 7 '代表Imagepicture的Index属性For j = 0 To 1 '2张相同图片Dom = Int(Rnd * 16) '代表Imageshow的Index属性If a(m) = -1 Thena(m) = c(i) '说明还没有赋予图片,就给其安排图片Exit DoEnd IfLoopNextNextFormZhujiemian.Left = (Screen.Width - FormZhujiemian.Width) / 2 '打开窗体时窗体显示在屏幕的正中间FormZhujiemian.Top = (Screen.Height - FormZhujiemian.Height) / 2End SubPrivate Sub Imageshow_Click(Index As Integer) '图片的单击时间Dim i As IntegerImageshow(Index).Picture = Imagepicture(a(Index)).PictureIf Finish(Index) = True Then Imageshow(Index).Enabled = FalseIf Finish(Index) = False Theny = y + 1 'y=2 表示已经翻开两张图片b(y) = IndexFinish(Index) = True 'True代表图片已点击过了If y = 2 ThenFor i = 0 To 15Imageshow(i).Enabled = False '如果已经点击了两张图片择不能再点击其他图片NextTimercompare.Enabled = TrueExit SubEnd IfEnd IfEnd SubPrivate Sub Timercompare_Timer() '对比图片Static x As Integer, p As Integer: Dim i As Integer, s As StringIf Timercompare.Enabled = True Then '调用期间图片不能点击For i = 0 To 15Imageshow(i).Enabled = FalseNextEnd IfIf a(b(1)) <> a(b(2)) ThenImageshow(b(1)).Picture = Imageback.PictureImageshow(b(2)).Picture = Imageback.Picture '图片不同择翻过去显示哭脸Imagenosmile.Visible = TrueImagesmile.Visible = FalseFinish(b(1)) = False: Finish(b(2)) = Falseb(1) = -1: b(2) = -1y = 0 '两图片翻过去之后其他图片可点击Elsep = p + 1 '记录翻开的相同图片的对数y = 0Imagesmile.Visible = True '显示笑脸Imagenosmile.Visible = FalseIf p = 8 ThencmdPaihangbang.Enabled = TrueCmdExit.Enabled = Truecmdstart.Enabled = Truecmdstart.Caption = "再来"Time1 = lbtime.Captionlbtime.Caption = ""Timercounter.Enabled = FalseSelect Case Time1 '将玩家的成绩与已存入的成绩比较并存如相应的成绩和姓名Case Is > Q(3)MsgBox "抱歉，你的成绩是" & Time1 & "秒，你没有进入前三名", "64", "快速配对游戏"Case Is < Q(1)s = InputBox("恭喜你成为第一名，你的成绩是" & Time1 & "秒，请输入你的姓名：", "快速配对游戏", "玩家1")If s <> "" ThenQ(1) = Time1str(1) = sEnd IfCase Is < Q(2)s = InputBox("恭喜你成为第二名, 你的成绩是" & Time1 & "秒，请输入你的姓名：", "快速配对游戏", "玩家2")If s <> "" ThenQ(2) = Time1str(2) = sEnd IfCase Is < Q(3)s = InputBox("恭喜你成为第三名，你的成绩是" & Time1 & "秒，请输入你的姓名：", "快速配对游戏", "玩家3")If s <> "" ThenQ(3) = Time1str(3) = sEnd IfEnd SelectCall Bianhuanb(1) = -1: b(2) = -1y = 0 '其他图片可点击p = 0End IfEnd Ifx = 0For i = 0 To 15Imageshow(i).Enabled = True '全部翻开后所有图片不可点击NextTimercompare.Enabled = FalseEnd SubPrivate Sub Timercounter_Timer() '记录时间（秒）lbtime.Caption = V al(lbtime.Caption) + Timercounter.Interval / 1000End SubPrivate Sub Timershow_Timer() '展示全部图片Dim i As Integer, j As Integer, m As Integer, Index As IntegerStatic x As Integerx = x + 1If x = 2 Then '1.5秒后把图片翻过来Timershow.Enabled = FalseFor Index = 0 To 15Imageshow(Index).Picture = Imageback.PictureImageshow(Index).Enabled = TrueNextTimercounter.Enabled = Truex = 0Exit SubEnd IfFor m = 0 To 15Imageshow(m).Picture = Imagepicture(a(m)).PictureNextEnd SubPrivate Sub Bianhuan() '定义一个过程用以在每一局游戏完成后重新随机安排游戏图片Dim i As Integer, j As Integer, m As Integer, c(0 To 7) As Integer, n As Integer, r As Integer, d(0 To 7) As Integer For i = 0 To 7c(i) = -1NextL1: RandomizeFor i = 0 To 7n = Int(Rnd * 31)c(i) = nNextFor i = 0 To 7For r = i + 1 To 7If c(i) = c(r) Then GoTo L1NextNextFor i = 0 To 15a(i) = -1NextRandomizeFor i = 0 To 7For j = 0 To 1Dom = Int(Rnd * 16)If a(m) = -1 Thena(m) = c(i)Exit DoEnd IfLoopNextNextEnd Sub。