教科版（云南）信息技术八下 第十三课 控件数组与 liner控件“开心水果机” 课件（35张ppt）+教案+视频

(课件网) 第十三课 控件数组与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的第三列中，观察两列数的变化规律。 记录次数 第一次产生数据 第二次产生数据 (关闭后重新运行) 第三次产生数据 (加入 Randomize后) 1 2 3 4 5 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的程序界面设计图，说说下列代码的作用是什么。 Private Sub Commandstrt Click( ) x= Fix(Rnd 3) If x= 0 Then Imagelst Picture =Image1 Picture If x =1 Then Imagelst Picture = Image2 Picture If x= 2 Then Imagelst Picture Image3 Picture If x= 3 Then Imagelst Picture Image4 Picture End Sub 在编写程序时，我们常常需要使用一批同一类型的控件对象，如本例中的4张图片。如果采用新建的方法一个个产生这些控件对象，就会产生如Image1、 Image2、 Image3、 Image4这样一些零散对象。对这些对象编写代码非常烦琐且不方便，无法批量使用。 1.创建控件数组 控件数组的建立可以通过复制、粘贴的方式，具体操作步骤如下(图13-6) (1)在窗体上添加一个 Image控件，并命名为“ ImageBak＂。 (2)选择该控件，通过“复制”“粘贴”创建控件数组 Imagebak。最初新建的那个控件名称为“ Image Bak(0)”，粘贴得到的控件名称为“ Image Bak(1)”。 (3)重复步骤(2)，得到下一个控件数组元素。 2.控件数组 控件数组就是一组控件对象，如 ImageBak(0)、 ImageBak(1)、 Image Bak(2)、 ImageBak(3)，其中每个对象均被称为控件数组的一个元素。控件数组有以下特点。 (1)控件数组中的元素具有相同的对象名，如上面的4个控件对象都叫 ImageBak。 (2)控件数组中的元素以索引号( Index属性)来区别，就像对同一类产品进行编号一样。 (3)控件 ... ...