程序設(shè)計基礎(chǔ)(VB)綜合性實驗1

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

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

3、避免產(chǎn)生兩數(shù)相減結(jié)果為負(fù)數(shù)的題目。（9）運行效果如下圖所示：提示：1.產(chǎn)生題目的算法思路：Private Sub Form_Load()Randomizen1 = Int(Rnd * 10 + 1) 產(chǎn)生操作數(shù)1，為110之間的隨機整數(shù)n2 = 產(chǎn)生操作數(shù)2，為110之間的隨機整數(shù)fhn = Int(Rnd * 4 + 1) 產(chǎn)生一個14之間的隨機整數(shù)，分別表示4種運算符號 多分支選擇結(jié)構(gòu)，根據(jù)fhn變量為14的值不同，分別表示四種運算符Select Case fh Case "+" zq = n1 + n2 根據(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)注，回答錯誤，顯示題目和錯誤標(biāo)注，并給正確或錯誤個數(shù)分別加1 Form_Load 調(diào)用產(chǎn)生題目的事件代碼，產(chǎn)生新的題目 End If 四、 實驗過程編寫程序代碼，進行上機驗證和調(diào)試，得出正確結(jié)果。五

5、、知識點梳理：1.運算符算術(shù)運算符：+、-、*、/字符串連接運算符：&2.函數(shù)Int（N）:產(chǎn)生一個不大于N的最大整數(shù)Rnd:產(chǎn)生一個0,1）之間的隨機小數(shù)String(N,X):產(chǎn)生N個X串的首字母組成的新字符串Choose(N,x1,x2,x3):根據(jù)N的值，返回對應(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)可以處理兩個或兩個以上分支。其語句形式為：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í)行流程： 自上而下順序地判斷測試表達(dá)式的值與表達(dá)式列表中的哪一個匹配，如有匹配則執(zhí)行相應(yīng)語句塊，然后轉(zhuǎn)到End Select的下一語句。 若所有的值都不匹配，執(zhí)行Case Else所對應(yīng)的語句塊，如省略Case Else，則直接轉(zhuǎn)移到End Select的下一語句。 4. *文本框的屬性和事件*該內(nèi)容需同學(xué)們先行閱讀書本P111P113或查閱相關(guān)資料，并簡單的歸納整理該知識點，寫在實驗報告中。附錄 VB實驗報告模板：麗水學(xué)院計算機實驗報告一、實驗內(nèi)容（題目及功能簡述）二、實驗過程及結(jié)果（1） 界面設(shè)計 寫出對象及相應(yīng)屬性設(shè)置：（可列表，如下）相關(guān)屬性設(shè)置：控 件 (屬性值)屬性(屬性值)Form1“小學(xué)生四則運算測試器”最后得到界面圖如下所示：（2）過程設(shè)計 寫出各事件過程的程序代碼 （3）運行調(diào)試三