使用VB程序编写的学习机程序.docVIP

实验题目： 小学生做加减法的算术练习程序。计算机随机给出两个100之内的加减算术题，要求学生回答。它能对学生输入的答案的正确性进行判断，最后给出答案的正确率（分数）。 界面设计： 三、属性设置 对象属性表 对象名 属性 值 form1 caption 小学生学习机程序 text1 text 清空 text1 multiline TRUE text1 scrollebars 2-vertical text2 text 清空 frame1 caption 题目： frame2 caption 成绩： picture1 picture 插入图片 command1 caption 开始出题 command2 caption 统计分数 command3 caption 清空重新开始 command4 caption 退出 四、程序代码 （通用） Dim a1 As Integer, a2 As Integer, i As Integer, str1 As String, b As Integer, j As Integer Dim n As Integer, m As Integer, str2 As String, sum As Integer Dim c As Integer, str3 As String, str4 As String Private Sub Command1_Click() Randomize str1 = str2 = sum = 0 n = InputBox(请输入题目个数：, 题目数) For j = 1 To n b = Int(Rnd * 2) + 1 ‘b随机产生1或2 a1 = Int(100 * Rnd) ‘a1随机产生100以内的数 a2 = Int(100 * Rnd) ‘a2随机产生100以内的数 If b = 1 Then ‘如果b随机产生为1，题目为加法 str2 = str2 a1 + a2 = Chr(13) Chr(10) Text1.Text = str2 m = InputBox(请输入第 j 题结果：, 输入结果) If a1 + a2 = m Then ‘判断输入结果是否正确 sum = sum + 1 ‘sum为做对题目数量，做对一道累加一次 str1 = str1 a1 + a2 = m (√) Chr(13) Chr(10) ‘输出结果 Else str1 = str1 a1 + a2 = m (×),正确答案为： (a1 + a2) Chr(13) Chr(10) Text1.Text = str1 ‘输出错误信息，并给出正确结果 End If Else ‘如果b随机产生为2，题目为减法 If a1 a2 Then ‘判断a1和a2大小，若a1大于a2，则a1-a2 str2 = str2 a1 - a2 = Chr(13) Chr(10) Text1.Text = str2 m = InputBox(请输入第 j 题结果：, 输入结果) If a1 - a2 = m Then ‘判断结果是否正确 sum = sum + 1 str1 = str1 a1 - a2 = m (√) Chr(13) Chr(10) Text1.Text = str1 ‘如果结果正确，则输出 Else str1 = str1 a1 - a2 = m (×),正确答案为： (a1 - a2) Chr(13) Chr(10) Text1.Text = str1