Private Sub Form_Activate()
Randomize
数1.Text = Int(Rnd * 90) + 10
数2.Text = Int(Rnd * 90) + 10
End Sub
Private Sub 乘_Click()
计算结果.Text = CInt(数1.Text) * CInt(数2.Text)
运算符号.Caption = "×"
End Sub
Private Sub 乘方_Click()
计算结果.Text = CInt(数1.Text) ^ CInt(数2.Text)
运算符号.Caption = "∧"
End Sub
Private Sub 除_Click()
计算结果.Text = CInt(数1.Text) / CInt(数2.Text)
运算符号.Caption = "÷"
End Sub
Private Sub 加_Click()
计算结果.Text = CInt(数1.Text) + CInt(数2.Text)
运算符号.Caption = "＋"
End Sub
Private Sub 减_Click()
计算结果.Text = CInt(数1.Text) - CInt(数2.Text)
运算符号.Caption = "－"
End Sub
Private Sub 清除_Click()
数1.Text = "": 数2.Text = ""
计算结果.Text = ""
End Sub
Private Sub 取模_Click()
计算结果.Text = CInt(数1.Text) Mod CInt(数2.Text)
运算符号.Caption = "Mod"
End Sub
Private Sub 数1_Change()
数2.SetFocus
End Sub
Private Sub 数2_Change()
数1.SetFocus
End Sub
Private Sub 退出_Click()
End
End Sub
Private Sub 整除_Click()
计算结果.Text = CInt(数1.Text) \ CInt(数2.Text)
运算符号.Caption = "\"
End Sub
Private Sub 重新_Click()
Randomize
数1.Text = Int(Rnd * 90) + 10: 数2.Text = Int(Rnd * 90) + 10
End Sub