第三节 模拟抽奖箱课时教学设计
课题
第三节 模拟抽奖箱
单元
第一单元
学科
信息技术
年级
八年级
学习
目标
理解VB中Rnd函数的功能。
掌握利用Rnd函数产生某范围内随机整数的方法。
利用Rnd函数进行程序设计，解决实际问题。
理解取整函数Int的使用方法。
重点
理解和掌握利用Rnd函数产生某范围内随机整数的方法。
难点
控件数组的调用。
教学过程
教学环节
教师活动
学生活动
设计意图
导入新课
图片导入。
提问：VB进行能不能编写一个抽奖箱程序呢？
通过常见的商场抽奖模式，引发人工抽奖和计算机抽奖
对抽奖活动的欣赏，激起学生的创作欲望。
讲授新课
一、从生活经验中寻找解决问题的办法
1、分析人工抽奖的步骤
通过利用人工方式随机抽取一位同学的名字。
2、模拟人工抽奖
输出和输入
TextBox控件
extBox控件又称文本框控件，图标：
提供用户输入文本或显示文本；
TextBox控件最多输入2048个字符；
TextBox控件的输入、输出功能主要通过Text属性来实现。
把键盘输入到TextBox控件的字符全部存储到它的Text属性中。
三、控件数组
1、索引号
又称为下标，默认的下标是0。
2、建立控件数组
随机函数
随机函数为：Rnd（作用就是：随机得到一个大于或等于0但小于1的小数）。
1、初始化随机函数
2、改变随机数的取值范围
① 为了得到一个大于或等于0但小于10随机数，可设计下列代码：
Text1.Text = Rnd*10
②为了得到一个大于或等于11但小于99随机数，可设计下列代码：
Text1.Text = 11+Rnd*88
取整函数
取整函数格式为：
Int（number）
探究：
（1）如何随机产生一个不大于10的正整数？
（2）如何随机产生0~2之间的整数？
六、模拟抽奖箱程序的编写与调试
1、界面设计
属性设置
3、代码编写
4、程序调试
探究
编写一个随机抽取学号的程序，学号为4位数。提示：要想生存指定范围内的数，可以参考表达式Int(Rnd*(最大值-最小值+1))+最小值。
课后习题:
1、下列选项中，能清除文本框Text1内容的语句是（ B）
A. Text=”” B. Text1.Text=””
C. Text1.clear D. Text1.Cls
2、下列控件属性赋值语句错误的是（D）
A.label1=”欢迎”
B.Text1.Text=”欢迎”
C.Text1=”欢迎”
D.Text=”欢迎”
3、Int(?Rnd?*?100?)?表示的是（C）范围内的整数。?
A、[0，100]????
B、[1，99]????
C、[0，99]???????
D、[1，100]
学生听讲，老师分析，明白抽奖箱的工作原理。
理解并掌握TextBox控件。
理解Rnd随机函数
明白如何调整随机数取值范围的技巧。
掌握取整函数的用法。
通过探究完成实践。
掌握与理解
讲练结合，对比应用，营造课堂气氛，学以致用。
课堂小结
1、TextBox控件最多输入2048个字符。
2、每一个控件都会有一个唯一的索引号（又称为下标，默认的下标是0）。
3、清除文本框Text1内容的语句是：Text1.Text=””
4、Rnd（作用就是：随机得到一个大于或等于0但小于1的小数）
5、取整函数格式为：
Int（number）
作用是：得到一个不大于number的最大整数。
学生回答
利用问题形式进行总结，看看学生的掌握情况。
板书
一、从生活经验中寻找解决问题的办法。
二、TextBox控件。
三、控件数组。
四、随机函数。
五、取整函数。
六、模拟抽奖箱程序的编写与调试。
课件26张PPT。第三节 模拟抽奖箱粤教版 八年级下新知导入 在商场里，我们经常能看到利用转盘抽奖；想一想，VB进行能不能编写一个模拟抽奖箱的小程序呢？新知讲解 一、从生活经验中寻找解决问题的办法1、分析人工抽奖的步骤在生活中，如果利用人工方式随机抽取一位同学的名字。如何做呢？开 始将人的名字写卡片里，再把卡片放箱子里将手伸进箱子里，拿出一张卡片结 束新知讲解 2、模拟人工抽奖 模拟抽取3个名字；
在程序运行时让用户把3个名字通过键盘输入到计算机中。
执行随机抽取处理算法。
把得到的结果—随机抽取到的名字输出到屏幕显示出来。
新知讲解 3、输出和输入 输入和输出是计算机和用户交换信息的两个过程，输入是指将计算机外的数据传送给计算机，输出是指让计算机内的数据被外界感知。
新知讲解 二、TextBox控件 TextBox控件又称文本框控件，图标：
提供用户输入文本或显示文本；
TextBox控件最多输入2048个字符；
TextBox控件的输入、输出功能主要通过Text属性来实现。
把键盘输入到TextBox控件的字符全部存储到它的Text属性中。
新知讲解 三、控件数组 若需要存储一批同类数据时，通常会使用数组。1、索引号 控件数组由一组相同类型的控件组成，这些控件共用一个控件名。它们有一个属性—索引属性（index），每一个控件都会有一个唯一的索引号（又称为下标，默认的下标是0）新知讲解 2、建立控件数组 （1） 在窗体上添加一个TextBox控件，并命名为”TextName “,将其Text的属性清空。
新知讲解 （2） 选中该控件，进行“复制”和“粘贴”操作。最初创立的文本控件名为TextName(0)，粘贴出来的控件名为 TextName(1)。
新知讲解 对比两个控件属性，它们的名字都叫作TextName，但index属性一个为0，一个为1。
新知讲解 四、随机函数 实现随机抽奖，需要应用随机函数。VB中，随机函数为：Rnd（作用就是：随机得到一个大于或等于0但小于1的小数）。新知讲解 1、初始化随机函数VB提供的初始化随机函数为：Randomize。表示程序每次输出的数字序列和以前的数字不一样。新知讲解 2、改变随机数的取值范围 Rnd一般情况下随机得到一个大于或等于0但小于1的小数。
① 为了得到一个大于或等于0但小于10随机数，可设计下列代码：
Text1.Text = Rnd*10
②为了得到一个大于或等于11但小于99随机数，可设计下列代码：
Text1.Text = 11+Rnd*88新知讲解 五、取整函数 假设给抽奖的人进行编号：1、2、3、4、5......，就需要取整。
取整函数格式为：
Int（number）
作用是：得到一个不大于number的最大整数。
例：Text1.Text =Int(8.4)—显示的是8。
Text1.Text =Int(-8.4)—显示的是-9
新知讲解（1）如何随机产生一个不大于10的正整数？
（2）如何随机产生0~2之间的整数？（1）Text1.Text =Int(Rnd*10)
（2）Text1.Text =Int(Rnd*3)新知讲解六、模拟抽奖箱程序的编写与调试 1、界面设计新知讲解 2、属性设置新知讲解 3、代码编写对启动抽奖CmdStart进行编程，触发事件是单击键盘。代码如下：
Randomize
TextBingo.Text=TextName(Int(Rnd*3)).Text
新知讲解 4、程序调试调试中若出现：表示程序要输出控件数组中第4个控件的Text属性，可数组中只有3个控件（0、1、2），找不到第4个控件，我们成为越界错误。新知讲解编写一个随机抽取学号的程序，学号为4位数。提示：要想生存指定范围内的数，可以参考表达式Int(Rnd*(最大值-最小值+1))+最小值。课后习题1、下列选项中，能清除文本框Text1内容的语句是（ B）
A. Text=”” B. Text1.Text=””
C. Text1.clear D. Text1.Cls
2、下列控件属性赋值语句错误的是（D）
A.label1=”欢迎”
B.Text1.Text=”欢迎”
C.Text1=”欢迎”
D.Text=”欢迎”课后习题3、Int(?Rnd?*?100?)?表示的是（C）范围内的整数。?
A、[0，100]????
B、[1，99]????
C、[0，99]???????
D、[1，100]
课堂总结1、TextBox控件最多输入2048个字符。
2、每一个控件都会有一个唯一的索引号（又称为下标，默认的下标是0）。
3、清除文本框Text1内容的语句是：Text1.Text=””
4、Rnd（作用就是：随机得到一个大于或等于0但小于1的小数）
5、取整函数格式为：
Int（number）
作用是：得到一个不大于number的最大整数。板书设计一、从生活经验中寻找解决问题的办法。
二、TextBox控件。
三、控件数组。
四、随机函数。
五、取整函数。
六、模拟抽奖箱程序的编写与调试。谢谢21世纪教育网（www.21cnjy.com) 中小学教育资源网站 有大把高质量资料？一线教师？一线教研员？
欢迎加入21世纪教育网教师合作团队！！月薪过万不是梦！！
详情请看：
https://www.21cnjy.com/help/help_extract.php
