求大神看看这个程序问题在哪里。关于VB和单片机通信，VB的一个text接收显示单片机发的数字
上位机VB中的部分程序：Private Sub Command1_Click()
= 4
MSComm1.Settings = "4800,n,8,1"
MSComm1.InputMode = 0
MSComm1.PortOpen = True
Timer1.Enabled = True
End Sub
Timer1_Timer()
Dim buf$
buf = Trim(MSComm1.Input)
Text1.Text = val(buf)
End Sub
单片机中的程序：
#include<reg51.h>
unsigned code tab[10]={'0','1','2','3','4','5','6','7','8','9',};
void StartUART(void)
{
SCON=0x50;
TMOD=0x20;
TH1=0xB8;
TL1=0xB8;
PCON=0x7F;
TR1=1;
}
void DELAY_MS(unsigned int a)
{
unsigned inti;
while(--a!0){
for(i=0;i<125;i++);
}}
void main (void)
{
StartUART();
SBUF=tab[1];
DELAY_MS(20);
SBUF=tab[2];
DELAY_MS(20);
SBUF=tab[3];
DELAY_MS(20);
}
