Question

vb题，三个标签，一个文本框，两个命令按钮，编写一计算机自动出题并判断对错的程序，单击出题按钮，

在标签中显示题面（有加减乘除四种运算）在文本框中输入答案然后单击判断按钮即可弹出提示正确或错误的消息框

Answer 1

Private Sub command1_click() '出题
Randomize
Label1 = Int(Rnd * 9) + 1 '如果要两位数就把9改成99
Randomize
Label3 = Int(Rnd * 9) + 1
Select Case Int(Rnd * 4) + 1
Case 1
Label2 = "＋"
Case 2
Label2 = "－"
Case 3
Label2 = "×"
Case 4
Label2 = "÷"
End Select
End Sub

Private Sub Command2_Click()
Select Case Label2.Caption
Case "＋"
If Text1 = CInt(Label1) + CInt(Label3) Then
MsgBox "正确"
Else
MsgBox "错误"
End If
Case "－"
If Text1 = CInt(Label1) - CInt(Label3) Then
MsgBox "正确"
Else
MsgBox "错误"
End If
Case "×"
If Text1 = CInt(Label1) * CInt(Label3) Then
MsgBox "正确"
Else
MsgBox "错误"
End If
Case "÷"
If Text1 = CInt(Label1) / CInt(Label3) Then
MsgBox "正确"
Else
MsgBox "错误"
End If
End Select
End Sub