求救！照书编的计算器‘=’号按了没用，没结果显示的

Question

某人发天书了
大家都急了偷笑ing...

Answer 1

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 SubPrivate 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 SubPrivate Sub cmdClear_Click()
   txtOutput.Text = ""
   pointsym = False
End SubPrivate 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

Answer 2

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