书上估计是用的定时器接收，窗体上拖MSComm1，Timer1，Text1控件各一个，并在属性设置好MSComm1的波特率，串口号，起始位，停止位等信息Dim str_dispaly As String '定义回显字符Private Sub Form_Load()Me.MSComm1.PortOpen = TrueMe.Timer1.Interval = 100 '定时器时间间隔Me.Timer1.Enabled = TrueEnd Sub Private Sub Timer1_Timer()If MSComm1.InBufferCount > 0 Then
str_dispaly = ...
