这样的数组写法应该怎么写？

Question

当n=7时动态数组写为 Array(1, 2, 3, 4, 5, 6, 7)
n=8动态数组写为Array(1, 2, 3, 4, 5, 6, 7,8)任意n=?时应该怎么写如
n=40动态数组写为Array(1, 2, 3, 4, 5, 6, 7,8,9,10,......40)

Answer 1

n=8
redim Preserve Array(8)
 Array(8)=8n=40动态数组写为dim array(40)
for n = 0 to 39
array(n)=n+1
next

Answer 2

这样循环的第一个是不是还是得到array(0)而lz貌似是想抛弃掉array(0)而取array(max+1)

Answer 3

array(0)应该有的阿
他的意思应该是array(0)是1阿

Answer 4

dim array(40)
for n = 1 to 39
array(n)=n
next
这样？

Answer 5

aspower_(论坛开通可用分捐赠！欢迎捐赠我以助csdn测试谢谢^_^) 谢谢你的热心解答。我要的是
Dim x, i As Integer
Dim out() As Stringx = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
GETALL 6, x, out 'CALL函数'在这里我想写一个当n=3时为x = Array(1,2,3)
'或n任意值时 如当n=7时为x = Array(1,2,3,4,5,6,7)
当n=100时...

Answer 6

Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
你这是什么意思不太明白
n=40
redim array(n)
for i = 0 to n-1
array(n)=n+1
next

Answer 7

n=40'你可以随意赋值
redim array(n)
for i = 0 to n-1
array(n)=n+1
next

Answer 8

改变数组的纬数的时候要用ReDim
先Dim array(7)
ReDim array(N)