一个由计算机来当小学低年级学生算术老师的VB应用程序

来源：百度知道 编辑：UC知道 时间：2024/07/11 07:41:40
要求给出一系列的两个1~10数的四则运算的算术题，学生输入该题的答案，计算机根据学生的答案判断正确与否，并给出成绩，单击结束命令按钮，退出应用程序的答案。
小学四则运算程序运行界面如图1-1所示（此界面只作为参考，界面风格可自定）。
visual studio 2005 做

Private Sub Command1_Click()
Dim n$, m%, i%, l%, k!, x!, z%, y%
z = InputBox("请老高诉我,要我出几个题目呢?")
For y = 1 To z
Randomize
n = Fix(Rnd * 4)
Select Case n
Case 0
n = "+"
Case 1
n = "-"
Case 2
n = "*"
Case 3
n = "/"
End Select
m = Fix(Rnd * 11): i = Fix(Rnd * 11)
If n = "-" And i > m Then
l = m
m = i
i = l
End If
If n = "/" And i = 0 Then i = 1
Text1.Text = "第" & y & "题:" & m & n & i & "="
Select Case n
Case "+"
k = m + i
Case "-"
k = m - i
Case "*"
k = m * i
Case "/"
k = m / i
End Select
x = InputBox("第&q