用VB制作四则运算器步骤及代码.doc

一、实验目的、目标综合运用本课程的相关知识，完成两位数四则运算器的设计、编写与测试，培养学生的实践动手能力，并检测本课程的学习效果。二、实验内容基本要求： 两位数（指10-99的自然数）的加减乘除（除法指的是整除）运算，其中减法和除法必须满足“被操作数不小于操作数”（即可以不考虑20-56、420等情况） 两个操作数、运算符均随机产生 完成一题后自动判断对错，并显示出来 可以随时查看已经完成的题目情况 完成一题自动计算题目总数、正确数、错误数和正确率，并实时显示出来扩展要求（不硬性规定）： 在答错的题目后面给出正确答案 可增加时钟控件，10秒(或15秒)内必须完成一题 限制题目数目为固定值(如20题、50题) 把程序扩展成为多位数甚至任意位数的运算器三、实验过程与步骤1、在Visual Basic 系统环境下，打开“工程设计”窗口。2、新建两个窗口Form1和Form2,添加控件并进行控件的设置， Form1作用是进行题目数量和答题时间的选择并将数据进行保存以供Form2调用，Form2的作用是进行随机两位数（指10-99的自然数）的加减乘除（除法指的是整除）运算，完成一题后自动判断对错，给出错误题目的正确答案，并显示出来，添加时间钟控，显示计算题目总数、正确数、错误数和正确率。3、在Form1窗口，双击控件打开代码窗口，设计窗体及控件的事件代码。采用单选的形式选择题目数量和答题时间，当点击确定按钮时，调用Form2,当点击退出时，退出整个程序。Public tishu As Integer, shijian As IntegerPrivate Sub Form_Load()Text1.Visible = FalseText2.Visible = FalsePicture1.Height = Form1.HeightPicture1.Width = Form1.WidthForm1.ShowMsgBox 请选择 题量 和 答题时间 ！, 48, 提示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 请直接在文本框中输入数字作答（其中除法为整除)， & vbLf & 回车完成一题，系统自动生成下一题, , 提示Form2.ShowForm1.HideEnd SubPrivate Sub Command2_Click()EndEnd Sub4、在Form2窗口，双击控件打开代码窗口，设计窗体及控件的事件代码。（1）定义变量Dim a() As IntegerDim b() As IntegerDim c() As IntegerDim result() As DoubleDim cou As IntegerDim n As 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）两位随机数（指10-99的自然数）的加减乘除（除法指的是整除）运算Private Sub product()ReDim Preserve a(cou)ReDim Preserve b(cou)ReDim Preserve c(cou)ReDim 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.Caption = 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.Caption = *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 SelectEnd Sub（3）设定Form2加载时的相关数据Private Sub Form_Load()Picture1.Height = Form2.HeightPicture1.Width = Form2.WidthRandomizeCall productS = Val(Form1.Text2.Text)Label9.Caption = 剩余时间 & Space(2) & S & Space(1) & SLabel10.Caption = 总题数： & Space(2) & Val(Form1.Text1.Text)sum = 0right = 0wrong = 0w = 0End Sub（4）通过一个钟控和一个文本框的回车键方法实现两位随机数（指10-99的自然数）的加减乘除（除法指的是整除）运算的判断，给出错误答案并将式子显示出来，统计正确题数和错误题数Private Sub Timer1_Timer()If p = 0 Theni = i + 1p = S - iLabel9.Caption = 剩余时间 & Space(2) & p & Space(1) & SEnd IfIf p = 0 Then wrong = wrong + 1 Label7.Caption = 错误题数： & 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) & 答案是 & CStr(X) i = -1 Call productEnd IfIf sum = Val(Form1.Text1.Text) ThenMsgBox 共答 & Val(Form1.Text1.Text) & 题， & 正确 & right & 题， & 错误 & wrong & 题， & 正确率为 & ww, , 成绩Unload Form2Form1.ShowLoad Form1MsgBox 请重新选择 题量和答题时间 或者 退出系统, 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, 提示 Else If Val(Text1.Text) result(cou) Then n = Else n = If n = Then wrong = wrong + 1 Label7.Caption = 错误题数： & Space(2) & wrong X = result(cou) List1.AddItem (Label1.Caption & Label2.Caption & Label3.Caption & Label4.Caption & Text1.Text & Chr(32) & CStr(n) & Space(3) & 答案是 & CStr(X) Else right = right + 1 Label6.Caption = 正确题数： & Space(2) & right List1.AddItem (Label1.Caption & Label2.Caption & Label3.Caption & Label4.Caption & Text1.Text & Chr(32) & CStr(n) End If Text1.Text = End IfCall productEnd IfEnd Sub（5）利用另一个钟控统计已答题数和正确率Private Sub Timer2_Timer()sum = right + wrongLabel5.Caption = 已答题数： & Space(2) & sumIf sum 0 Thenw = right / sumIf w = 0 Thenww = wLabel8.Caption = 正确率： & Space(2) & wwElseww = Format(w, #.#) * 100 & %Label8.Caption = 正确率： & Space(2) & wwEnd IfEnd IfEnd Sub（6）利用两个按键控件和一个图形显示控件分别实现重新开始、退出系统、识别等功能Private Sub Command3_Click()Unload Form2Form1.ShowLoad Form1MsgBox 请重新选择 题量和答题时间 或者 退出系统, 48, 提示End SubPrivate Sub Command1_Click()EndEnd SubPrivate Sub Picture2_MouseMove(Button As Integer