vb菜鸟求救 编写加法练习程序，要求如下

 当用户计算正确后，单击“出题”按钮给出下一题。
 当用户计算错误时，必须重做该题，直到计算正确后，才能单击“出题”按钮给出下一题，否则，“出题”按钮将处于无效状态。

do
x=int(rnd*10)
y=int(rnd*10)
do
if x*y=val(tres) then 'tres为你要输入结果的东东
出题.enable=true
exit do
else
出题.enable=false
msgbox "计算错误，从新写吧"
end if
loop
loop

文本框（加数） text1，（加数）text2，（和）text3按钮“出题” commandbutton1 private sub commandbutton1_click() text1.text=10 text2.text=20 if val(text3.text)=30 then text1.text=20 text2.text=30 commandbutton1.enable=true else text1.text=10 text2.text=20 commandbutton1.enable=false text3.setfoucus end if end sub