帮帮忙！！！菜鸟求教，哪位大虾来指点一二(一个关于vb的小问题）

[icegirl_yu]

我如何可以作出一个出题的小东东
可以在4位是以内随机出+-*/的运算题
等待一旦时间后无回答算错
最终爆出正确答案
但也可打印出来让学生作？？？？？
4位是以内随机出题
应怎样规定？？？？
还要打印？？？

[minkerui]

Randomize;
A=Int(Rnd(9999))
B=Int(Rnd(9999))
YunSuan=Int(Rnd(4))

Select case YunSuan
Case 0:DaAn=A+B
Case 1:DaAn=A-b
Case 2:DaAn=A*b
Case 3:DaAn=A Div b
End