第 1 步：声明变量

　　第一步是声明必要的变量。在这种情况下，我们将声明一个变量来保存端口号，以及特定应用程序可能需要的任何其他变量。端口号变量应该是整数类型。

　　将 PortNumber 调暗为整数

　　第 2 步：提示用户输入端口号

　　接下来，我们将提示用户输入他们希望连接的服务器的端口号。这可以使用简单的消息框或输入框来完成。

　　PortNumber = InputBox("请输入服务器端口号：")

　　第 3 步：验证端口号

　　从用户那里获得端口号后，重要的是要验证它是一个有效的端口号。端口号通常介于 1 到 65535 之间。如果用户输入的数字超出此范围，我们可以显示错误消息并提示他们输入有效的端口号。

　　If PortNumber < 1 Or PortNumber > 65535 Then MsgBox("无效端口号。请输入 1 到 65535 之间的数字。") PortNumber = InputBox("请输入服务器端口号：") End If

　　第 4 步：在应用程序中使用端口号

　　一旦获得并验证了端口号，就可以在应用程序中使用它与服务器建立连接。执行此操作的具体方法将取决于应用程序，但通常涉及在连接字符串或其他类似结构中使用端口号。

　　例如，在通过 TCP/IP 连接到服务器的简单 VB 程序中，可以使用以下代码使用用户输入的端口号建立连接：

　　将客户端调暗为新的 TcpClient() client.Connect("servername", PortNumber)

　　在此示例中，“servername”将替换为正在连接的服务器的名称或 IP 地址。