在VB中读写二进制文件可通过以下两种主要方式实现： 低级文件操作（如`Open`语句）和 高级类库操作（如`FileStream`、`BinaryReader`和`BinaryWriter`）。以下是具体方法及示例：
一、低级文件操作（推荐用于复杂场景）
使用`Open`语句直接对文件进行读写操作，需手动管理文件流和读写位置。
1. 写入二进制数据
```vb
Dim filePath As String = "example.bin"
Dim data() As Byte = { &H01, &H02, &H03, &H04 }
' 以覆盖模式创建文件
Open filePath For Output As 1
For i As Integer = LBound(data) To UBound(data)
Write 1, data(i)
Next i
Close 1
```
2. 读取二进制数据
```vb
Dim filePath As String = "example.bin"
Dim buffer(1 To 4) As Byte
' 从文件读取数据到缓冲区
Open filePath For Input As 1
For i As Integer = 1 To 4
buffer(i) = Read 1
Next i
Close 1
' 输出读取的数据
Debug.Print "读取的数据: " & Hex(buffer(1)) & ", " & Hex(buffer(2)) & ", " & Hex(buffer(3)) & ", " & Hex(buffer(4))
```
二、高级类库操作（推荐用于通用场景）
使用`FileStream`结合`BinaryReader`和`BinaryWriter`简化读写操作，提供更丰富的功能（如加密、定位读写等）。
1. 写入二进制数据
```vb
imports System.IO
Dim filePath As String = "example.bin"
Dim data() As Byte = { &H01, &H02, &H03, &H04 }
' 使用FileStream写入数据（覆盖模式）
Using fs As New FileStream(filePath, FileMode.Create)
Using writer As New BinaryWriter(fs)
writer.Write(data, 0, data.Length)
End Using
End Using
```
2. 读取二进制数据
```vb
imports System.IO
Dim filePath As String = "example.bin"
Dim buffer(1 To 4) As Byte
' 使用FileStream读取数据
Using fs As New FileStream(filePath, FileMode.Open)
Using reader As New BinaryReader(fs)
reader.Read(buffer, 0, buffer.Length)
End Using
End Using
' 输出读取的数据
Debug.Print "读取的数据: " & Hex(buffer(1)) & ", " & Hex(buffer(2)) & ", " & Hex(buffer(3)) & ", " & Hex(buffer(4))
```
三、注意事项
文件模式：
读写二进制文件需使用`Binary`模式（`Open`语句的`mode`参数设为`Binary`）。
资源管理：
使用`Using`语句自动关闭文件流，避免资源泄漏。
数据对齐：
二进制文件需注意数据对齐问题，建议使用`FileStream`的`Seek`方法定位读写位置。
四、扩展应用
加密解密：通过`BinaryWriter`写入加密数据，使用`BinaryReader`读取后解密。
文件合并/拆分：可先读取多个文件内容合并到一个新文件，或从合并文件中拆分原始数据。
以上方法可根据具体需求选择使用，建议优先采用高级类库操作以简化代码并提升可维护性。