Download presentation
Presentation is loading. Please wait.
1
信 息 的 加 工 ——程序设计初步
2
一、需求分析 （做什么） 对信息进行需求分析，确定要解决的问题， 即要计算机“做什么” 。 运用编程语言模拟制作一个“剪刀石头布”小游戏。
3
二、设计方法（怎样做） 解决问题的方法和步骤，即程序设计中的“算法”。 ”剪刀石头布“小游戏的一般算法：
通过计算机编程随机产生剪刀、石头、布这三种情况的一种， 然后和玩家出的东西作比较，判断输赢。
4
三、编写代码（具体做） 1、界面设计 2、代码编写 赋值语句： （剪刀） x = Int(3 * Rnd) 1 2 （石头） （布）
（剪刀） x = Int(3 * Rnd) 1 2 （石头） （布） 判断语句： If <条件> Then <语句体> End If 注：当条件为真时，执行语句体语句，否则不执行语句体中的语句。
5
剪刀按钮代码： “玩家出剪刀” “计算机随机产生0、1、2三个数中的某一个数。” “0代表电脑出剪刀” “1代表电脑出石头”
Private Sub 剪刀_Click() 玩家.Picture = LoadPicture(“剪刀.bmp") Randomize x = Int(3 * Rnd) If x = 0 Then 电脑.Picture = LoadPicture(“剪刀.bmp") MsgBox "对方也出剪刀！继续！" End If If x = 1 Then 电脑.Picture = LoadPicture(“石头.bmp") MsgBox “哈哈！你输了！" If x = 2 Then 电脑.Picture = LoadPicture(“布.bmp") MsgBox "哈哈！你赢了！" End Sub “玩家出剪刀” “计算机随机产生0、1、2三个数中的某一个数。” “0代表电脑出剪刀” “1代表电脑出石头” “2代表电脑出布”
6
四、调试运行 运行按钮 暂停按钮 停止按钮 在代码中，如果出现红色的代码行，则代表改代码行有问题，需要修改！
如果出现死循环按下：CTRL+BREAK
7
活动任务：同学们打开桌面\学生素材\改一改\剪刀石头布.frm， 尝试对剪刀、石头、布这三个按钮代码进行修改完善，并调试，
使其能模拟剪刀石头布小游戏。 拓展任务：在程序中添加适当的控件和语句，统计玩家赢概率。 友情提醒：1.需要定义m、n两个变量，其中m统计玩家赢的次数，n统计玩家 玩的总次数； 2.在程序的适当位置需加m=m+1,n=n+1及其他代码。
8
课堂小结： 信息编程加工一般步骤： 1、分析信息 2、设计方法 3、编写代码 4、调试运行
9
2、参考教材自带的光盘提供的源文件，尝试用编写一个简单的
课后作业 有兴趣的同学通过进一步的探究学习，然后完成如下任务： 1、尝试编一些简单的小游戏； 2、参考教材自带的光盘提供的源文件，尝试用编写一个简单的 “记事本”程序。
Similar presentations
