Question

问两道计算机二级VB的题，有人能帮忙解答一下吗

麻烦大侠解释的清楚一下，因为本人基础较弱
第一题
private sub command1-click（）
dim a(1to10) as integer
For i=1to10
a(i)=i*i
next i
print a(i-2)
end sub 运行后窗体上显示的内容——。
我算的是64，可答案是81

第二题
option base1
private sub command1_click()
dim arr
arr=Array(10,20,"ABCDE“)
for 3to1 step-1
print arr(i)
nexti
end sub

我得出的结果过是ABCDE 20 10 可是答案是 出错信息

Answer 1

private sub command1-click（）
dim a(1to10) as integer
For i=1to10
a(i)=i*i
next i '->i=i+1
print a(i-2) '->i=11
end sub 运行后窗体上显示的内容——。
我算的是64，可答案是81

option base1
private sub command1_click()
dim arr
arr=Array(10,20,"ABCDE“)
for 3to1 step-1 'for i=3to1 step-1,前面要定义i
print arr(i)
nexti
end sub

Answer 2

第一题：你看啊。当循环结束后，i的值是11不是10.所以a(i-2)=a(9)=81.注意跳出循环的i的值。
第二题我觉得是类型不匹配吧。这个不太清楚。

Answer 3

第一题你以为是 10-2=8对吧?
实际上出FOR后 10已经变成11了
因此是11-2=9 a[9]=9*9=81
不信你可以在出FOR后 print 一下i

第二题
DIM ARR 在VB里默认好像是整数吧,我也忘了这样能不能声明成功
后面Array(10,20,"ABCDE“) 很明显第三个参数出问题了 整数数组里怎么能添加字符串呢?

Answer 4

我来高速你第二题出错的原因，array给类似数组赋值时，下标从零开始，arr(3)就有问题，其下标从0 to 2