利用控件mscomm与单片机通信，怎样将单片机传来的二进制树显示出来

[dspnew]

源代码如下
Private Sub Command1_Click()
Text1.Text = "" '清数据显示区

If MSComm1.PortOpen Then '关闭串行口

MSComm1.PortOpen = False

End If

MSComm1.RThreshold = 5

MSComm1.CommPort = 1

MSComm1.InputMode = comInputModeBinary
'设定Com1
MSComm1.InputLen = 0



MSComm1.Settings = "1200,n,8,1"

'9600波特率，无校验，8位数据位，1位停止位

MSComm1.PortOpen = True

'打开串口


MSComm1.OutBufferCount = 0

'清空发送缓冲区

MSComm1.InBufferCount = 0

'清空接收缓冲区


End Sub

Private Sub Form_Load()
strtemp = "" '清空接收数据串

End Sub

Private Sub MSComm1_OnComm()
dim buff as variant

Select Case MSComm1.CommEvent

Case comEvReceive

buffer= MSComm1.Input

Case Else

End Select
Text1.Text = buffer

End Sub

Private Sub Text1_Change()
'Text1.Text = buffer
End Sub

[FDZhong]

Private Sub MSComm1_OnComm()
dim buff as variant
Dim arr() as byte

Select Case MSComm1.CommEvent

Case comEvReceive

buffer= MSComm1.Input

Case Else

End Select
arr=buffer

Text1.Text = arr(0)
.
.
.
Text1.text=arr(x)



End Sub

添加一个