四则运算代码

Dim a, q, e(1 To 4), k, i, s, h, t(1 To 9), u(1 To 9), v(1 To 9) As Integer, d As String, r, n As Double '定义变量

Public Sub Command1_Click()

form1.Cls '清屏

Label2.Caption = "": Label3.Caption = ""

i = 0: h = 0: n = Val(Text1.Text)

If n <= 0 Or n > 9 Then

MsgBox "请输入1to9之间的1个正整数"

Text1.Text = "": Text1.SetFocus '清空Text,光标在Text中闪烁

Else

For s = 1 To n

Randomize '生成随机数，如不加每次产生随机将相同

a = Int(Rnd * 101): q = Int(Rnd * 101): k = Int(Rnd * 4 + 1)

e(1) = "+": e(2) = "-": e(3) = "*": e(4) = "/"

t(s) = e(k): u(s) = a: v(s) = q: d = "="

Print a; t(s); q; d

Next s: End If: End Sub

Private Sub Command2_Click()

If i < s - 1 Then

i = i + 1

Select Case t(i)

Case "+"

If Text2.Text = u(i) + v(i) Then

MsgBox "计算正确": h = h + 1

Else

MsgBox "计算错误，正确答案是" & u(i) + v(i)

End If

Case "-"

If Text2.Text = u(i) - v(i) Then

MsgBox "计算正确": h = h + 1

Else

MsgBox "计算错误，正确答案是" & u(i) - v(i)

End If

Case "*"

If Text2.Text = u(i) * v(i) Then

MsgBox "计算正确": h = h + 1

Else

MsgBox "计算错误，正确答案是" & u(i) * v(i)

End If

Case "/"

r = Int(u(i) / v(i))

r = Int((u(i) / v(i) - r) * 100 + 0.5) / 100 + r '保留两位小数

If Text2.Text = r Then

MsgBox "计算正确": h = h + 1

Else

If r < 1 Then

MsgBox "计算错误，正确答案是0" & r

Else

MsgBox "计算错误，正确答案是" & r

End If: End If: End Select

Label2.Caption = "共答" & i & "道题，" & "答对" & h & "道题。" Label2.Refresh '清空Label

Text2.SetFocus

Else

MsgBox "题已答完,还要答题请输入题数"

Text1.Text = "": Text1.SetFocus

End If: Text2.Text = "": End Sub

Private Sub Command3_Click()

If i = s - 1 Then

Label3.Caption = Int(h / i * 100 + 0.5)

Else

MsgBox "题没答完"

Text2.Text = "": Text2.SetFocus: End If: End Sub

Private Sub Text1_Click()

Text1.Text = "": End Sub