Private Sub Command1_Click() 
Dim out1 As String 
out1 = Chr(2) & "AB03" & Chr(3) 
MSComm1.Output = out1 
End Sub Private Sub Form_Load() 
MSComm1.PortOpen = True 
End Sub Private Sub MSComm1_OnComm() 
Dim mz As String 
Dim pz As String 
Dim jz As String 
Dim i As Integer 
Dim rfrom As Integer 
Dim rend As Integer 
Dim strtemp As String 
Dim strend As String 
If MSComm1.CommEvent = 2 Then 
rc = MSComm1.Input 
rc = Trim$(rc) 
If Len(rc) > 12 Then 
For i = 1 To Len(rc) 
strtemp = Mid$(rc, i, 1) 
If strtemp = Chr(2) Then 
rfrom = i 
End If 
If strtemp = Chr(3) Then 
rend = i 
If rend > rfrom Then 
strend = Mid$(rc, rfrom, rend - rfrom) 
'rc = StrConv(rc, vbUnicode) 
mz = Mid$(rc, 4, 4) 
pz = Mid$(rc, 8, 3) 
jz = mz & "." & pz 
Label2.Caption = jz 
End If 
End If 
Next i 
End If 
End If 
End Sub 
是一个采集地磅数据的程序,用232直接连接可以通讯,采用232转485就不行了,MSComm1.Output = out1执行后,就没反应了.请高手指教.....