Private Sub Command1_Click()
Dim strUsers(), strTemp(), i As Integer

strUsers = Split("用户名1|密码1,用户名2|密码2,用户名3|密码3", ",") '注意: 一定要是英文逗号(,)不是全角逗号(，)

strTemp = Filter(strUser, Text1.Text & "|" & Text2.Text) 'Filter 用来检测某个数据是否被数组的某(几)个元素所包含，它返回了一个数组

If UBound(strTemp) > -1 Then '有匹配的结果
'用户名和密码输入正确，登录成功
MsgBox "登录成功!", vbInformation
Else
'输入不正确，登录失败
MsgBox "登录失败!", vbExclamation
End If
End Sub

---------------------------------------------------------------------------------------------------------------------------------------------------
上面这一段代码是您给我的 请问 因为我是新手 能不能给我调试成一个完整无错的外码
上面这段代码我写入 说 不驱配

请回答好吗 我需要帮助

怎么这么久不给我答复啊 晕啊
怎么帮人帮到一半就不帮了

以下是经过验证的代码：

[QUOTE]Private Sub Command1_Click()
Dim strUsers, strTemp, i As Integer
strUsers = Split("用户名1|密码1,用户名2|密码2,用户名3|密码3", ",") '注意: 一定要是英文逗号(,)不是全角逗号(，)
strTemp = Filter(strUsers, Text1.Text & "|" & Text2.Text) 'Filter 用来检测某个数据是否被数组的某(几)个元素所包含，它返回了一个数组
If UBound(strTemp) > -1 Then '有匹配的结果
'用户名和密码输入正确，登录成功
MsgBox "登录成功!", vbInformation
Else
'输入不正确，登录失败
MsgBox "登录失败!", vbExclamation
End If
End Sub[/QUOTE]

我也在找leon2
可他就是不理我

就按照 griefforyou 版主的那样做，把 strUsers() 和 strTemp() 的括号去掉就行了。