Question

vb串口通信用于接收数据的数组无法重新定义

Private Sub MSComm1_OnComm()
Dim a%, k%, i%
Dim buf() As Byte
Select Case MSComm1.CommEvent
Case comEvReceive
k = MSComm1.InBufferCount
Print "k="; k
' ReDim buf(1 to k) As Byte
buf = MSComm1.Input
Print "UBound(buf)="; UBound(buf)
Print "lBound(buf)="; LBound(buf)
部分程序如图所示 无论redim部分如何更改 打印出来的 LBound(buf)始终等于0，UBound(buf)等于接收到的字节数减一。求解

Answer 1

串口接收缓冲区到达的是由Byte字节流组成的Variant。先到达的字节下标自然是0，最后到达的字节下标自然是到达字节长度减1。这都是MsComm控件内规定的。LZ就照着用就是了。

Answer 2

ReDim buf(1 to k) 这是什么语法???

数组0起始,有什么问题吗???

追问

想让buf数组的下标从一开始，我使用option base 1也不行。从0开始没问题，只是好奇为什么在这个地方不能从1开始，其他的数组测试却可以，莫非真是MsComm控件内规定的？

Answer 3

K 取值有 数据决定

最小可能取值多少？ 莫非为 0？