第三節 模擬抽獎箱,粵教版 八年級下,粵教版初中信息技術,課件,新知導入,在商場里，我們經常能看到利用轉盤抽獎；想一想，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控件。 三、控件數組。 四、隨機函數。 五、取整函數。 六、模擬抽獎箱程序的編寫與調試