我把程序做了修改,可是还是不能实现通讯,再帮我看看好吗?
NETWORK 1 //网络题目 (单行)

LD SM0.0
MOVB 9, SMB30
MOVB 16#E4, SMB87
MOVB 36, SMB88
MOVB 35, SMB89
MOVW +1000, SMW92
MOVB 35, SMB94
RCV VB100, 0

NETWORK 2
LD SM0.0
ATCH INT_0, 23


VB端:
Private Sub Form_Load()
Dim a$(10)
With MSComm1
.CommPort = 2
.Settings = "9600,n,8,1"
.OutBufferCount = 0
.InBufferCount = 0
.InputLen = 0
.RThreshold = 1
.PortOpen = True
End With
Text1.Text = ""
a$(1) = "$"
a$(10) = "#"
For x = 2 To 9
a$(x) = "1"
Next x
End Sub

Private Sub MSComm1_OnComm()
If MSComm1.Output = "#" Then Text1.Text = "Success"
End Sub

Private Sub Send_Click()
For x = 1 To 10
MSComm1.Output = a$(x)
Next x
End Sub