vb随机产生从0到数组的下标上界的数字i怎样编?

int(rnd*(ubound(arr)+1))

假设数组名为a
那么ubound(a)可以获取a的最大引用下标

rnd函数可以产生0-1的随机数,产生某个范围的随机数:Int(Rnd*范围+基数),而randomize函数可以每次都产生不同的随机数
所以:
dim UbdA,RndNum
UbdA=ubound(a)
randomize
RndNum=int(rnd*UbdA+0)