leon2 请进~
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
---------------------------------------------------------------------------------------------------------------------------------------------------
上面这一段代码是您给我的 请问 因为我是新手 能不能给我调试成一个完整无错的外码
上面这段代码我写入 说 不驱配