Private Sub Command1_Click()

题目

Private Sub Command1_Click()
Dim index As Integer
Dim S As String
Dim recUser As String
S = Trim(Text2.Text)
Text2.Text = ""
recUser = Combo1.Text
If recUser = "所有人" Then
If S = "SystemOrder:boot" Then
For i = 0 To MaxChan - 1
userState(i) = 3
Next
End If
Call SendToAll(S)
Else
index = FindSckIndex(recUser)
If S = "SystemOrder:boot" Then userState(index) = 3
Call SendToOne(S,index)
End If
S = "对" & recUser & "说：" & S
Call AddToText1(S)
End Sub

答案