vb  发送数据

Private Sub Command4_Click()
Dim outbte(1) As Byte
outbte(0) = Val(Text2.Text)
Call delay
outbte(1) = Val(Text3.Text)
MSComm1.OutBufferCount = 0 '...清空输出寄存器
MSComm1.Output = outbte
End Sub

单片机接收端


    uchar a;
    a=0;
    jieshou[a++]=SBUF;
    A=jieshou[1];
    BC=jieshou[0];

结果是接收到的数据是一样的，都是第一个数据，怎么办

不用了，已经解决。简单实用串行中断即可解决

void UART_Receive(void) interrupt 4
{
    uchar a;
   
    jieshou[a]=SBUF;
    RI = 0;
    a++;

        if(a>1)
        {
            a=0;
            A=jieshou[0];
            delay1(10);
            BC=jieshou[1];        
        }
        else
        {
               
            TI=0;
        }
   
}