Question

如何写VB的登录框的程序，要求是多用户登录的登陆框，应该如何写啊

Answer 1

若数量较多的话，就可从文本里读取，若少的即不用修改的，就直接保存在程序里，
你想要的是哪种？

追问

那你可以两种都给我写一下吗，麻烦你了啊

追答

这是内置版
dim a（1 to 2)
Private Sub Command1_Click()
For i = 1 To 2
If Split(a(i), " ")(0) = Text1 And Split(a(i), " ")(1) = Text2 Then
MsgBox "正确"
Exit Sub
End If
Next
MsgBox "错误"

End Sub

Private Sub Form_Load()
a(1) = "甲 123"
a(2) = "已 456"
End Sub
这是外置版
账户.txt保存在程序目录下
格式为（账户与密码间空一格
账户1 密码1
账户2 密码2
代码
Dim A()

Private Sub Command1_Click()
For i = 1 To UBound(A)
If Split(A(i), " ")(0) = Text1 And Split(A(i), " ")(1) = Text2 Then
MsgBox "正确"
Exit Sub
End If
Next
MsgBox "错误"

End Sub

Private Sub Form_Load()
Open App.Path & "/账户.txt" For Input As #1
Do Until EOF(1)
n = n + 1
ReDim Preserve A(n)
Line Input #1, A(n)
Loop
End Sub

追问

账户.txt保存在程序目录下，这个应该如何写啊，怎么保存在程序目录下啊，我不太懂啊，
还有Open App.Path & "/账户.txt" For Input As #1这句话是什么意思啊

追答

不好意思Open App.Path & "/账户.txt" For Input As #1应该为Open App.Path & "\账户.txt" For Input As #1
那斜杠我打错了，这句意思为打开账户.txt文件
至于那个txt
你在工程所在的目录下新建一个txt文件
格式为（账户与密码间空一格
账户1 密码1
账户2 密码2
保存即可