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