请教一道vb的编程题！！

Question

单击“出题”按钮后计算机自动出题，此时由用户输入加法运算答案，然后单击“判定”按钮。如果用户运算正确则提示“运算正确”，否则显示“运算错误”。再次按下“出题”就会再出一道题。（“出题”和“判定”都由一个控件完成）
计算机自动出题，显示的题目应该是随机的，所以这里必须使用随机函数Rnd，其值为 [0，1] 间的随机数，如果要得到区间 [L，U] 中的随机整数，应使用表达式 Int((U-L+1)*Rnd+L) 。
命令按钮Command1每次按下时其Caption属性会发生变化，从“出题”变成“判定”，又从“判定”变成“出题”。当它是“出题”时，按下就会随机出题；当它是“判定”时，按下就会对用户输入的答案判断对错。

Answer 1

dim x as integer
dim y as integer
dim u as integer
dim l as integer
private sub form_load()
command1.caption="出题"
l=0
u=100
end sub
private sub command1_click()
if command1.caption="出题" then
x=Int((U-L+1)*Rnd+L)
y=Int((U-L+1)*Rnd+L)
label1.caption=x & "+" & y & "="
text1.text=""
command1.caption="判定"

else
if cint(text1.text)=x+y then
msgbox "运算正确"
command1.caption="出题"

else
msgbox "运算错误"
end if
end if
end sub