其实很简单，声明一个变量数组其类型为Byte。然后将你要的数据逐一赋值到这个数组，将MSComm控件串行模式属性：InputMode 设为 二进制模式，也就是值为1的那个，然后将这个变量数组输出到 OutPut 就行了。如：

dim DA(4) as Byte

DA(0)=&HAA

DA(1)=&HAA

DA(2)=&H04

DA(3)=&H02

DA(4)=.....

MSComm1.OutPut=DA()

*注意在VB中十六进制要用 &H 开头表示

发接为二进制发送，自然接收也是一样的，所以接收的也应该是一个Byte类型的不定变量数组，接收后可用 Ubound 语句来获取字节数，接收的数据以 变量(下标) 形式取得，不能将数组直接赋值于一个变量或控件的字符属性中。如：

Dim AD() As Byte

Dim Ik As Long

AD=MSComm.Input

For Ik=0 To Ubound(AD)

Text1.text=text1.text & Chr(AD(Ik))

Next