粤教版B版八年级下册信息技术2.3模拟抽奖箱 课件.pptx

第三节 模拟抽奖箱,粤教版 八年级下,粤教版初中信息技术,课件,新知导入,在商场里，我们经常能看到利用转盘抽奖；想一想，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）如何随机产生02之间的整数？,（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控件。 三、控件数组。 四、随机函数。 五、取整函数。 六、模拟抽奖箱程序的编写与调试