我把收到的15字节数据,打印出来,为什么全是0呢?　计算结果strData也是零,到底是我的VB程序有问题还是怎么什么问题啊,请大虾指教啊!!!
　部份代码如下:
　Option Explicit
　Dim jsdata(0 To 14) As Byte '用于存放单片机发来15个字节的数据
   Private Sub sckClient_DataArrival(ByVal bytesTotal As Long)
           Dim i as byte '用于控制输出　　　　　　　　　　　　　　　　　　　　　　　　　
　　　Dim strData As Single '存放计算后的结果　　　　         
　　　
　　　sckClient.GetData jsData '接收15个字节的数据,还在在数组中
           strData = jsData(1) * 256 + jsData(0) '我只需要前2个字节数据
           Text1.Text = strData '将结果赋给文本框
 　　　for i = 0 To 14
                   Print jsData(i) '循环输出
           Next i
End Sub

先不用你的程序来接收数据，
先找一个成熟的第三方的测试程序来接收，看到底问题出在单片机本身还是什么地方。wireshark可以分析网络数据包