《第三節(jié) 模擬抽獎(jiǎng)箱》參考課件

第三節(jié)模擬抽獎(jiǎng)箱模擬抽獎(jiǎng)箱生活中的轉(zhuǎn)盤抽獎(jiǎng)用VB如何實(shí)現(xiàn)？01020304抽獎(jiǎng)原理分析Textbox控件、控件數(shù)組隨機(jī)函數(shù)、取整函數(shù)編程及調(diào)試目錄抽獎(jiǎng)原理分析PART01人工抽獎(jiǎng)原理分析開始將人名寫在小卡片紙上，將小卡片紙放進(jìn)箱子里將手伸入箱子里，拿出一張卡片說出這張卡片上的名字結(jié)束開始將人名通過鍵盤輸入到計(jì)算機(jī)中執(zhí)行隨機(jī)抽取處理算法計(jì)算機(jī)輸出隨機(jī)抽取到的名字結(jié)束計(jì)算機(jī)抽獎(jiǎng)輸入處理輸出原理分析模擬抽獎(jiǎng)箱本課任務(wù)：模擬從三個(gè)人中隨機(jī)抽取一人獲獎(jiǎng)Textbox控件、控件數(shù)組PART02Textbox控件1Textbox234功能提供用戶輸入文本或顯示文本。標(biāo)簽控件數(shù)組存儲(chǔ)一批同類的數(shù)據(jù)。Text屬性TextBox控件的輸入、輸出功能主要通過Text屬性來實(shí)現(xiàn)?？丶?shù)組控件數(shù)組：存儲(chǔ)一批同類的數(shù)據(jù)?？丶?shù)組由一組相同類型的控件組成，這些控件共用一個(gè)控件名。通過復(fù)制、粘貼控件的方式建立控件數(shù)組

TextName(0)TextName(1)控件數(shù)組名索引號(hào)（下標(biāo)）可以利用索引號(hào)將數(shù)字與控件關(guān)聯(lián)起來，同時(shí)關(guān)聯(lián)了它的Text屬性，間接實(shí)現(xiàn)數(shù)字與文本的關(guān)聯(lián)。TextName(0).TextTextName(1).TextTextName(2).Text張三李四王五隨機(jī)函數(shù)、取整函數(shù)PART03隨機(jī)函數(shù)Rnd格式Rnd功能隨機(jī)得到一個(gè)0~1之間的小數(shù)（0=<Rnd<1）測(cè)試：PrivateSubCommand1_Click()Text1.Text=RndEndSubPrivateSubCommand1_Click()RandomizeText1.Text=RndEndSub初始化隨機(jī)函數(shù)Randomize1、隨機(jī)得到一個(gè)0~1之間的小數(shù)（0=<Rnd<1），出現(xiàn)序列相同隨機(jī)數(shù)。2、解決隨機(jī)函數(shù)數(shù)字序列問題，需用初始化隨機(jī)函數(shù)（Randomize）隨機(jī)函數(shù)改變隨機(jī)函數(shù)的范圍隨機(jī)函數(shù)序號(hào)Rnd運(yùn)算0=<Rnd<1范圍大于等于（>=）小于（<）

Rnd*3Rnd*3+1Rnd*10+10314111123取整函數(shù)Int格式Int(number)功能得到一個(gè)不大于number的最大整數(shù)。序號(hào)取整函數(shù)運(yùn)行結(jié)果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編程及調(diào)試PART04TextBox,顯示中獎(jiǎng)人的姓名Textbox控件數(shù)組，輸入?yún)⑴c抽獎(jiǎng)人的姓名按鈕控件，啟動(dòng)抽獎(jiǎng)按鈕Label，提示要做的操作界面設(shè)計(jì)e7d195523061f1c08d347f6bf0421bdacd46f3c1815d51b81E1CE79090F8942429A56C6AE2B3163BABA1A3FCE285BEC4FF43A5085572A94AD2C0A17AE448F24FA68DD62479D8C0666FEB6710638384D2ED817A4F5797E34890956C5B1D69F5CD3D398C3A28C31ECA1D0050C0B33167563663DFCDA8B3865BA526090167762FE425F54A04D127EB0EF1191779C8ACA4BB屬性設(shè)置控件類型屬性屬性值說明CommandButton名稱CmdStart啟動(dòng)抽獎(jiǎng)Caption抽獎(jiǎng)TextBox名稱TextBingo顯示中獎(jiǎng)人的姓名Text空Label名稱Label1提示輸入第一個(gè)員工的姓名Caption請(qǐng)?jiān)诖颂顚懙谝粋€(gè)員工的姓名TextBox控件數(shù)組名稱TextName輸入?yún)⑴c抽獎(jiǎng)人的姓名（要有3個(gè)控件）Text空初始化隨機(jī)函數(shù)隨機(jī)選擇控件數(shù)組元素的文本內(nèi)容中獎(jiǎng)的文本輸出Textbox控件數(shù)組名稱程序編寫隨堂練習(xí)1、下列選項(xiàng)中，能清除文本框Text1內(nèi)容的語句是（

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

C.Text1.clearD.Text1.Cls2、下列控件屬性賦值語句錯(cuò)誤的是（

）A.label1=”歡迎”B.Text1.Text=”歡迎”C.Text1=”歡迎”D.Text=”歡迎”BD隨堂練習(xí)3、Int(?Rnd?*?100?)?表示的是（

）范圍內(nèi)的整數(shù)。?A、[0，100]????