Question

VB6.0写一个服务器给多个客户端通信的程序，我的代码为什么只能给一个客户端发送信息，哪里有问题？

intMax是客户连接服务器的数量
Private Sub Command1_Click()
Text1.Text = intMax
Dim i As Integer
For i = 1 To intMax
'Sleep 500 '延时500毫秒
sckServer(i).SendData TextSend.Text
Text2.Text = Text2.Text & i & vbCrLf
Next
End Sub

Answer 1

Text1.Text = intMax
你这行的实际意思究竟是把变量intMax的值在Text1中显示出来，还是把Text1的值赋值给变量intMax？按照正常的理解，应该后一种才合理吧？那么就应该这样：
intMax = Val(Text1.Text)