在 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`，但需确保后续数据结构兼容性。