Dim n1 As Integer, n2 As Integer, n3 As Integer, df As Integer
For i = 1 To 100
n1 = Rnd * 100
n2 = Rnd * 100
n3 = n1 + n2
If MsgBox(CStr(n1) & "+" & CStr(n2) & "等于" & CStr(n3) & "吗", vbYesNo, "加法练习") = vbYes Then df = df + 1
Next
MsgBox "你的得分是" & CStr(df)
原来不能一起发啊
