If Integer.TryParse(TextBox1.Text, i) ThenMsgBox(i)ElseMsgBox("出错")EndEnd Sub在 System.InvalidCastException 中第一次偶然出现的“Microsoft.VisualBasic.dll”类型的异常 在 System.InvalidCastException 中第一次偶然出现的“Microsoft.VisualBasic.dll”类型的异常 在 System.ArgumentOutOfRangeException 中第一次偶然出现的“System.Windows.Forms.dll”类型的异常 在 System.InvalidCastException 中第一次偶然出现的“Microsoft.VisualBasic.dll”类型的异常