UC知道跪求VB高手帮忙解题！急！
来源：百度知道 编辑：UC知道 时间：2024/06/27 06:52:17
设计一个标签，内容为随机产生的10以内的加减乘法算式，另设计一个文本框，可以输入运算结果，当用户按回车键时，判断运算结果是否正确、文本框内容是否数字，以输出不同的msgbox提示，并根据用户的按键决定是否重做或重新出题，最后设计两个按钮分别实现程序结束和记分功能（可以参照课件上的程序，注意其中要修改的部分）
Dim result As Single
Private Sub Command1_Click() '生成题目
Randomize
a = Int(Rnd * (10) + 1)
b = Int(Rnd * (10) + 1)
x = Int(Rnd * (4) + 1)
Select Case x
Case 1
result = a + b
Label1.Caption = a & " + " & b & " =?"
Case 2
result = a - b
Label1.Caption = a & " - " & b & " =?"
Case 3
result = a * b
Label1.Caption = a & " * " & b & " =?"
Case 4
result = a / b
Label1.Caption = a & " / " & b & " =?"
End Select
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If IsNumeric(Text1.Text) = True Then
If Text1.Text = result Then
MsgBox "恭喜你答对了！"
Else
MsgBox "遗憾~答错了"
End If
Else
MsgBox "不是数字 重新输入"
End If
End If
End Sub
其他自己改了。
Dim result As Single
Private Sub