VB：设计一个100以内加减法运算的计算程序每做完一道题,判断是否得分,并打印题目和答题结果；若答题,则需在本题打印结果后标注符号“X”,并提示正确答案.

Question

VB：设计一个100以内加减法运算的计算程序
每做完一道题,判断是否得分,并打印题目和答题结果；若答题,则需在本题打印结果后标注符号“X”,并提示正确答案.

Answer 1

Private Sub Command1_Click()
Text1 = Int(Rnd() * 99 + 1)
Text2 = Int(Rnd() * 99 + 1)
Text3 = ""
End Sub

Private Sub Command2_Click()
If Val(Text3) = Val(Text1) + Val(Text2) Then
Label1.Caption = "恭喜你回答正确."
Else
Label1.Caption = "X     正确答案为：" & Val(Text1) + Val(Text2)
End If

End Sub           ‘加法运算,减法类似