用vb语言编一个实现计算器功能的程序

来源：百度知道 编辑：UC知道 时间：2024/05/14 07:26:22
不用很复杂的，只要能实现一般的加减乘除就行了．急啊！！
高手请多帮忙

Dim num1, num2 As Double
Dim a1, a2, a3 As Integer

Private Sub comadd_Click()
a2 = 1
If a3 = 0 Then
num2 = num1
End If
a1 = 10
labdis.Caption = ""
comadd.Enabled = False
comsub.Enabled = False
commul.Enabled = False
comdiv.Enabled = False
compoi.Enabled = False
num1 = 0
a3 = 0
End Sub

Private Sub comcls_Click()
num1 = 0
num2 = 0
a1 = 10
a2 = 0
a3 = 0
labdis.Caption = ""
comadd.Enabled = False
comsub.Enabled = False
commul.Enabled = False
comdiv.Enabled = False
compoi.Enabled = False
End Sub

Private Sub comdiv_Click()
a2 = 4
If a3 = 0 Then
num2 = num1
End If
a1 = 10
labdis.Caption = ""
comadd.Enabled = False
comsub.Enabled = False
commul.Enabled = False
comdiv.Enabled = False
compoi.Enabled = False
num1 = 0
a3 = 0
End Su