发表于：2006/11/21 8:18:00
#10楼
发送不确定的数组
Dim OutByte() As Byte
ReDim OutByte(5) ；有效数字最大为255
OutByte(0) = 0
OutByte(1) = 1
OutByte(2) = 2
OutByte(3) = 65 'A
OutByte(4) = 66 'B
OutByte(5) = 67 'C
MSComm1.Output = OutByte
Dim OutByte() As Byte
ReDim OutByte(5) ；有效数字最大为255
OutByte(0) = 0
OutByte(1) = 1
OutByte(2) = 2
OutByte(3) = 65 'A
OutByte(4) = 66 'B
OutByte(5) = 67 'C
MSComm1.Output = OutByte