Dim numa, numb, a, b, i, n As Integer
Dim str$, stra$, ch$

Private Sub Cmdjs_Click()
If n = Text1.Text Then Text2.Print str & n & "crroct": a = a + 1
Else: Text2.Print str & n & "error": b = b + 1
Else
End Sub

Private Sub Form_Load()
numa = Int(10 * Rnd + 1)
numb = Int(10 * Rnd + 1)
i = Int(4 * Rnd + 1)
Select Case i
Case 1
ch = "+": str = numa & "+" & numb & "="
Case 2
ch = "-": str = numa & "-" & numb & "="
Case 3
ch = "*": str = numa & "*" & numb & "="
Case 4
ch = "/": str = numa & "/" & numb & "="
End Select
Label1.Caption = str
n = "numa" & ch & "numb" 请给改正，不会！！！
End Sub

Private Sub Cmdtongji_Click()
Text2.Print "___________________________________"
Text2.Print "一共计算" & (a + b) & "道题，" & "答对" & a & "道题"
Text2.Print "得分" & a / (a + b) * 100
End Sub