Private Type user
 name As String * 8
 psd As String * 6
End Type
Dim s As user

Private Sub Command1_Click()
Dim i As Integer
Open "c:\user.dat" For Random As #1 Len = Len(s)
 For i = 1 To LOF(1) / Len(s)
  Get #1, i, s
  If s.name = Text1.Text And Text2.Text = Text3.Text Then
     s.psd = Text2.Text
     Put #1, i, s
  Else
    MsgBox "请重新输入密码！"
   End If
Next
  chpsd.Hide
  
End Sub
一直写不进去，请高手指教！

If Trim(s.name) = Text1.Text And Text2.Text = Text3.Text Then

版主 仍然不行啊

你写完文件后，把文件关闭了吗？

随机文件有缓存的，需要关闭文件才真正把内容写进去。否则就还是在 WINDOWS 的内存中，程序结束时（不记得包不包括 END 命令），文件会被自动关闭。

关了文件还是不行哪

那只能追踪调试了，
在 写入 命令上下断点，然后当你执行修改时，
如果没有执行到写入命令 ，那么就去检查逻辑代码，
如果执行到写入命令，那么就去检查写入的内容。

程序保存不了，一般就是出这二个方面的问题。

其它代码