您好, 请您提供未显示的问题或者回答的大概内容,发贴ID,发贴时间, 我们根据您所提供的相关信息核实处理.

发贴内容如下:
Option Explicit
 Dim sj As String
 Dim i As Integer
 Dim sendSj() As Byte
Private Sub Command1_Click()
 ReDim sendSj(Len(sj) / 2 - 1)
 For i = 1 To Len(sj) Step 2
 sendSj((i - 1) / 2) = Val("&H" & Mid(sj, i, 2))
 Next
 MSComm1.Output = sendSj
End Sub
Private Sub Form_Load()
 MSComm1.Settings = "9600,n,8,1"
 MSComm1.CommPort = 1
 MSComm1.PortOpen = True
 sj = "1234567890FF"
 Text1 = sj
End Sub

请刷新查看。

发贴时间:
2009-04--17
约20:00左右.

5分钟内问题解决,谢谢!

请看4楼