请教一个VB的问题

ICBCSyd

要写个VB的程序，从服务器端收取数据并且以十进制的方式显示在屏幕上。

服务器上的数据是FF FD 2A

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim arrival() As Byte, i As Long, s As String
    ReDim arrival(bytesTotal - 1) As Byte
    Winsock1.GetData arrival, vbByte, bytesTotal
    s = Text1.Text
      For i = 0 To bytesTotal
          s = s & "," & CStr(arrival(i))  <==这句有问题
      Next
    Text1.Text = s
End Sub

请指正。

duke_yang

我以为是Victoria Bitter

ICBCSyd

desiderata

不懂vb，呵呵
首先，数组下标可能有问题。数组声明bytesTotal - 1， 下标却可以引用到bytesTotal，这里会越界
其次，调试来说，既然已经知道了服务器数据，不如在arrival数组里面直接手工指定值，看看显示什么，例如
arrival(0)=&HFF
arrival(1)=&HFD
...

Backpacker

原帖由 duke_yang 于 19-9-2011 18:29 发表

                               
登录/注册后可看大图

我以为是Victoria Bitter

Me too)