用vb制作-四则运算器步骤与代码

《用vb制作-四则运算器步骤与代码》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、一、实验目的、目标综合运用本课程的相关知识，完成两位数四则运算器的设计、编写与测试，培养学生的实践动手能力，并检测本课程的学习效果。二、实验内容基本要求：ü两位数（指10-99的自然数）的加减乘除（除法指的是整除）运算，其中减法和除法必须满足“被操作数不小于操作数”（即可以不考虑20-56、420等情况）ü两个操作数、运算符均随机产生ü完成一题后自动判断对错，并显示出来ü可以随时查看已经完成的题目情况ü完成一题自动计算题目总数、正确数、错误数和正确率，并实时显示出来扩展要求（不硬性规定）：ü在答错的题目后面给出正确答案ü可增加时钟控件，10秒(或15秒)内必须完成一题ü限制题目数目为固

2、定值(如20题、50题)ü把程序扩展成为多位数甚至任意位数的运算器第12页共12页三、实验过程与步骤1、在VisualBasic系统环境下，打开“工程设计”窗口。2、新建两个窗口Form1和Form2,添加控件并进行控件的设置，Form1作用是进行题目数量和答题时间的选择并将数据进行保存以供Form2调用，Form2的作用是进行随机两位数（指10-99的自然数）的加减乘除（除法指的是整除）运算，完成一题后自动判断对错，给出错误题目的正确答案，并显示出来，添加时间钟控，显示计算题目总数、正确数、错误数和正确率。第12页共12页3、在Form1窗口，双击控件打开代码窗口，设计窗体及控件的事件

3、代码。采用单选的形式选择题目数量和答题时间，当点击确定按钮时，调用Form2,当点击退出时，退出整个程序。PublictishuAsInteger,shijianAsIntegerPrivateSubForm_Load()Text1.Visible=FalseText2.Visible=FalsePicture1.Height=Form1.HeightPicture1.Width=Form1.WidthForm1.ShowMsgBox"请选择题量和答题时间！",48,"提示"Form2.HideUnloadForm2EndSubPrivateSubOption1_Click(IndexA

4、sInteger)tishu=Val(Option1(Index).Caption)Text1.Text=tishu第12页共12页EndSubPrivateSubOption2_Click(IndexAsInteger)shijian=Val(Option2(Index).Caption)Text2.Text=shijianEndSubPrivateSubCommand1_Click()MsgBox"请直接在文本框中输入数字作答（其中除法为整除)，"&vbLf&"回车完成一题，系统自动生成下一题",,"提示"Form2.ShowForm1.HideEndSubPrivateSubCom

5、mand2_Click()EndEndSub4、在Form2窗口，双击控件打开代码窗口，设计窗体及控件的事件代码。（1）定义变量Dima()AsIntegerDimb()AsIntegerDimc()AsIntegerDimresult()AsDoubleDimcouAsIntegerDimnAsStringDimXAsStringDimiAsIntegerDimpAsIntegerDimsumAsIntegerDimrightAsIntegerDimwrongAsIntegerDimwAsDoubleDimwwAsStringDimSAsIntegerDimdAsInteger第12页

6、共12页（2）两位随机数（指10-99的自然数）的加减乘除（除法指的是整除）运算PrivateSubproduct()ReDimPreservea(cou)ReDimPreserveb(cou)ReDimPreservec(cou)ReDimPreserveresult(cou)a(cou)=10+Int(Rnd*90)b(cou)=1+Int(Rnd*4)c(cou)=10+Int(Rnd*90)SelectCaseb(cou)Case1Label1.Caption=CStr(a(cou))Label3.Caption=CStr(c(cou))result(cou)=a(cou)+c(

7、cou)Label2.Caption="+"Case2IfVal(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