VB 设计一个自动出题并判断正误的程序 vb题，三个标签，一个文本框，两个命令按钮，编写一计算机自动...

Option Base 1
Dim a As Integer, b As Integer, c As Integer, n As Integer
Private Sub Command1_Click()
s = "＋－×÷"
Text1.Text = ""
n = Int(Rnd(1) * 4) + 1
a = Int(9 * Rnd(1)) + 1
b = Int(9 * Rnd(1)) + 1
If n = 2 And a < b Then t = a: a = b: b = a
If n = 4 Then c = b: b = a: a = a * c
Label1.Caption = a & Mid(s, n, 1) & b & "="
End Sub

Private Sub Command2_Click()
Select Case n
Case 1
c = a + b
Case 2
c = a - b
Case 3
c = a * b
Case 4
c = a / b
End Select
If c = CInt(Text1.Text) Then
MsgBox ("对了，您真棒！")
Else
MsgBox ("错了，再努力！")
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End Sub

Private Sub Form_Load()
Label1.Caption = ""
Text1.Text = ""
Label1.FontSize = 20
Text1.FontSize = 20
End Sub

vb编写一计算机自动出题并判断对错的程序~

程序在附件中，望采纳！

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