荒原野草 

 谢谢,问题已经解决
Dim AB as integer
MSComm.Output = DoubleInt(AB)

Function DoubleInt(IntNum As Integer)
Dim Buffer As Variant
Dim V(0 To 1) As Byte

If IntNum >  = 0 Then
  V(0) = (IntNum \ 256)
  V(1) = (IntNum Mod 256)
ElseIf IntNum   < 0 And IntNum >   -256 Then
  V(0) = (255)
  V(1) = (256 - (-IntNum Mod 256))
Else
  V(0) = (255 - (-IntNum \ 256))
  V(1) = (256 - (-IntNum Mod 256))
End If

Buffer = V
DoubleInt = Buffer

End Function

发表时间:2003年6月17日14:46:08