呀..我来的真是时候.lz问的也是时候Private Sub Command1_Click() '注册Dim OldUserName, OName() As StringIf Text1.Text"" And Text2.Text"" Then '如果注册用户名与密码都不为空,则开始注册Open "C:\user.dat" For Input As #1 '读取已注册用户的账户文件,判断新注册用户名与已注册用户名是否重复Do Until EOF(1)Line Input #1, OldUserNameOName() = Split(OldUserName, ",")If OName(0) = Text1.