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

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

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

Rnd*3Rnd*3+1Rnd*10+10314111123取整函數(shù)Int格式Int(number)功能得到一個不大于number的最大整數(shù)。序號取整函數(shù)運行結(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,顯示中獎人的姓名Textbox控件數(shù)組，輸入?yún)⑴c抽獎人的姓名按鈕控件，啟動抽獎按鈕Label，提示要做的操作界面設(shè)計e7d195523061f1c08d347f6bf0421bdacd46f3c1815d51b81E1CE79090F8942429A56C6AE2B3163BABA1A3FCE285BEC4FF43A5085572A94AD2C0A17AE448F24FA68DD62479D8C0666FEB6710638384D2ED817A4F5797E34890956C5B1D69F5CD3D398C3A28C31ECA1D0050C0B33167563663DFCDA8B3865BA526090167762FE425F54A04D127EB0EF1191779C8ACA4BB屬性設(shè)置控件類型屬性屬性值說明CommandButton名稱CmdStart啟動抽獎Caption抽獎TextBox名稱TextBingo顯示中獎人的姓名Text空Label名稱Label1提示輸入第一個員工的姓名Caption請在此填寫第一個員工的姓名TextBox控件數(shù)組名稱TextName輸入?yún)⑴c抽獎人的姓名（要有3個控件）Text空初始化隨機函數(shù)隨機選擇控件數(shù)組元素的文本內(nèi)容中獎的文本輸出Textbox控件數(shù)組名稱程序編寫隨堂練習1、下列選項中，能清除文本框Text1內(nèi)容的語句是（

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

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

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

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