小学期计算机实总结报告.docVIP

小学期计算机实习总结报告 第一题、算术运算测试程序 题目要求： 制作一个可供小学数学运算的程序。 0—100 整数加减乘除四则运算，如结果为小数四舍五入保留小数点后两位。 根据输入题数出题，题目应为随机，每次应不一样。 如：题目数=3 77-55= 33*3= 100/3= 判断是否正确，如不正确给出正确答案，并计算分数，分数为正确题目的 百分比（四舍五入取整数）。 如：77-55= 22 对 33*3= 99 对 100/3= 33 错结果应为 33.33 分数为：67 分 设计思路： 本题我选用VB来设计， 首先是0——100整数加减乘除四则运算，故需要用到取随机数函数Rnd()以及Select Case语句。 其次小数四舍五入保留小数点后两位，这主要出现在除法运算中，需要用到format( )；算分数时要四舍五入取整，需要用到CInt( ) 再次判断结果对错主要用到if……else……语句 大体思路确定后再根据题目要求确定需要使用的控件的种类和数量，其次以每种控件为单位将整个程序分成几块，先编写每小块的代码即每个控件的功能代码。 本题需要使用的控件为commandbutton（用于判断对错、得出分数、清空答题板和退出）、textbbox（用于输入结果）、label（用于显示所出题目）、optionbutton、（用于选择所要进行测试的题型）、picturebox（用于显示答题情况及最终分数） 分块一： Private Sub Option1_Click() Command1.Caption = 确认 Command1.Enabled = True Text1.FontSize = 18 Randomize shu1 = Int(Rnd * 100 + 1) //取0到100的随机整数 shu2 = Int(Rnd * 100 + 1) //取0到100的随机整数 jieguo = shu1 + shu2 Label1.Caption = shu1 + shu2 = Label1.FontSize = 18 End Sub //此过程执行加法运算 与此相同可写出减法运算、乘法运算和除法运算的代码，但在写除法运算代码是需注意除数不能取0，即shu2 = Int(100*Rnd + 1) ,表示取1到100的随机数，而且结果小数超过两位的要四舍五入保留两位，即jieguo = Format(shu1 / shu2, 0.00)。 分块二： Private Sub Option5_Click() Command1.Caption = 确认 Command1.Enabled = True Dim suijishu As Integer, fuhao As String * 1 //定义suijishu为整型数据，fuhao为长度为1的字符串 Text1.FontSize = 18 Randomize shu1 = Int(Rnd * 100 + 1) shu2 = Int(Rnd * 100 + 1) suijishu = Int(Rnd * 4 + 1) //取1到4的随机整数 Select Case suijishu //随机选取加减乘除运算 Case 1 fuhao = + jieguo = shu1 + shu2 Case 2 fuhao = - jieguo = shu1 - shu2 Case 3 fuhao = * jieguo = shu1 * shu2 Case 4 fuhao = / If shu2 0 Then //判断除数是否为0 jieguo = Format(shu1 / shu2, 0.00) //结果形式 End If End Select Label1.Caption = shu1 fuhao shu2 = //显示所出题目 Label1.FontSize = 18 End Sub 此过程主要是混合运算的代码，使用了select case 语句 分块三: Private Sub Command