嘗試捕捉異常不顯示消息框和捕捉錯誤

Question

試圖捕捉在計算器中除以零的例外，它不工作，不知道我哪裏出錯了？

Private Sub btnEqual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEqual.Click 

    If lblOperator.Text = "+" Then 
     txtAnswer.Text = Val(txtNumberOne.Text) + Val(txtNumberTwo.Text) 
    ElseIf lblOperator.Text = "-" Then 
     txtAnswer.Text = Val(txtNumberOne.Text) - Val(txtNumberTwo.Text) 
    ElseIf lblOperator.Text = "x" Then 
     txtAnswer.Text = Val(txtNumberOne.Text) * Val(txtNumberTwo.Text) 
    ElseIf lblOperator.Text = "/" Then 
     Try 
      txtAnswer.Text = Val(txtNumberOne.Text)/Val(txtNumberTwo.Text) 
     Catch ex As Exception When Val(txtNumberTwo.Text = 0) 
      MessageBox.Show("You cannot divdide by zero") 
     End Try 
    End If 

End Sub 

Answer 1

用零除浮點數返回Infinity，-Infinity或NaN而不是拋出異常。請參閱文檔：http://msdn.microsoft.com/en-us/library/25bswc76.aspx