《第三节 模拟抽奖箱》参考课件

第三节模拟抽奖箱模拟抽奖箱生活中的转盘抽奖用VB如何实现？01020304抽奖原理分析Textbox控件、控件数组随机函数、取整函数编程及调试目录抽奖原理分析PART01人工抽奖原理分析开始将人名写在小卡片纸上，将小卡片纸放进箱子里将手伸入箱子里，拿出一张卡片说出这张卡片上的名字结束开始将人名通过键盘输入到计算机中执行随机抽取处理算法计算机输出随机抽取到的名字结束计算机抽奖输入处理输出原理分析模拟抽奖箱本课任务：模拟从三个人中随机抽取一人获奖Textbox控件、控件数组PART02Textbox控件1Textbox234功能提供用户输入文本或显示文本。标签控件数组存储一批同类的数据。Text属性TextBox控件的输入、输出功能主要通过Text属性来实现。控件数组控件数组：存储一批同类的数据。控件数组由一组相同类型的控件组成，这些控件共用一个控件名。通过复制、粘贴控件的方式建立控件数组

TextName(0)TextName(1)控件数组名索引号（下标）可以利用索引号将数字与控件关联起来，同时关联了它的Text属性，间接实现数字与文本的关联。TextName(0).TextTextName(1).TextTextName(2).Text张三李四王五随机函数、取整函数PART03随机函数Rnd格式Rnd功能随机得到一个0~1之间的小数（0=<Rnd<1）测试：PrivateSubCommand1_Click()Text1.Text=RndEndSubPrivateSubCommand1_Click()RandomizeText1.Text=RndEndSub初始化随机函数Randomize1、随机得到一个0~1之间的小数（0=<Rnd<1），出现序列相同随机数。2、解决随机函数数字序列问题，需用初始化随机函数（Randomize）随机函数改变随机函数的范围随机函数序号Rnd运算0=<Rnd<1范围大于等于（>=）小于（<）

Rnd*3Rnd*3+1Rnd*10+10314111123取整函数Int格式Int(number)功能得到一个不大于number的最大整数。序号取整函数运行结果1Int(8.4)2Int(Rnd*3)3Int(Rnd*3+1)4Int(Rnd*10+1)0,1,21,2,31,2,3,4,5,6,7,8,9,108编程及调试PART04TextBox,显示中奖人的姓名Textbox控件数组，输入参与抽奖人的姓名按钮控件，启动抽奖按钮Label，提示要做的操作界面设计e7d195523061f1c08d347f6bf0421bdacd46f3c1815d51b81E1CE79090F8942429A56C6AE2B3163BABA1A3FCE285BEC4FF43A5085572A94AD2C0A17AE448F24FA68DD62479D8C0666FEB6710638384D2ED817A4F5797E34890956C5B1D69F5CD3D398C3A28C31ECA1D0050C0B33167563663DFCDA8B3865BA526090167762FE425F54A04D127EB0EF1191779C8ACA4BB属性设置控件类型属性属性值说明CommandButton名称CmdStart启动抽奖Caption抽奖TextBox名称TextBingo显示中奖人的姓名Text空Label名称Label1提示输入第一个员工的姓名Caption请在此填写第一个员工的姓名TextBox控件数组名称TextName输入参与抽奖人的姓名（要有3个控件）Text空初始化随机函数随机选择控件数组元素的文本内容中奖的文本输出Textbox控件数组名称程序编写随堂练习1、下列选项中，能清除文本框Text1内容的语句是（

）A.Text=””B.Text1.Text=””

C.Text1.clearD.Text1.Cls2、下列控件属性赋值语句错误的是（

）A.label1=”欢迎”B.Text1.Text=”欢迎”C.Text1=”欢迎”D.Text=”欢迎”BD随堂练习3、Int( Rnd * 100 ) 表示的是（

）范围内的整数。 A、[0，100]