Question

编写一个VB程序，小学生可以用这个程序进行两个数的四则运算自我测验。

小学生可以用这个程序进行两个数的四则运算自我测验。要求：测验者可以选择难度（如取加法乘除或位数为不同难度），可以选择每次做的题数n，电脑会对结果进行正确或错误的评判。题目中的运算数据应随机产生。

Answer 1

option explicit
dim result!,nok%,nerror%
private sub form_load()
dim num1%,num2%,nop%,op$
randomize
num1=int(10*rnd+1)
num2=int(10*rnd+1)
nop=int(4*rnd+1)
select case nop
case 1
op="+":result=num1+num2
case 2
op="-":result=num1-num2
case 3
op="×":result=num1*num2
case 4
op="÷":result=num1/num2
end select
label1=num1&op&num2&"="
end sub

private sub text1_keypress(keyascii as integer)
if keyascii=13 then
if val(text1)=result then
picture1.print label1;text1;tab(10);"√"
nok=nok+1
else
picture1.print label1;text1;tab(10);"×"
nerror=nerror+1
end if
text1=""
text1.setfocus
form_load
end if
end sub

private sub command1_click()
label1=""
picture1.print"一共计算"&(nok+nerror)&"道题";
picture1.print"得分"&int(nok/(nok+nerror)*100)
end sub
控件：一个标签，一个文本框，一个命令按钮，一个图形框