教科版（云南）信息技术八年级下册 第十三课《控件数组与 liner控件“开心水果机”》.pptx

第13课

控件数组与Timer控件

“开心水果机”

教科版(云南)信息技术八年级下册

新课导入

问题与任务：

小明在网上玩过一个“开水果机”的游戏，于是，他

想用VB编一个类似的程序。

游戏规则：点击“开始”,从指定的水果图片中随机

抽取3张水果图片(可重复)并放入3个图片框中，直至按下

“停止”按钮，如果3张图片都相同则表示中奖。运行效

果如“图13-1‘开心水果机效果图”所示。

工屋Z

貌营中大驾!

开心水期机

确定

开始止

航配永奶2

奖

新课讲解

“开心水果机”原理分析

通过观察“开心水果机”程序界面(图13-2)并结合游

戏规则，小明发现水果机的秘密：每次点击开始”按钮后，

水果机会自动从指定的水果图片中任意抽取3张可重复的

水果图片，并放入3个图片框中，直至按下“停止”按钮

为止。中奖的判断依据是3个图片框中的图片是同一图片。

并心求机

开始

随机抽取3张图片

开始郁止

是图片相同?否

奖中奖继续努力

结束

小明从该程序的流程图(图13-3)发现，要编写

本程序，除了前面所学到的VB知识外，还必须要知

道怎样多次、随机抽取图片。

二、Rnd和Fix函数

要实现随机抽取图片，就必须要生成随机数。

那么,如何生成一个随机数呢?

试一试

(1)新建工程。请依照图13-4(a)新建一个工程，添

加Text控件和两个Command控件，依照图13-4(b)所

示输入代码，并注意更改控件的name等属性。

潮的用

mdCondLilClick

PrivateSubComandLi1_Click()

TextXianshi.Text=Rnd

EndSub

帥蘑机产生钟：机产生PrivateSubCommandLi2_Click()

的:0-10-

10

数TextXianshi.Text=10*Rnd

EndSub

(a)随机函数界面设计图(b)随机函数代码窗口

(2)运行程序。单击“例1”按钮6次，将控件Text

的数按要求填写在表13-1的第二列中。关闭后重新

运行程序，再次单击“例1”按钮6次，将产生数按

要求填写在表13-1的第三列中，观察两列数的变化

规律。

表13-1随机函数

记录次数第一次产生数据第二次产生数据第三次产生数据

(关闭后重新运行(加入Randomize

后)

1

2

3

4

5

6

(3)添加代码。按图13-5所示在程序中添加代码，

将程序执行后的结果记录在第四列中，并观察数的

变化规律。

PrivateSubFormLoad()

Randomize

EndSub

图13-5加载Randomize函数通过观察我们发现，

随机函数Rnd的作用是返回一个大于或等于0,但小于

1的随机小数。其语法格式为

Rnd