由随机函数产生10道一位整数与两位整数相加的加法题，产生的加法题依次显示在屏幕上，每产生一道题后，由用户输入答案，如果答案正确，记10分；如果答案错误，允许第二次输入答案，第二次输入答案正确，记5分

Private Sub Command1_Click()

 Dim a, b, c, d, k, s As Integer

  s = 0: k = 0

  For i = 1 To 3

   a = Int(Rnd * 10): b = Int(Rnd * 90 + 10)

   Print a; "+"; b; "="

   c = Val(InputBox("请输入正确答案"))

     If a + b = c Then

        s = s + 10

     Else

        d = Val(InputBox("答案错误，请输入正确答案"))

        If a + b = d Then

           s = s + 5

        Else

           s = s + 0

        End If

     End If

  Cls

  Next i

  Print "你的总分是："; s

End Sub