UC知道vb高手帮我看一下这里那边错了？
来源：百度知道 编辑：UC知道 时间：2024/06/07 05:37:55
Open "\用户信息.txt" For Append As #1
If Text2.Text <> Text3.Text Then
MsgBox "两次输入密码不相同!", vbDefaultButton1, "账号提醒"
Else
Dim a As String
Print #1, a
If a <> Text1.Text Then
Print #1, Text1.Text & Text2.Text
MsgBox "注册成功！账号：" & Text1.Text & "密码：" & Text2.Text, vbDefaultButton1, "恭喜!"
Else
MsgBox "已注册"
Close #1
End If
End If
电脑显示文件以打开？
谁能给个绝对正确答案！！！！！！！！！代码意思是：不能让text2和text3的文字相同，否则显示“密码不相同”也不能让要保存到的“\用户信息.txt”有他的信息，否则就显示“已注册”
整个流程和注册QQ、游戏号码，雷同啊啊啊啊啊！！！
If Text2.Text <> Text3.Text Then
MsgBox "两次输入密码不相同!", vbDefaultButton1, "账号提醒"
Else
Dim a As String
Print #1, a
If a <> Text1.Text Then
Print #1, Text1.Text & Text2.Text
MsgBox "注册成功！账号：" & Text1.Text & "密码：" & Text2.Text, vbDefaultButton1, "恭喜!"
Else
MsgBox "已注册"
Close #1
End If
End If
电脑显示文件以打开？
谁能给个绝对正确答案！！！！！！！！！代码意思是：不能让text2和text3的文字相同，否则显示“密码不相同”也不能让要保存到的“\用户信息.txt”有他的信息，否则就显示“已注册”
整个流程和注册QQ、游戏号码，雷同啊啊啊啊啊！！！
“不能让text2和text3的文字相同，否则显示“密码不相同””什么意思你？ 既然是注册text2 text3 是验证密码是否统一，为什么“不能让text2和text3的文字相同”？！矛盾么
If Text2.Text <> Text3.Text Then
MsgBox "两次输入密码不相同!", vbDefaultButton1, "账号提醒"
Else
Open "\用户信息.txt" For input As #1
Print #1, a
close #1
If a <> Text1.Text Then
Open "\用户信息.txt" For output As #1
Print #1, Text1.Text
Print #1, Text2.Text
close #1
MsgBox "注册成功！账号：" & Text1.Text & vbcrlf &"密码：" & Text2.Text, vbDefaultButton1, " 恭喜!"
Else
MsgBox "已注册"
text1=""
text2=""
text3=""
text1.setfocus
End If
End If
说明
1.用户信息.txt内容如下
user
paaword
2.程序没测试,时间太急了,自己试
少了一句
Close #1
每次打开之后，要关闭后才能再次打开。
2楼正确，另外别在程序运行期间打开“用户信息.txt”，最好的操作办法是把open放在最后，把赋值内容全部放入变量，在最后一起写入文件<