这是一个用VB作的计算器程序，我有点不明白急急急！！！

主要是a1,a2,a3的算法不明白，希望多多指教因为过长，把NUM1到9的代码删掉了
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

这是一个用VB作的计算器程序，我有点不明白急急急！！！ 用VB编一个简单的计算器程序 用vb语言编一个实现计算器功能的程序 用vb编写计算器的代码程序 用VB编写一个和Windows里的计算器差不多的程序? 用vb做一个计算器 有VB可不可以作计算器，老师说用vb做的所见即所得，看不见的也得不到？ 怎样用VB编写简单的计算器程序？？ 制作计算器的VB小程序 知道用 VB 程序怎么做计算器?