1、精選文檔實(shí)驗(yàn)一 小學(xué)生四則運(yùn)算測(cè)試器一、實(shí)驗(yàn)?zāi)康?1掌握面向?qū)ο蟪绦蛟O(shè)計(jì)語言的開發(fā)思想；2掌握結(jié)構(gòu)化程序設(shè)計(jì)方法；3掌握標(biāo)簽、文本框、按鈕的屬性、事件和方法；4掌握常用的運(yùn)算符、函數(shù)和表達(dá)式。二、實(shí)驗(yàn)環(huán)境Windows XP 操作系統(tǒng)Visual Basic 6.0 編程環(huán)境三、實(shí)驗(yàn)內(nèi)容參考如下圖所示，編制一個(gè)適合小學(xué)生練習(xí)的四則運(yùn)算測(cè)試題程序。具體要求如下：（1）窗體的標(biāo)題為“小學(xué)生四則運(yùn)算測(cè)試器”。（3）窗體的從上到下，從左到右分別為標(biāo)簽1，文本框1，按鈕1，按鈕2，標(biāo)簽2。其中標(biāo)簽1，標(biāo)簽2默認(rèn)標(biāo)題內(nèi)容為空，文本框文本內(nèi)容為空，按鈕1,按鈕2默認(rèn)標(biāo)題內(nèi)容分別為“統(tǒng)計(jì)”和“結(jié)束”。（4）標(biāo)

2、簽2設(shè)置有邊框線，背景顏色為白色。（5）程序運(yùn)行時(shí)，標(biāo)簽1自動(dòng)產(chǎn)生小學(xué)生四則運(yùn)算題目，其中操作數(shù)為19之間的隨機(jī)整數(shù)，運(yùn)算符為+、-、*、/四種符號(hào)之一。（6）文本框1接受用戶輸入答案，輸完答案后按鍵盤中的回車鍵，系統(tǒng)將題目和用戶回答答案顯示在標(biāo)簽2中，并在后面給出對(duì)或錯(cuò)的評(píng)判標(biāo)志（注意：評(píng)判標(biāo)志對(duì)齊在同一列輸出）。同時(shí)產(chǎn)生新的題目，清空文本框1，以便用戶繼續(xù)回答新題目。（7）單擊按鈕1，結(jié)束回答，標(biāo)簽1和文本框1變?yōu)榛疑豢捎脿顟B(tài)，同時(shí)標(biāo)簽2顯示“一共做了幾題，作對(duì)幾題，得分為多少”的提示；單擊按鈕2，結(jié)束程序。（8）提高與拓展：每次運(yùn)行程序，讓產(chǎn)生的題目是真正的隨機(jī)數(shù)據(jù)；為適合小學(xué)生練習(xí)，

3、避免產(chǎn)生兩數(shù)相減結(jié)果為負(fù)數(shù)的題目。（9）運(yùn)行效果如下圖所示：提示：1.產(chǎn)生題目的算法思路：Private Sub Form_Load()Randomizen1 = Int(Rnd * 10 + 1) 產(chǎn)生操作數(shù)1，為110之間的隨機(jī)整數(shù)n2 = 產(chǎn)生操作數(shù)2，為110之間的隨機(jī)整數(shù)fhn = Int(Rnd * 4 + 1) 產(chǎn)生一個(gè)14之間的隨機(jī)整數(shù)，分別表示4種運(yùn)算符號(hào) 多分支選擇結(jié)構(gòu)，根據(jù)fhn變量為14的值不同，分別表示四種運(yùn)算符Select Case fh Case "+" zq = n1 + n2 根據(jù)運(yùn)算符的不同，計(jì)算出正確答案，放在zq變量中 End Sel

4、ectü Label1.Caption = n1 & fh & n2 & "=" 產(chǎn)生題目 End sub×2.文本框輸入答案后按回車鍵 Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then 當(dāng)用戶按了回車鍵是觸發(fā)該事件 當(dāng)用戶回答正確，顯示題目和正確標(biāo)注，回答錯(cuò)誤，顯示題目和錯(cuò)誤標(biāo)注，并給正確或錯(cuò)誤個(gè)數(shù)分別加1 Form_Load 調(diào)用產(chǎn)生題目的事件代碼，產(chǎn)生新的題目 End If 四、 實(shí)驗(yàn)過程編寫程序代碼，進(jìn)行上機(jī)驗(yàn)證和調(diào)試，得出正確結(jié)果。五

5、、知識(shí)點(diǎn)梳理：1.運(yùn)算符算術(shù)運(yùn)算符：+、-、*、/字符串連接運(yùn)算符：&2.函數(shù)Int（N）:產(chǎn)生一個(gè)不大于N的最大整數(shù)Rnd:產(chǎn)生一個(gè)0,1）之間的隨機(jī)小數(shù)String(N,X):產(chǎn)生N個(gè)X串的首字母組成的新字符串Choose(N,x1,x2,x3):根據(jù)N的值，返回對(duì)應(yīng)數(shù)據(jù)給變量。3.選擇結(jié)構(gòu)語句 If 語句 a If.Then語句（單分支結(jié)構(gòu)） （1）If < 表達(dá)式> Then <語句>（2）If < 表達(dá)式> Then <語句塊> End Ifb If.Then.Else語句（雙分支結(jié)構(gòu)）(1) If <條件> The

6、n <語句1> Else <語句2> End If（2）If <表達(dá)式> Then <語句1> Else <語句2>c IfThenElseIf語句（多分支結(jié)構(gòu)） 多分支結(jié)構(gòu)可以處理兩個(gè)或兩個(gè)以上分支。其語句形式為：If <表達(dá)式1> Then <語句塊1>ElseIf <表達(dá)式2> Then <語句塊2> Else <語句塊n+1>End IfSelect Case 語句 Select Case <變量或表達(dá)式>Case 表達(dá)式列表1 <語句塊1>C

7、ase 表達(dá)式列表 <語句塊2> Case Else <語句塊n+1>End Select 執(zhí)行流程： 自上而下順序地判斷測(cè)試表達(dá)式的值與表達(dá)式列表中的哪一個(gè)匹配，如有匹配則執(zhí)行相應(yīng)語句塊，然后轉(zhuǎn)到End Select的下一語句。 若所有的值都不匹配，執(zhí)行Case Else所對(duì)應(yīng)的語句塊，如省略Case Else，則直接轉(zhuǎn)移到End Select的下一語句。 4. *文本框的屬性和事件*該內(nèi)容需同學(xué)們先行閱讀書本P111P113或查閱相關(guān)資料，并簡(jiǎn)單的歸納整理該知識(shí)點(diǎn)，寫在實(shí)驗(yàn)報(bào)告中。附錄 VB實(shí)驗(yàn)報(bào)告模板：麗水學(xué)院計(jì)算機(jī)實(shí)驗(yàn)報(bào)告一、實(shí)驗(yàn)內(nèi)容（題目及功能簡(jiǎn)述）二、實(shí)驗(yàn)過程及結(jié)果（1） 界面設(shè)計(jì) 寫出對(duì)象及相應(yīng)屬性設(shè)置：（可列表，如下）相關(guān)屬性設(shè)置：控 件 (屬性值)屬性(屬性值)Form1“小學(xué)生四則運(yùn)算測(cè)試器”最后得到界面圖如下所示：（2）過程設(shè)計(jì) 寫出各事件過程的程序代碼 （3）運(yùn)行調(diào)試三