Question

VB问题，麻烦帮忙解答一下，考试可能会考！

以下程序执行结果的第一行是？第二行是？
Private sub form-click()
Dim a()as integer,i as integer
for i=1 to 3
redim a(i)
if i>=2 then redim preserve a(i)
a(i)=i^2 +1
print a(i);
next i
print
for i=1 to 3
print a(i);
next
end sub
要具体过程

Answer 1

2 5 10
0 0 10

追问

第二行为什么是0 0 10

追答

if 语句重定义后，前面的两个没赋值

追问

不是if i>=2么？i不是从1到3么，那不是i=2和3的时候才重定义么

追答

譬如:i=3,因为重定义，
if i>=2 then redim preserve a(i)

数组a的各项都为0，而后面只给a(3)赋值：
a(i)=i^2 +1

Answer 2

第1行:from窗体上单击事件
第2行:定义一个可变整形数组a,整形变量i
第3行:for循环从1 to 3
第4行:重定义数组a数组的大小和i的值一样
第5行:如果i大于2,重定义数组a,数组的大小为i,并保留数组a(0)--a(i-1)值
第6行:a(i)=i^2+1 (i的平方+1)
第7行:在form窗体上打印出a(i)的值
第8行:next i 循环到第3号
第9行:输出空内容
第10行:for循环从1到3
第11行:打印数组a(i)的值
第12行:next i 循环执行到第10行
第13行:结束事件

追问

就是不明白第二行为什么是 0 0 10

Answer 3

2510
0010