PrivateSubCommand1_Click()List1.ClearIfText2.Text=""OrText3.Text=""ThenMsgBox"没有端口扫什么扫啊！"&vbCrLf&"输入从1到65535的端口号。",0+48,"端口号不能为空！"ElseIfText2.Text>"65535"OrText3.Text>"65535"ThenMsgBox"没有这么大的端口号的！"&