Private Sub MSComm1_OnComm() Static num As Integer Dim Buffer As Variant Dim Arr() As Byte receive_cnt = MSComm1.InBufferCount '接收缓冲区的字节数 Buffer = MSComm1.Input Arr = Buffer indate = Val(Arr(0)) '收到的二进制数转换成十进制数 If num = 0 Then Text2.Text = indate ElseIf num = 1 Then Text3.Text = indate End If num = mum + 1 If num = 2 Then num = 0 End If End Sub 我下位机上传两个数据，TEXT2显示第一个数据，TEXT3显示第二个数据。现在，第一次上传的数据显示正常。但是下来显示的数据都在TEXT3中显示是什么问题我从来没玩过 帮顶 谢谢。成功了。我想问一下我的程序为什么会出项那样的问题
比较你我代码的差异.主要是 IF ELSEIF END IF 判断的条件作了改变. Private Sub MSComm1_OnComm() Static num As Integer Static indate0 As Integer Static indate1 As Integer Static wendua As Single Dim Buffer As Variant Dim Arr() As Byte Select Case MSComm1.CommEvent Case comEvReceive
