在 VB 中将汉字转换为二进制数据，通常采用 Unicode 编码方式。以下是具体方法和示例代码：

一、基本思路

获取汉字的 Unicode 编码：

每个汉字在 Unicode 中对应一个唯一的数值（通常为 0x4E2D 到 0x9FFF 之间）。

转换为二进制表示：

将 Unicode 数值转换为二进制字符串，通常以 16 进制表示（每字节8位）。

二、实现方法

使用 `Asc` 函数获取 Unicode 码

`Asc` 函数返回字符的 Unicode 码值（如 "我" 的值为 22909）。

转换为二进制字符串

- 使用 `Format` 函数直接格式化输出，例如 `Format（Asc（"我"）, "08X"）` 生成 "11000001"。

- 使用 `StrConv` 函数将数值转换为二进制数组，再通过 `Join` 函数拼接成字符串。

固定长度处理

若需固定长度（如 16 进制表示），可在数值前补零。例如，"我" 的值为 22909，二进制表示为 11000001111101，可补零为 00011000 00011101。

三、示例代码

以下是完整的 VB 示例，展示如何将单个汉字转换为二进制字符串，并保存到文本文件中：

```vb

' 将单个汉字转换为16进制二进制字符串

Function汉字转二进制(汉字 As String) As String

Dim code As Integer

code = Asc(汉字)

' 转换为16进制并补零至8位

汉字转二进制 = Format(code, "08X")

' 转换为全二进制（16进制每组对应4位）

汉字转二进制 = Left(汉字转二进制, Len(汉字转二进制) * 4)

End Function

' 示例：转换 "我" 并显示

Sub 示例转换()

Dim 汉字 As String

Dim 二进制字符串 As String

汉字 = "我"

二进制字符串 = 汉字转二进制(汉字)

MsgBox 二进制字符串 ' 显示 11000001111101

End Sub

' 将字符串数组转换为二进制文件

Sub 保存为二进制文件()

Dim 文本框 As TextBox

Dim 二进制字符串 As String

Set 文本框 = Me.Textboxes(0) ' 假设有一个文本框输入字符串

Dim 数组() As Byte

Dim i As Integer

' 将每个字符转换为8位二进制

ReDim 数组(Len(文本框.Text))

For i = 1 To Len(文本框.Text)

数组(i) = Asc(Mid(文本框.Text, i, 1)) And &HFF

Next i

' 转换为16进制字符串

二进制字符串 = Join(Format(数组(i), "02X") & " "c, 1 To UBound 数组)

' 写入文件

Open "输出文件.bin" For Output As 1

Print 1, 二进制字符串

Close 1

End Sub

```

四、注意事项

编码问题：

确保文件保存为二进制模式（如 `.bin`），否则文本编辑器可能错误解释二进制数据。

字符范围：

上述方法适用于基本汉字（Unicode 范围）。若需处理扩展汉字（如生僻字），需使用 `StrConv` 函数指定 `vbUnicode` 编码。

通过以上方法，可灵活实现汉字与二进制数据的转换需求。