Question

vb byte()型数组的使用

dim r() as byte
r="10001000"
那么ubound(r)的值应该是多少呢？
r(0)等值又应该是多少呢？
希望能详细说明啊

Answer 1

VB 6.0

dim r() as byte
r="10001000"

UBound(r) = 15
r(0) = 49
因为VB中 "10001000" 的每一个字符在r里占用两个byte，
所以r被定义位 (0 To 15)
"10001000" 中第一个 1，占用的是 r(0)，r(1)
"1" 的ASCII码是 49

Answer 2

ubound(r) 是16
r（0） 是你的第一位“1”的值，传值过程是asc码

Answer 3

这个语句表示把输入的字符串放到数组中，每个字符占两字节，所以数组的上限就是字符串长度*2-1，在这里是8*2-1＝15。
至于为什么r(0)是49，那是因为你定义的是字节型，因此只把相应字符的ASC码存入，又因为ASC码只占一字节，因此另一字节就为0。整个赋值的结果是：
49 0 48 0 48 0 48 0 49 0 48 0 48 0 48 0