如何随机声明字节数组变量？

xjgh

dim k as long
for i=1 to k
dim "a" & i & "()" as byte
next
如何才能执行成功，请高手执教
其结果应是a1(),a2(),a3() ....

jy4977596491

高级程序员能写出这代码也是佩服，我自认为搞了这么多年VB，竟然看不懂代码(VB代码竟然还可以这样写)

JuncoJet

jy4977596491 发表于 2021-5-25 21:53
高级程序员能写出这代码也是佩服，我自认为搞了这么多年VB，竟然看不懂代码(VB代码竟然还可以这样写)

我觉得 eval 可以， 不记得VB有没有
Python 和 JS 都有

jy4977596491

JuncoJet 发表于 2021-5-30 01:17
我觉得 eval 可以， 不记得VB有没有
Python 和 JS 都有

那估计是高级VB，VB6没有

dxs

定义一个二维数组不就可以了
Dim k As Long, i As Long, a() As Byte, x As Long
k = 5
x = 10
For i = 1 To k
ReDim a(i, x)
Next
如何才能执行成功，请高手执教
其结果应是a(1,x),a(2,x),a(3,x)...
后续可以redim a(1,y)
或redim a(2,y)