11.17VBA四则运算

Dim a, b, c

Private Sub cheng_Click()
fh.Caption = "×"
shu1.Text = ""
shu2.Text = ""
shu3.Text = ""
End Sub

Private Sub chu_Click()
fh.Caption = "÷"
shu1.Text = ""
shu2.Text = ""
shu3.Text = ""
End Sub

Private Sub chuti_Click()
Randomize
If jia.Value = True Then
    a = Int(Rnd * 10) + 1
    b = Int(Rnd * 10) + 1
    c = a + b
End If
If jian.Value = True Then
    c = Int(Rnd * 10) + 1
    b = Int(Rnd * 10) + 1
    a = c + b
End If
If cheng.Value = True Then
    a = Int(Rnd * 10) + 1
    b = Int(Rnd * 10) + 1
    c = a * b
End If
If chu.Value = True Then
    c = Int(Rnd * 10) + 1
    b = Int(Rnd * 10) + 1
    a = c * b
End If
shu1.Text = a
shu2.Text = b
shu3.Text = ""
chuti.Enabled = False
jiaojuan.Enabled = True
End Sub

Private Sub jia_Click()
fh.Caption = "＋"
shu1.Text = ""
shu2.Text = ""
shu3.Text = ""
End Sub

Private Sub jian_Click()
fh.Caption = "-"
shu1.Text = ""
shu2.Text = ""
shu3.Text = ""
End Sub

Private Sub jiaojuan_Click()
If c = Val(shu3.Text) Then
    shu1.Text = ""
    shu2.Text = ""
    shu3.Text = ""
    chuti.Enabled = True
    jiaojuan.Enabled = False
    MsgBox "对了！"
Else
    MsgBox "错了！"
End If
End Sub