If Form1.MSComm1.PortOpen = False Then
   Form1.MSComm1.PortOpen = True
   End If
   
   wr = Form1.Text1.Text
   
   B = 0
   For i = 1 To Len(wr)
       B = B Xor Asc(Mid(wr, i, 1))
   Next i
   B = Right("0" + Hex(B), 2)
   
   wr = wr + B + Chr(13)
   
   
   Form1.MSComm1.Output = wr
   
   Do
   dummy = DoEvents()
   Loop Until Form1.MSComm1.InBufferCount >= 9
   Form1.Text2.Text = wr
   
   fh = Form1.MSComm1.Input
   
   jc = Mid(fh, 1, 4)
   If jc = Chr(37) + "01" + Chr(36) Then
   x = MsgBox("写入正常")
   Else
   x = MsgBox("没有正确写入")
   End If
   请教哪位大虾，Do
   dummy = DoEvents()
   Loop Until Form1.MSComm1.InBufferCount >= 9 这里的DoEvents（）函数是做什么用的，好象它后面的语句Form1.Text2.Text = wr都没执行啊？很是迷茫！