请问 如何用VB 编辑一个 能确认帐号密码是否错误和正确的登陆界面？

我很急 喜欢能在这找到答案。。我是一只菜鸟

看来没人告诉我了

能不能给我完整的代码做个示范

求求您了~~ 我现在正在学习编辑代码

非常感谢我明白了~~ 但是这样的代码只能实现一个帐号和密码的正确判断

如我想判断多个帐号密码 怎么填加代码格式？

非常感谢得到你们的帮助

还在吗 请把
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

完整的做一个代码给我
我编辑了 老说不区配

还在吗 请把




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





完整的做一个代码给我
我编辑了 老说不区配

还在吗管理员  请帮帮忙谢谢了

斑竹在吗 请帮帮忙
你给的上面那段代码我这样做了 说不区配

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

快给我答复吧 我很急