vb十以内的加法练习程序,随机产生两个10以内的数相加,输入答案判断对错

我要改一下
绝对可以
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = Int((10 * Rnd) + 1)
b = Int((10 * Rnd) + 1)
MsgBox a, , "第一个数为"
MsgBox b, , "第二个数为"
c = InputBox("请输入你的答案")
If c = a + b Then
MsgBox "恭喜你答对了！"
End If
If c <> a + b Then
MsgBox "很遗憾，你回答错了！"
End If
End Sub