VB 简单计算器

Option Explicit
Dim potflag As Integer      '标识是否用小数点
Dim numcol As Integer       ' 点击运算符的个数
Dim LastInput               ' 指示上一次操作的内容
Dim colflag                 'numcol为1时，保存运算符
Dim temp1, temp2            '分别保存运算符两端的运算数
 
Private Sub CmdCel_Click()     '重新开始计算按钮，个计量数和标识初始化
    Res = Format(0, "0.")
    temp1 = 0
    temp2 = 0
    numcol = 0
    potflag = False
    LastInput = "cel"   '标识此操作为"cel"
End Sub
Private Sub CmdPot_Click()  '使用小数点
    If LastInput <> "num" Then
        Res = Format(0, "0.")
    ElseIf String(1, Res) = "-" Then
        Res = Format(0, "-0.")
End If 
potflag = True
    LastInput = "num"   '标识此操作为"num"
End Sub
 
Private Sub Cmdsign_Click()     '使用正负号
    If String(1, Res) <> "-" Then   '如果当前是正数添加负号
        Res = "-" & Res
    Else: Res = Right(Res, Len(Res) - 1)  '如果当前是证号，取消负号
End If 
LastInput = "num"   '标识此操作为"num"
End Sub
Private Sub ComCol_Click(Index As Integer)  '点击操作符，可进行连续运算
    numcol = numcol + 1     '通过numcol标识点击运算符的次数
    If numcol = 1 Then  '当前数为操作符左侧运算数时，记录当前操作数
        temp1 = Res
  &