第三節(jié) 模擬抽獎箱,粵教版 八年級下,粵教版初中信息技術(shù),課件,新知導(dǎo)入,在商場里，我們經(jīng)常能看到利用轉(zhuǎn)盤抽獎；想一想，VB進行能不能編寫一個模擬抽獎箱的小程序呢？,新知講解,一、從生活經(jīng)驗中尋找解決問題的辦法,1、分析人工抽獎的步驟,在生活中，如果利用人工方式隨機抽取一位同學的名字。如何做呢？,開 始,將人的名字寫卡片里，再把卡片放箱子里,將手伸進箱子里，拿出一張卡片,結(jié) 束,新知講解,2、模擬人工抽獎,模擬抽取3個名字； 在程序運行時讓用戶把3個名字通過鍵盤輸入到計算機中。 執(zhí)行隨機抽取處理算法。 把得到的結(jié)果隨機抽取到的名字輸出到屏幕顯示出來。,新知講解,3、輸出和輸入,輸入和輸出是計算機和用戶交換信息的兩個過程，輸入是指將計算機外的數(shù)據(jù)傳送給計算機，輸出是指讓計算機內(nèi)的數(shù)據(jù)被外界感知。,新知講解,二、TextBox控件,TextBox控件又稱文本框控件，圖標： 提供用戶輸入文本或顯示文本； TextBox控件最多輸入2048個字符； TextBox控件的輸入、輸出功能主要通過Text屬性來實現(xiàn)。 把鍵盤輸入到TextBox控件的字符全部存儲到它的Text屬性中。,新知講解,三、控件數(shù)組,若需要存儲一批同類數(shù)據(jù)時，通常會使用數(shù)組。,1、索引號,控件數(shù)組由一組相同類型的控件組成，這些控件共用一個控件名。它們有一個屬性索引屬性（index），每一個控件都會有一個唯一的索引號（又稱為下標，默認的下標是0）,新知講解,2、建立控件數(shù)組,（1） 在窗體上添加一個TextBox控件，并命名為”TextName “,將其Text的屬性清空。,新知講解,（2） 選中該控件，進行“復(fù)制”和“粘貼”操作。最初創(chuàng)立的文本控件名為TextName(0)，粘貼出來的控件名為 TextName(1)。,新知講解,對比兩個控件屬性，它們的名字都叫作TextName，但index屬性一個為0，一個為1。,新知講解,四、隨機函數(shù),實現(xiàn)隨機抽獎，需要應(yīng)用隨機函數(shù)。VB中，隨機函數(shù)為：Rnd（作用就是：隨機得到一個大于或等于0但小于1的小數(shù)）。,新知講解,1、初始化隨機函數(shù),VB提供的初始化隨機函數(shù)為：Randomize。,表示程序每次輸出的數(shù)字序列和以前的數(shù)字不一樣。,新知講解,2、改變隨機數(shù)的取值范圍,Rnd一般情況下隨機得到一個大于或等于0但小于1的小數(shù)。 為了得到一個大于或等于0但小于10隨機數(shù)，可設(shè)計下列代碼： Text1.Text = Rnd*10 為了得到一個大于或等于11但小于99隨機數(shù)，可設(shè)計下列代碼： Text1.Text = 11+Rnd*88,新知講解,五、取整函數(shù),假設(shè)給抽獎的人進行編號：1、2、3、4、5.，就需要取整。 取整函數(shù)格式為： Int（number） 作用是：得到一個不大于number的最大整數(shù)。 例：Text1.Text =Int(8.4)顯示的是8。 Text1.Text =Int(-8.4)顯示的是-9,新知講解,（1）如何隨機產(chǎn)生一個不大于10的正整數(shù)？ （2）如何隨機產(chǎn)生02之間的整數(shù)？,（1）Text1.Text =Int(Rnd*10) （2）Text1.Text =Int(Rnd*3),新知講解,六、模擬抽獎箱程序的編寫與調(diào)試,1、界面設(shè)計,新知講解,2、屬性設(shè)置,新知講解,3、代碼編寫,對啟動抽獎CmdStart進行編程，觸發(fā)事件是單擊鍵盤。代碼如下： Randomize TextBingo.Text=TextName(Int(Rnd*3).Text,新知講解,4、程序調(diào)試,調(diào)試中若出現(xiàn)：,表示程序要輸出控件數(shù)組中第4個控件的Text屬性，可數(shù)組中只有3個控件（0、1、2），找不到第4個控件，我們成為越界錯誤。,新知講解,編寫一個隨機抽取學號的程序，學號為4位數(shù)。提示：要想生存指定范圍內(nèi)的數(shù)，可以參考表達式Int(Rnd*(最大值-最小值+1)+最小值。,課后習題,1、下列選項中，能清除文本框Text1內(nèi)容的語句是（ 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）范圍內(nèi)的整數(shù)。 A、0，100 B、1，99 C、0，99 D、1，100,課堂總結(jié),1、TextBox控件最多輸入2048個字符。 2、每一個控件都會有一個唯一的索引號（又稱為下標，默認的下標是0）。 3、清除文本框Text1內(nèi)容的語句是：Text1.Text=” 4、Rnd（作用就是：隨機得到一個大于或等于0但小于1的小數(shù)） 5、取整函數(shù)格式為： Int（number） 作用是：得到一個不大于number的最大整數(shù)。,板書設(shè)計,一、從生活經(jīng)驗中尋找解決問題的辦法。 二、TextBox控件。 三、控件數(shù)組。 四、隨機函數(shù)。 五、取整函數(shù)。 六、模擬抽獎箱程序的編寫與調(diào)試