一道关于vb的题目，急求

望采纳。。。

这个比较难哦。不是一串代码就能解决的。

已发送到你邮箱。这是代码。
有点问题，已经修改好了，已发你邮箱，有问题再找我。

Private Sub Command1_Click()

fenshu = 0

For i = 1 To 10

Label5.Caption = i

jiashu1 = Int((9 * Rnd) + 1)

jiashu2 = Int((89 * Rnd) + 10)

Label1.Caption = Str(jiashu1) & "+" & Str(jiashu2) & "="

daan = InputBox("请输入答案")

If daan = CStr(jiashu1 + jiashu2) Then

fenshu = fenshu + 10

Else

daan2 = InputBox("答错，请再次输入答案")

If daan2 = cstr(jiashu1 + jiashu2) Then

fenshu = fenshu + 5

End If

End If

Label2.Caption = fenshu

Next

MsgBox ("答题完毕")

End Sub