用VB制作四則運算器步驟及代碼

1、一、實驗目的、目標綜合運用本課程的相關(guān)知識，完成兩位數(shù)四則運算器的設(shè)計、編寫與測試，培養(yǎng)學生的實踐動手能力，并檢測本課程的學習效果。二、實驗內(nèi)容基本要求：ü 兩位數(shù)（指10-99的自然數(shù)）的加減乘除（除法指的是整除）運算，其中減法和除法必須滿足“被操作數(shù)不小于操作數(shù)”（即可以不考慮20-56、420等情況）ü 兩個操作數(shù)、運算符均隨機產(chǎn)生ü 完成一題后自動判斷對錯，并顯示出來ü 可以隨時查看已經(jīng)完成的題目情況ü 完成一題自動計算題目總數(shù)、正確數(shù)、錯誤數(shù)和正確率，并實時顯示出來擴展要求（不硬性規(guī)定）：ü 在答錯的題目后面給出正確答案&#

2、252; 可增加時鐘控件，10秒(或15秒)內(nèi)必須完成一題ü 限制題目數(shù)目為固定值(如20題、50題)ü 把程序擴展成為多位數(shù)甚至任意位數(shù)的運算器三、實驗過程與步驟1、在Visual Basic 系統(tǒng)環(huán)境下，打開“工程設(shè)計”窗口。2、新建兩個窗口Form1和Form2,添加控件并進行控件的設(shè)置， Form1作用是進行題目數(shù)量和答題時間的選擇并將數(shù)據(jù)進行保存以供Form2調(diào)用，F(xiàn)orm2的作用是進行隨機兩位數(shù)（指10-99的自然數(shù)）的加減乘除（除法指的是整除）運算，完成一題后自動判斷對錯，給出錯誤題目的正確答案，并顯示出來，添加時間鐘控，顯示計算題目總數(shù)、正確數(shù)、錯誤數(shù)和正確

3、率。3、在Form1窗口，雙擊控件打開代碼窗口，設(shè)計窗體及控件的事件代碼。采用單選的形式選擇題目數(shù)量和答題時間，當點擊確定按鈕時，調(diào)用Form2,當點擊退出時，退出整個程序。Public tishu As Integer, shijian As IntegerPrivate Sub Form_Load()Text1.Visible = FalseText2.Visible = FalsePicture1.Height = Form1.HeightPicture1.Width = Form1.WidthForm1.ShowMsgBox "請選擇 題量 和 答題時間 ！", 4

4、8, "提示"Form2.HideUnload Form2End SubPrivate Sub Option1_Click(Index As Integer)tishu = Val(Option1(Index).Caption)Text1.Text = tishuEnd SubPrivate Sub Option2_Click(Index As Integer)shijian = Val(Option2(Index).Caption)Text2.Text = shijianEnd SubPrivate Sub Command1_Click()MsgBox "請直接

5、在文本框中輸入數(shù)字作答（其中除法為整除)，" & vbLf & "回車完成一題，系統(tǒng)自動生成下一題", , "提示"Form2.ShowForm1.HideEnd SubPrivate Sub Command2_Click()EndEnd Sub4、在Form2窗口，雙擊控件打開代碼窗口，設(shè)計窗體及控件的事件代碼。（1）定義變量Dim a() As IntegerDim b() As IntegerDim c() As IntegerDim result() As DoubleDim cou As IntegerDim n As

6、 StringDim X As StringDim i As IntegerDim p As IntegerDim sum As IntegerDim right As IntegerDim wrong As IntegerDim w As DoubleDim ww As StringDim S As IntegerDim d As Integer（2）兩位隨機數(shù)（指10-99的自然數(shù)）的加減乘除（除法指的是整除）運算Private Sub product()ReDim Preserve a(cou)ReDim Preserve b(cou)ReDim Preserve c(cou)ReDim

7、 Preserve result(cou)a(cou) = 10 + Int(Rnd * 90)b(cou) = 1 + Int(Rnd * 4)c(cou) = 10 + Int(Rnd * 90)Select Case b(cou)Case 1Label1.Caption = CStr(a(cou)Label3.Caption = CStr(c(cou)result(cou) = a(cou) + c(cou)Label2.Caption = "+"Case 2If Val(CStr(a(cou) > Val(CStr(c(cou) ThenLabel1.Capt

8、ion = CStr(a(cou)Label3.Caption = CStr(c(cou)result(cou) = a(cou) - c(cou)ElseLabel1.Caption = CStr(c(cou)Label3.Caption = CStr(a(cou)result(cou) = c(cou) - a(cou)End IfLabel2.Caption = "-"Case 3Label1.Caption = CStr(a(cou)Label3.Caption = CStr(c(cou)result(cou) = a(cou) * c(cou)Label2.Cap

9、tion = "*"Case 4If Val(CStr(a(cou) > Val(CStr(c(cou) ThenLabel1.Caption = CStr(a(cou)Label3.Caption = CStr(c(cou)result(cou) = Int(a(cou) / c(cou)ElseLabel1.Caption = CStr(c(cou)Label3.Caption = CStr(a(cou)result(cou) = Int(c(cou) / a(cou)End IfLabel2.Caption = "/"End SelectEn

10、d Sub（3）設(shè)定Form2加載時的相關(guān)數(shù)據(jù)Private Sub Form_Load()Picture1.Height = Form2.HeightPicture1.Width = Form2.WidthRandomizeCall productS = Val(Form1.Text2.Text)Label9.Caption = "剩余時間" & Space(2) & S & Space(1) & "S"Label10.Caption = "總題數(shù)：" & Space(2) & Val

11、(Form1.Text1.Text)sum = 0right = 0wrong = 0w = 0End Sub（4）通過一個鐘控和一個文本框的回車鍵方法實現(xiàn)兩位隨機數(shù)（指10-99的自然數(shù)）的加減乘除（除法指的是整除）運算的判斷，給出錯誤答案并將式子顯示出來，統(tǒng)計正確題數(shù)和錯誤題數(shù)Private Sub Timer1_Timer()If p >= 0 Theni = i + 1p = S - iLabel9.Caption = "剩余時間" & Space(2) & p & Space(1) & "S"End IfI

12、f p = 0 Then wrong = wrong + 1 Label7.Caption = "錯誤題數(shù)：" & Space(2) & wrong n = "×" X = result(cou) List1.AddItem (Label1.Caption & Label2.Caption & Label3.Caption & Label4.Caption & Text1.Text & Chr(32) & CStr(n) & Space(3) & "答案是

13、" & CStr(X) i = -1 Call productEnd IfIf sum >= Val(Form1.Text1.Text) ThenMsgBox "共答" & Val(Form1.Text1.Text) & "題，" & "正確" & right & "題，" & "錯誤" & wrong & "題，" & "正確率為" & ww, , &

14、quot;成績"Unload Form2Form1.ShowLoad Form1MsgBox "請重新選擇 題量和答題時間 或者 退出系統(tǒng)", 48, "提示"End IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Theni = -1 If Text1.Text = "" Or IsNumeric(Text1.Text) = False Then MsgBox "請輸入答案！", 48, "提示&

15、quot; Else If Val(Text1.Text) <> result(cou) Then n = "×" Else n = "" If n = "×" Then wrong = wrong + 1 Label7.Caption = "錯誤題數(shù)：" & Space(2) & wrong X = result(cou) List1.AddItem (Label1.Caption & Label2.Caption & Label3.Caption

16、& Label4.Caption & Text1.Text & Chr(32) & CStr(n) & Space(3) & "答案是" & CStr(X) Else right = right + 1 Label6.Caption = "正確題數(shù)：" & Space(2) & right List1.AddItem (Label1.Caption & Label2.Caption & Label3.Caption & Label4.Caption &

17、 Text1.Text & Chr(32) & CStr(n) End If Text1.Text = "" End IfCall productEnd IfEnd Sub（5）利用另一個鐘控統(tǒng)計已答題數(shù)和正確率Private Sub Timer2_Timer()sum = right + wrongLabel5.Caption = "已答題數(shù)：" & Space(2) & sumIf sum > 0 Thenw = right / sumIf w = 0 Thenww = wLabel8.Caption = &qu

18、ot;正確率：" & Space(2) & wwElseww = Format(w, "#.#") * 100 & "%"Label8.Caption = "正確率：" & Space(2) & wwEnd IfEnd IfEnd Sub（6）利用兩個按鍵控件和一個圖形顯示控件分別實現(xiàn)重新開始、退出系統(tǒng)、識別等功能Private Sub Command3_Click()Unload Form2Form1.ShowLoad Form1MsgBox "請重新選擇 題量和答題時間 或者 退出系統(tǒng)", 48, "提示"End SubPrivate Sub Command1_Click()EndEnd SubPrivate Sub Picture2_MouseM