Dim Sent As String ' Sent = "123456789" If (CH375Writedata(USB_INDEX, Sent, 9)) Then '发送成功 If (iLength <> 9) Then End If Else ' 写操作失败 End If 这是个VB写的调试程序，下位机接收总个数是对的 ，但接收的数据内容不对不是“123456789" 是乱码。VC例程中上下接收是正确。是不是VB提供的CH375Writedata不对

Sent不应该定义成String,参考CH372EVT.ZIP里面的VB例子.CH375Writedata第3个变量必须是个变量，不能写立即数！ iLength = 9 If (CH375Writedata(USB_INDEX, Sent, iLength )) Then '发送成功 If (iLength <> 9) Then End If Else ' 写操作失败 End If