这个不是完整的代码,里面有好几个函数都没有定义,貌似一个通信程序,有没有完整的……看看就可以知道了Dim Hig As LongDim con As IntegerDim userIP() As StringDim user() As String'在线名单Dim userState() As Integer '-1 请求退出0 离线1 正常在线2 只能看不能发言 3 正在被踢 4 客户端非正常终止Dim zxrs As Integer '在线人数Private Sub Command1_Click()Dim index As IntegerDim S As StringDim recUser As StringS = Trim(Text2.Text)Text2.Text = ""recUser = Combo1.TextIf recUser = "所有人" ThenIf S = "SystemOrder:boot" ThenFor i = 0 To MaxChan - 1userState(i) = 3NextEnd IfCall SendToAll(S)'这里调用函数发送给所有用户Elseindex = FindSckIndex(recUser)If S = "SystemOrder:boot" Then userState(index) = 3'踢掉用户Call SendToOne(S, index)End IfS = "对" & recUser & "说：" & SCall AddToText1(S)'私聊End Sub你还有哪里不清楚S = "SystemOrder:boot" 是判断什么呢？userState(i) = 3’为什么等于三呢？ FindSckIndex（）这个函数是做什么的？ 嘿嘿 虽然很多 但是诚心想知道 谢谢呀~其实你第二次发的代码加上去也不全，S= "SystemOrder:boot"判断系统命令的状态，这个是作者自己定义的，Dim userState() As Integer '-1 请求退出0 离线1 正常在线2 只能看不能发言 3 正在被踢 4 客户端非正常终止……我们就知道userState(i) 可以等于-1，0,1，2，,3,，4而且意义是对应的 FindSckIndex（）这个是判断用户的希望能帮到你