谁帮做个VB，急死！！！！

来源：百度知道 编辑：UC知道 时间：2024/07/07 16:55:48
两个两位数相加，等于1个两位数，不能大于2位，写下编程··~，下午就要啊，做了再给分·~~~~

两位数加法，随机出题，保证两个加数和结果都是两位数。不需要任何控件，一运行即可开始：

'不带题数和分数提示的
Private Sub Form_activate()
Dim m As Integer, n As Integer, result As Integer
Randomize
Do
m = 10 + Int(80 * Rnd)
n = 10 + Int((89 - m) * Rnd)
plus = m & "+" & n & "="
result = Val(InputBox(plus, "两位数加法（输入0退出运算）"))

If result = 0 Then
End
ElseIf result <> m + n Then
MsgBox "答错了！结果是" & m & "+" & n & "=" & m + n & "，不是" & result, , "两位数加法"
End If

Loop Until result = 0
End Sub

'带题数和分数提示的
Private Sub Form_activate()
Dim m As Integer, n As Integer, result As Integer, score As Integer, t As Integer

t = 0 '题数
score = 0 '分数
Randomize
Do
t = t + 1
m = 10 + Int(80 * Rnd)
n = 10 + Int((89 - m) * Rnd)
plus = m & "+" & n & "="
result = Val(InputBox(plus, &