为小学生教学服务,能够根据小学生的需要随机抽出一位数、两位数、三位数的数学运算题,可根据需要进行加减乘除运算。由学生在电脑上答题,并对其判断正误和记分。另外可以根据需要随机抽出四则运算的混合运算题同样应对其判断正误和记分.
给出程序最好
第1个回答 2008-12-18
在窗体上给出四个text,第一个显示数,第二个用于输入运算符,第三个用于显示数,第四个用于输入结果,另外右两个command按钮,一个用于出题,另一个用于判断:
dim a as integer,b as integer
dim c as string
private sub command1_Click()
a=rnd*1000:b=rnd*1000
text1.text=str(a):text3.text=str(b)
end sub '产生数
private sub command1_click()
c=text2.text
select case c
case "+"
if text4.text=str(a+b) then
msgbox "good",vbokonly,"提示"
else
msgbox "bad",vbokonly,"提示"
end if
case "-"
if text4.text=str(a-b) then
msgbox "good",vbokonly,"提示"
else
msgbox "bad",vbokonly,"提示"
end if
case "*"
if text4.text=str(a*b) then
msgbox "good",vbokonly,"提示"
else
msgbox "bad",vbokonly,"提示"
end if
case "/"
if text4.text=str(a/b) then
msgbox "good",vbokonly,"提示"
else
msgbox "bad",vbokonly,"提示"
end if
end select
end sub '判断是否正确
dim a as integer,b as integer
dim c as string
private sub command1_Click()
a=rnd*1000:b=rnd*1000
text1.text=str(a):text3.text=str(b)
end sub '产生数
private sub command1_click()
c=text2.text
select case c
case "+"
if text4.text=str(a+b) then
msgbox "good",vbokonly,"提示"
else
msgbox "bad",vbokonly,"提示"
end if
case "-"
if text4.text=str(a-b) then
msgbox "good",vbokonly,"提示"
else
msgbox "bad",vbokonly,"提示"
end if
case "*"
if text4.text=str(a*b) then
msgbox "good",vbokonly,"提示"
else
msgbox "bad",vbokonly,"提示"
end if
case "/"
if text4.text=str(a/b) then
msgbox "good",vbokonly,"提示"
else
msgbox "bad",vbokonly,"提示"
end if
end select
end sub '判断是否正确
第2个回答 2008-12-17
你是想要程序?
程序是没有,思想可以提供一下。
你把试题存入数据库,两个字段存数,一个字段存加减乘除的符号,一个字段存运算结果,然后随机从数据库中抽题,提交试题的时候,自己根据试题的ID循环判断结果与数据库中存放结果的字段是否一样,一样的话加分。
如果试题的分数不一样的话,就在加一个分数的字段。
要是还是不明白可以用百度聊天工具找我。本回答被网友采纳
程序是没有,思想可以提供一下。
你把试题存入数据库,两个字段存数,一个字段存加减乘除的符号,一个字段存运算结果,然后随机从数据库中抽题,提交试题的时候,自己根据试题的ID循环判断结果与数据库中存放结果的字段是否一样,一样的话加分。
如果试题的分数不一样的话,就在加一个分数的字段。
要是还是不明白可以用百度聊天工具找我。本回答被网友采纳
第3个回答 2008-12-17
1=5
2=10
3=15
4=20
5=?
5=1
2=10
3=15
4=20
5=?
5=1