用VB制作四則運(yùn)算器步驟及代碼

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

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

3、率。3、在Form1窗口，雙擊控件打開(kāi)代碼窗口，設(shè)計(jì)窗體及控件的事件代碼。采用單選的形式選擇題目數(shù)量和答題時(shí)間，當(dāng)點(diǎn)擊確定按鈕時(shí)，調(diào)用Form2,當(dāng)點(diǎn)擊退出時(shí)，退出整個(gè)程序。Public tishu As Integer, shijian As IntegerPrivate Sub Form_Load()Text1.Visible = FalseText2.Visible = FalsePicture1.Height = Form1.HeightPicture1.Width = Form1.WidthForm1.ShowMsgBox "請(qǐng)選擇 題量 和 答題時(shí)間 ！", 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 "請(qǐng)直接

5、在文本框中輸入數(shù)字作答（其中除法為整除)，" & vbLf & "回車(chē)完成一題，系統(tǒng)自動(dòng)生成下一題", , "提示"Form2.ShowForm1.HideEnd SubPrivate Sub Command2_Click()EndEnd Sub4、在Form2窗口，雙擊控件打開(kāi)代碼窗口，設(shè)計(jì)窗體及控件的事件代碼。（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）兩位隨機(jī)數(shù)（指10-99的自然數(shù)）的加減乘除（除法指的是整除）運(yùn)算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加載時(shí)的相關(guān)數(shù)據(jù)Private Sub Form_Load()Picture1.Height = Form2.HeightPicture1.Width = Form2.WidthRandomizeCall productS = Val(Form1.Text2.Text)Label9.Caption = "剩余時(shí)間" & Space(2) & S & Space(1) & "S"Label10.Caption = "總題數(shù)：" & Space(2) & Val

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

12、f p = 0 Then wrong = wrong + 1 Label7.Caption = "錯(cuò)誤題數(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 & "題，" & "錯(cuò)誤" & wrong & "題，" & "正確率為" & ww, , &

14、quot;成績(jī)"Unload Form2Form1.ShowLoad Form1MsgBox "請(qǐng)重新選擇 題量和答題時(shí)間 或者 退出系統(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 "請(qǐng)輸入答案！", 48, "提示&

15、quot; Else If Val(Text1.Text) <> result(cou) Then n = "×" Else n = "" If n = "×" Then wrong = wrong + 1 Label7.Caption = "錯(cuò)誤題數(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）利用另一個(gè)鐘控統(tǒng)計(jì)已答題數(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）利用兩個(gè)按鍵控件和一個(gè)圖形顯示控件分別實(shí)現(xiàn)重新開(kāi)始、退出系統(tǒng)、識(shí)別等功能Private Sub Command3_Click()Unload Form2Form1.ShowLoad Form1MsgBox "請(qǐng)重新選擇 題量和答題時(shí)間 或者 退出系統(tǒng)", 48, "提示"End SubPrivate Sub Command1_Click()EndEnd SubPrivate Sub Picture2_MouseM