2.3模拟抽奖箱-粤高教版（B版）八年级信息技术下册课件(共24张PPT)

Textbox 模拟抽奖箱 控件数组 随机函数 八年级下 第二章第三节 模拟抽奖箱 生活中的转盘抽奖 用VB如何实现？ 2 01 02 03 04 抽奖原理分析 Textbox控件、控件数组 随机函数、取整函数 编程及调试 CONTENTS 目录 3 抽奖原理分析 PART 01 4 人 工 抽 奖 原理分析 开始 将人名写在小卡片纸上，将小卡片纸放进箱子里 将手伸入箱子里，拿出一张卡片 说出这张卡片上的名字 结束 5 开始 将人名通过键盘输入到计算机中 执行随机抽取处理算法 计算机输出随机抽取到的名字 结束 计 算 机 抽 奖 原理分析 输入 处理 输出 模拟抽奖箱 本课任务：模拟从三个人中随机抽取一人获奖 My First Template Textbox控件、控件数组 PART 02 8 Textbox控件 1 Textbox 2 3 4 功能 提供用户输入文本或显示文本。 标签 控件数组 存储一批同类的数据。 Text属性 TextBox 控件的输入、输出功能主要通过Text属性来实现。 9 控件数组 控件数组： 存储一批同类的数据。 控件数组由一组相同类型的控件组成，这些 控件共用一个控件名。 通过复制、粘贴控件的方式建立控件数组 10 TextName(0) TextName(1) 控件数组名 索引号（下标） 可以利用索引号将数字与控件关联起来，同时关联了它的Text属性，间接实现数字与文本的关联。 TextName(0).Text TextName(1).Text TextName(2).Text 张三 李四 王五 随机函数、取整函数 PART 03 13 随机函数Rnd 格式 Rnd 功能 随机得到一个0~1之间的小数 （0=<Rnd<1） 测试： Private Sub Command1_Click() Text1.Text = Rnd End Sub 14 Private Sub Command1_Click() Randomize Text1.Text = Rnd End Sub 初始化随机函数Randomize 1、随机得到一个0~1之间的小数 （0=<Rnd<1），出现序列相同随机数。 2、解决随机函数数字序列问题，需用初始化随机函数 （Randomize） 随机函数 15