Question

vb怎样让连续数赋值二维数组

Answer 1

如果你意思是一个数字Int=123456789
让他赋值到[3,3]数组的话
Strtmp = Str(Int)
k = 2
for i = 0 to 2
for j = 0 to 2
if k < Len(Strtmp) then
a(i,j) = Val(Mid(Strtmp,k,1))
end if
k = k+ 1
next j
next i
要是普通的数字赋值就直接用两个FOR不就行咯

Answer 2

直接循环赋值：
dim m,n,k
k=1
dim array[10,10]
for m = 0 to 9
for n= 0 to 9
array[m,n]=k
k=k+1
next n
next m