Private Sub cmdCalc_Click() If IsNumeric(txtValue1.Text) And IsNumeric(txtValue2.Text) Then txtResults.Text = CDbl(txtValue1.Text) + CDbl(txtValue2.Text) Else txtResults.Text = "非法数字" End If End Sub