高中信息技术学科教学实施-“石头剪子布”游戏的完成.docx

第三学时 “石头剪子布”游戏的思维解读与程序实现 运用计算机解决问题的第一步是将现实世界中的事物进行抽象和设计，“石头剪子布”游戏的完成，首先要做好游戏思维的抽象，构建游戏的属性、规则和方法一、 “石头剪子布”游戏解读1. “石头剪子布”游戏的起源“石头剪子布”游戏是一款猜拳游戏，又称为“猜丁壳”，起源于中国，最早记载于《全唐诗》中《招手令》，用比喻的手法生动的描述了类似的游戏明李日华《六研斋笔记》载云：“俗饮，以手指屈伸相搏，谓之豁拳，又名豁指头随着世界贸易的发展，这款游戏传播到世界各地，在很多比赛中，由于游戏的简单快速且不需要任何道具，选择运用“石头剪子布”游戏来决定比赛的先发战队2.“石头剪子布”游戏的规则游戏规则；石头打剪刀，布包石头，剪刀剪布根据游戏规则，会产生如下表所示结果： 布对布结果是平布对剪刀结果是输布对石头结果是赢剪刀对布结果是赢剪刀对剪刀结果是平剪刀对石头结果是输石头对布结果是输石头对剪刀结果是赢石头对石头结果是平二、计算机构建“石头剪子布”游戏的思维解读题目要求：编写一个程序，让计算机同我们一起玩“石头剪子布”游戏如果人输了，则输出“输了”；人赢了，则输出“赢了”；人与计算机平了，则输出“平局”。

困惑：1. 计算机如何能够像人类一样用手来显示“石头”、“ 剪子”、“ 布”？2. 人类用手显示“石头”、“ 剪子”、“ 布”，计算机如何能看懂？3. 如何让计算机随机选择“石头”、“ 剪子”、“ 布”，模拟人类游戏的过程？解决方法：第一个问题：计算机如何能够像人类一样用手来显示“石头剪子布”？计算机没有人类一样的手和脚，不能够像人一样用肢体直接进行游戏，因此，我们只能站在计算机的角度思考问题计算机只能处理数字化的信息，首先要考虑如何将游戏数字化，也就是将游戏的主体“石头”、“ 剪子”、“ 布”数字化，解决这个问题其实非常简单：根据人为规定的数字，并通过一系列计算能够实现就可以例如：我为游戏做了如下的规定： 用数字0代表“石头”，数字1代表“布”，数字2代表“剪刀”为什么选用这三个数字呢?1. 便于记忆三个数字简单、连续，编写程序人员可以很快的记录下来2. 形象用手实现“石头”时，同时也是数字“0”的表达手势，用手实现“剪刀”时，也是数字“2”的表达手势，根据数字的连续性，规定“1”来表达“布”3. 利于程序实现因为0，1，2三个数字简单、连续，运用一系列运算可以很容易的实现注：“石头”、“ 剪子”、“ 布”可以运用任何一个数字来代表，不是必须用0,1,2三个数字。

第二个问题：人类用手显示“石头”、“ 剪子”、“ 布”，计算机如何能看懂？计算机没有眼睛和思维，看不见人类的动作，也思考不出来代表的意义，所以，需要我们站在计算机的角度分析这个问题既然人类的表示计算机看不懂，就选择计算机和人类都能读懂的方式，运用文字、图片或者图案等创设游戏画面，运用鼠标单击等进行动作的选择，代替了人类肢体语言的表达用鼠标单击“按钮”或者“图片”，代表人的选择第三个问题：如何让计算机随机选择“石头”、“ 剪子”、“布”，模拟人类游戏的过程？在计算机语言中有一种函数是随机函数，可以将问题轻松的解决随机数：1. 真正的随机数是运用物理现象产生的：比如掷钱币、骰子、转轮、核裂变等等2. 随机产生的数据特点是后面的数据与前面产生的数据没有任何联系3. 计算机产生随机数的方法 一是产生[0 ,1]区间上均匀分布的随机数的方法 二是离散型均匀分布的随机数的方法两种方法都是运用数学的相关理论和公式进行推导，我们就不再深入的研究和探讨了本例中运用VB语言的随机数（rnd和randomize），随机产生0,1,2三个数字，模拟实现计算机进行“石头”、“布”、“剪子”的选择三、运用计算机实现“石头剪子布”游戏的思维框图单击按钮或图片等完成选择选择布选择剪子选择石头随机产生0，1，2三个随机数如果是0 （剪子对石头），结果是输；如果是1（剪子对布），结果是赢；如果是2（剪子对剪子），结果是平。

如果是0 （布对石头），结果是赢；如果是1（布对布），结果是平；如果是2（布对剪子），结果是输如果是0 （石头对石头），结果是平；如果是1（石头对布），结果是输；如果是2（石头对剪子），结果是赢三、“石头剪子布”游戏程序实现界面设计：程序实现：选择“石头”图片Private Sub Picture1_Click()Dim x As IntegerRandomize（随机产生种子数）Label4.Caption = "石头" （人显示“石头”）x = Int(Rnd * 10) Mod 3 （计算机随机产生（0，1，2）中任意一个整数，这个问题运用了数学的思想：任何一个整数除3取的余数都不会大于3，只能是0,1,2三个整数Mod为取余数符号，也叫取模符号）If x = 0 Then （机器随机产生0是“石头”） Label5.Caption = "石头"（机器显示“石头”） Label7.Caption = "平局"（结果显示） Else If x = 1 Then（机器随机产生1是“布”） Label5.Caption = "布"（机器显示“布”） Label7.Caption = "输了"（结果显示） Else （机器随机产生2是“剪子”） Label5.Caption = "剪子"（机器显示“布”） Label7.Caption = "赢了"（结果显示） End IfEnd If选择“剪子”图片Private Sub Picture2_Click()Dim x As IntegerRandomizeLabel4.Caption = "剪子"x = Int(Rnd * 10) Mod 3If x = 0 Then Label5.Caption = "石头" Label7.Caption = "输了" Else If x = 1 Then Label5.Caption = "布" Label7.Caption = "赢了" Else Label5.Caption = "剪子" Label7.Caption = "平局" End IfEnd IfEnd Sub选择“布”图片Private Sub Picture3_Click()Dim x As IntegerRandomizeLabel4.Caption = "布"x = Int(Rnd * 10) Mod 3If x = 0 Then Label5.Caption = "石头" Label7.Caption = "赢了" Else If x = 1 Then Label5.Caption = "布" Label7.Caption = "平局" Else Label5.Caption = "剪子" Label7.Caption = "输了" End IfEnd IfEnd Sub。