求教一个新手问题
题目：由随即函数产生10道一位整数与两位整数相加的加法题，产生的加法题一次显示在屏幕上，每产生一道题后，由用户输入答案。如果答案正确，记10分；如果答案错误，允许第二次输入答案，第二次输入答案正确，记5分，错误记0分，最后给出总分我以前的想法是在textbox控件中输入答案，然后点击command1确定，如果答案正确就显示下一题，然后又在text1中输入答案，再点击command1确定，如果错误，出现msgbox "错误，请再一次",然后还是在text1中输入答案，点击command1确定，但是却不知道如何像我上面想的那样使command1反复利用，这就是问题的所在了，请大家指点一下
这是我后来放弃在textbox控件中输入答案而改用inputbox的一种做法
Private Sub Command1_Click()
Dim a%, b%, c%, x%
Dim n%, sum%
a = Int(10 * Rnd)
Label1.Caption = a
b = Int(100 * Rnd)
Label3.Caption = b
sum = 0
n = 1
Do
c = Val(InputBox("请输入答案", "运算"))
If c = a + b Then
MsgBox "回答正确，加10分", 64, "提示"
sum = sum + 10
Else
x = Val(InputBox("再试一次", "提示"))
If x = a + b Then
MsgBox "回答正确，加5分", 64, "提示"
sum = sum + 5
Else
MsgBox "很遗憾，得0分", 32, "提示"
End If
End If
a = Int(10 * Rnd)
Label1.Caption = a
b = Int(100 * Rnd)
Label3.Caption = b
n = n + 1
Loop While n <= 10
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = True
Command1.Visible = False
Label5.Caption = "您的最后得分为：" & sum & "分"
End Sub
Private Sub Form_Load()
Label5.Visible = False
End Sub
