还在吗管理员 请帮帮忙谢谢了
斑竹在吗 请帮帮忙
你给的上面那段代码我这样做了 说不区配
Private Sub Command1_Click()
Dim strUsers(), strTemp(), i As Integer
strUsers = Split("11|11,22|22,33|33", ",")
strTemp = Filter(strUser, Text1.Text & "|" & Text2.Text)
If UBound(strTemp) > -1 Then
'用户名和密码输入正确,登录成功
MsgBox "登录成功!", vbInformation
Else
'输入不正确,登录失败
MsgBox "登录失败!", vbExclamation
End If
End Sub