如何在VBA中，创建一个一维数组，分别使用两种循环语句把1～10赋给数组的10个元素

Question

如题所述

Answer 1

sub 方法一()
dim sz()
redim sz(10)
for i= 1 to 10
sz(i-1)=i
next
end sub
sub 方法二()
dim sz()
redim sz(10)
i=0
while i<10
sz(i)=i+1
i=i+1
wend
end sub