关于VB的问题！！急，谢谢各位大虾

来源：百度知道 编辑：UC知道 时间：2024/04/29 04:49:55
问题是这样的：
由随机函数产生10道一位整数与两位整数相加的加法题，产生的加法题依次显示在屏幕上，每产生一道题后，由用户输入答案，如果正确，记10分，如果答案错误，允许第二次输入答案，第二次输入正确，记5分，错误记0分，最后给出总得分。
谢谢各位大虾了
我下100分了,不够小弟在追加！

Private Sub Command1_Click()
Dim i As Integer, A1 As Integer, A2 As Integer, J As Integer, S As Integer
Randomize
For i = 1 To 10
A1 = Int(Rnd() * 10)
A2 = Int(Rnd() * 90 + 10)
Print A1; "+"; A2; "=";
If A1 + A2 = Val(InputBox("请输入答案：")) Then
S = S + 10
Print A1 + A2
Else
If A1 + A2 = Val(InputBox("请再一次输入答案：")) Then
S = S + 5
Print A1 + A2
End If
End If
Next i
Print "最后得分："; S
End Sub

我做了个实例，如果需要源程序可以发给你。

Dim Score As Integer

Sub Init()
Dim I As Integer
Dim N1, N2 As Integer
Score = 0
Randomize
For I = 0 To 9
N1 = Int(Rnd * 10)
N2 = Int(Rnd * 90) + 10
lbNum1(I).Caption = N1
lbNum2(I).Caption = N2
txtResult(I).Text = ""
lbResult(I).Caption = "⊙&quo