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

第13课

控件数组与Timer控件“开心水果机”

;问题与任务：

小明在网上玩过一个“开水果机”的游戏，于是，他想用VB编一个类似的程序。

游戏规则:点击“开始”，从指定的水果图片中随机抽取3张水果图片(可重复)并放入3个图片框中，直至按下“停止”按钮，如果3张图片都相同则表示中奖。运行效果如“图13-1‘开心水果机’效果图”所示。

;一、“开心水果机”原理分析

通过观察“开心水果机”程序界面(图13-2)并结合游戏规则，小明发现水果机的秘密:每次点击开始”按钮后，水果机会自动从指定的水果图片中任意抽取3张可重复的水果图片，并放入3个图片框中，直至按下“停止”按钮为止。中奖的判断依据是3个图片框中的图片是同一图片。;小明从该程序的流程图(图13-3)发现，要编写本程序，除了前面所学到的VB知识外，还必须要知道怎样多次、随机抽取图片。;二、Rnd和Fix函数

要实现随机抽取图片，就必须要生成随机数。那么，如何生成一个随机数呢?

试一试

(1)新建工程。请依照图13-4(a)新建一个工程，添加Text控件和两个Command控件，依照图13-4(b)所示输入代码，并注意更改控件的name等属性。;(2)运行程序。单击“例1”按钮6次，将控件Text的数按要求填写在表13-1的第二列中。关闭后重新运行程序，再次单击“例1”按钮6次，将产生数按要求填写在表13-1的第三列中，观察两列数的变化规律。;;(3)添加代码。按图13-5所示在程序中添加代码，将程序执行后的结果记录在第四列中，并观察数的变化规律。;图13-5加载Randomize函数通过观察我们发现，随机函数Rnd的作用是返回一个大于或等于0，但小于1的随机小数。其语法格式为

Rnd

而Randomize函数的作用是初始化随机生成器，保证每次运行程序得到的随机数序列不同。其语法格式为

Randomize;一般情况下，对象的编号都是整数。为了将小数变为整数，我们还需要用到取整函数Fix，它的作用是返回给定数的整数部分。其语法格式为

Fix(number)

例如，Fix(3.8)和Fix(3.1)的返回值都是3

?想一想如何利用Rnd和Fix函数产生一个0～3的随机整数?;三、控件数组

试一试结合图13-2的程序界面设计图，说说??列代码的作用是什么。

;PrivateSubCommandstrtClick()

x=Fix(Rnd*3)

Ifx=0ThenImagelstPicture=Image1Picture

Ifx=1ThenImagelstPicture=Image2Picture

Ifx=2ThenImagelstPictureImage3Picture

Ifx=3ThenImagelstPictureImage4Picture

EndSub;在编写程序时，我们常常需要使用一批同一类型的控件对象，如本例中的4张图片。如果采用新建的方法一个个产生这些控件对象，就会产生如Image1、Image2、Image3、Image4这样一些零散对象。对这些对象编写代码非常烦琐且不方便，无法批量使用。;1.创建控件数组

控件数组的建立可以通过复制、粘贴的方式，具体操作步骤如下(图13-6);(1)在窗体上添加一个Image控件，并命名为“ImageBak＂。

(2)选择该控件，通过“复制”“粘贴”创建控件数组Imagebak。最初新建的那个控件名称为“ImageBak(0)”，粘贴得到的控件名称为“ImageBak(1)”。

(3)重复步骤(2)，得到下一个控件数组元素。;2.控件数组

控件数组就是一组控件对象，如ImageBak(0)、ImageBak(1)、ImageBak(2)、ImageBak(3)，其中每个对象均被称为控件数组的一个元素。控件数组有以下特点。

(1)控件数组中的元素具有相同的对象名，如上面的4个控件对象都叫ImageBak。

(2)控件数组中的元素以索引号(Index属性)来区别，就像对同一类产品进行编号一样。;(3)控件数组中的元素的索引号默认从0开始。

(4)控件数组中的元素共享事件过程，即可以在同一事件过程中方便地对控件数组中所有的元素进行统一处理。;?想一想如何通过随机数和素引号从控件数组中选择一个对应编号的图片?

讨论结合本节例子，说说在什么情况下适合使用控件数组。;四、Timer控件

Ti