计算器算不出结果~代码好像没错~进来看看

Option Explicit
    Dim equalsym As Boolean
    Dim pointsym As Boolean
    Dim FirstNum As Double
    Dim ComputeType As String
    
Private Sub cmdAddPiture_Click()
    cdl.DialogTitle = "´ò¿ªÒ»·ùͼƬ"
    cdl.Action = 1
    picview.Picture = LoadPicture(cdl.FileName)
    picview.Visible = True
End Sub

Private Sub cmdNumber_Click(Index As Integer)
   If equalsym = True Then 'Èç¹ûÓÐËãʽ¸ÕËãÍ꣬ÐèÒªÒÔϲÙ×÷
      txtOutput.Text = ""    'Çå¿ÕÏÔʾ¿òÄڵĽá¹û
      equalsym = False '°Ñ±êʾ·ûequalsymµÄÖµ»¹Ô­
    End If
  txtOutput.Text = txtOutput.Text & Trim(Str(Index))
End Sub


Private Sub cmdCompute_Click(Index As Integer)
   FirstNum = Val(txtOutput.Text)
   txtOutput.Text = ""
   Select Case Index
      Case 0   '¼Ó·¨ÔËËã
          ComputeType = "add"
      Case 1   '¼õ·¨ÔËËã
          ComputeType = "subtraction"
      Case 2   '³Ë·¨ÔËËã
          ComputeType = "multiplication"
      Case 3   '³ý·¨ÔËËã
          ComputeType = "division"
    End Select
    equalsym = False '°Ñ±êʾ·û¡°equalsym¡±µÄÖµ»¹Ô­
    pointsym = False '°Ñ±êʾ·û¡°pointsym¡±µÄÖµ»¹Ô­
End Sub

Private Sub cmdPoint_Click()
    If pointsym = False Then
      If txtOutput.Text = "" Then txtOutput.Text = "0"
      txtOutput.Text = txtOutput.Text & "."
      pointsym = True
    End If
    
End Sub


Private Sub cmdNegative_Click()
     txtOutput.Text = Trim(Str(-Val(txtOutput.Text)))
End Sub

Private Sub cmdClear_Click()
   txtOutput.Text = ""
   pointsym = False
End Sub

Private Sub cmdEqual_Click()
    If equalsym = False Then
       Select Case ComputeType
            Case "Add"
               txtOutput.Text = Str(FirstNum + Val(txtOutput.Text))
            Case "Subtraction"
               txtOutput.Text = Str(FirstNum - Val(txtOutput.Text))
            Case "Multiplication"
               txtOutput.Text = Str(FirstNum * Val(txtOutput.Text))
            Case "Division"
               txtOutput.Text = Str(FirstNum / Val(txtOutput.Text))
        End Select
        equalsym = True
    End If
  pointsym = False
  End Sub

Private Sub Form_Load()
  equalsym = False
  pointsym = False
End Sub
和例子的一样，但是例子的=算的出结果。我的=算不到..按了没反应~ --------------------编程问答-------------------- 怎么有乱玛的??晕了~神啊.9958~!

补充：VB ,  基础类