變量聲稱作用於問題

Question

Private Sub Form_Load()
    If (1 = 2) Then
        Dim str As String
        Debug.Print False
    End If
    If (1 = 1) Then
        Dim str As String
        Debug.Print True
    End If
    
End Sub為什麼提示str重複申明

Answer 1

Private Sub Form_Load()
  If (1 = 2) Then
  Dim str As String
  Debug.Print False
  End If
  If (1 = 1) Then
  Dim str As String
  Debug.Print True
  End If
    
End Sub

Answer 2

Private Sub Form_Load()
  Dim str As String
  If (1 = 2) Then
  Debug.Print False
  End If
  If (1 = 1) Then
  Debug.Print True
  End If
End Sub