在 VB 中覆盖二进制记录可以通过以下步骤实现：
一、覆盖已有二进制文件
以覆盖模式打开文件 使用 `Open` 语句以二进制写模式（`1`）打开文件，并设置参数 `For Append As False` 以覆盖原有内容。
```vb
Open App.Path & "save.dat" For Output As 1
```
若文件为只读，需先通过属性设置取消只读属性（右键文件属性取消勾选“只读”）。
写入新数据
使用 `Put 1, user（i）` 将结构体数组的每个元素写入文件，按顺序覆盖原有记录。
关闭文件
使用 `Close 1` 关闭文件句柄。
二、示例代码
以下是一个完整的示例，展示如何将结构体数组保存到二进制文件并覆盖原有内容：
```vb
Option Explicit
' 定义结构体类型
Private Type typUser
uid As Long
uName As String * 10
uPWD As String * 10
End Type
Dim user(10) As typUser
Private Sub SaveToBinaryFile()
Dim strFileName As String
strFileName = App.Path & "save.dat" ' 指定文件路径
' 以覆盖模式打开文件
Open strFileName For Output As 1
For i = LBound(user) To UBound(user)
Put 1, user(i) ' 写入结构体数据
Next i
Close 1 ' 关闭文件
End Sub
Private Sub LoadFromBinaryFile()
Dim strFileName As String
strFileName = App.Path & "save.dat"
' 以读模式打开文件
Open strFileName For Input As 1
Dim len As Long
len = Len(user(0)) ' 获取第一个结构体的长度
For i = LBound(user) To UBound(user)
Get 1, i + 1, len ' 读取结构体数据
Next i
Close 1 ' 关闭文件
End Sub
Private Sub Form_Load()
' 示例：填充数据并保存
Dim i As Integer
For i = LBound(user) To UBound(user)
user(i).uid = i
user(i).uName = "User" & i
user(i).uPWD = "Pass" & i
Next i
SaveToBinaryFile
' 示例：加载数据并显示
LoadFromBinaryFile
For i = LBound(user) To UBound(user)
MsgBox "UID: " & user(i).uid & ", Name: " & Left(user(i).uName, 10)
Next i
End Sub
```
三、注意事项
文件路径：
确保文件路径正确，若需保存到其他目录，使用 `SaveAs` 方法并选择目标路径。
数据对齐：
结构体字段需按固定长度或对齐方式存储，避免数据损坏。
异常处理：
建议添加错误处理机制（如 `On Error` 语句）以应对文件读写错误。
通过以上方法，可安全覆盖二进制文件中的记录。若需追加数据，可将 `For Output As 1` 改为 `For Append As 1`，但需确保后续数据结构兼容性。