求高手帮忙做个口算小程序！谢谢！

来源：百度知道 编辑：UC知道 时间：2024/06/06 10:43:35
编程要求：
程序运行时，text3会随机给出0-99中任意一个数字，然后在text1和2中输入两个加数，点command1键（确定按钮）。当输入的加数和等于T3所给的数时，T4中的分数会加1，T5会显示“恭喜你答对了！”反之，T4里的数不变，T5会显示“再接再厉”。点击command2，退出程序。
跪求！！一定给加分！！最好在4号中午以前给我答案，万分感谢！！
图不清楚可以看http://wenwen.soso.com/z/q163839764.htm

Option Explicit

Private Sub Command1_Click()
If Len(Text1.Text) = 0 Then '判断text1是不是空的
Text5.ForeColor = vbRed '提示的字设置成红色的的
Text5.Text = "你还没有输入第一个加数"
Text1.SetFocus
Exit Sub
End If

If Not IsNumeric(Text1.Text) Then '判断text1是不是数字
Text5.ForeColor = vbRed '提示的字设置成红色的
Text5.Text = "第一个加数不是数字哦"
Text1.SetFocus
Exit Sub
End If

If Len(Text2.Text) = 0 Then '判断text2是不是空的
Text5.ForeColor = vbRed '提示的字设置成红色的
Text5.Text = "你还没有输入第二个加数"
Text2.SetFocus
Exit Sub
End If

If Not IsNumeric(Text2.Text) Then '判断text2是不是数字
Text5.ForeColor = vbRed '提示的字设置成红色的
Text5.Text = "第二个加数不是数字哦"
Text2.SetFocus
Exit Sub
End If