Private Sub Command1_Click()If IsNumeric(Text1) And IsNumeric(Text2) ThenLabel1 = "正序:" & Text1 & " " & Text2 & vbCrLf & _"倒序:" & Text2 & " " & Text1ElseMsgBox "文本框里必须输入数字"End IfEnd Sub