vb編寫壹個能隨機出題的100以內的加減乘除口算運算器，可以隨即加減、乘除運算。

Option Explicit

Dim myre As Integer

Private Sub Command1_Click()

If Val(Text1.Text) = myre Then MsgBox "對!", , "結果" Else MsgBox "錯!", , "結果"

zhzsucyg

Text1.SetFocus

End Sub

Private Sub Form_Load()

Command1.Caption = "下壹題"

zhzsucyg

End Sub

Private Sub zhzsucyg()

Dim myA As Integer, myB As Integer, myOp As Integer

Randomize (Timer)

myA = Int(Rnd * 101)

myB = Int(Rnd * 101)

myOp = Int(Rnd * 4) + 1

Text1.Text = ""

Label1.Caption = ""

Select Case myOp

Case 1

Label1.Caption = myA & "+" & myB & "="

myre = myA + myB

Case 2

Label1.Caption = myA & "-" & myB & "="

myre = myA - myB

Case 3

Label1.Caption = myA & "×" & myB & "="

myre = myA * myB

Case 4

Label1.Caption = myA & "÷" & myB & "="

myre = myA / myB

End Select

End Sub