Question

VB题练习题，麻烦各位大神帮帮忙

1. 数组声明语句中，声明数组的上下界值能否用变量？

2. 设有声明语句：dim a(-1 to 4),则数组a包含的数组元素个数是？

3. 设有声明语句：dim a() as integer,则使用redim 语句可以改变数组的（）。

4. 下面使用Array函数给数组a输入数据是否正确？
dim a as variant a()=Array(1,3,5,7,9)

5. 下面程序运行后的输出结果是（）
dim a%(1 to 10),i%
for i=1 to 8
a(i)=2*i-1
next i
print a(i-3)

6. 下面程序运行后的输出结果是（）
dim a%(1 to 10),i%
for i=1 to 8
a(i)=2*i-1
next i
print a(i-3)

7. 下面程序运行后的输出结果是（）
dim a%(1 to 10),i%
for i=1 to 8
a(i)=2*i-1
next i
print a(i-3)

8. 下面程序运行后的结果是（）
a=Array(1,2,3,4,5)
print a(a(2))

9. 下面程序运行后的结果是（）
a=Array(1,2,3,4,5)
print a(a(4)/2)

10. 下面程序有错的一行（）
dim a%(1 to 4),i%
for i=1 to 4 step 1*1 '第A行
a(i)=inputbox("请输入" & i & “个数") ’第B行
next i ‘第C行
print a(3)＋a(i) 、第D行

11. 下面程序有错的一行（）
redim a%(1 to 4),i%
for i=1 to 4 step 1.6 '第A行
a(i)=2*i ’第B行
next i ‘第C行
if a(2) then print a(2) '第D行

12. 下面程序运行后的输出结果：（）
dim a,n%
n=5
a=Array(2,"3","4",n)
print a(1)+a(2)+a(3)

13. 下面程序运行后的输出结果：（）
dim a,i%
a=Array("1","2","3","4","5","6")
for i=4 to 1 step -1
print a(4-i);
next i
print a(i)

14. 下面程序运行后的输出结果是（）
dim a(3,3),i%,j%
for i=1 to 3
for j=1 to 3
if i+j=4 or i=j then a(i,j)=0 else a(i,j)=1
print a(i,j);
next j
print
next i

15. 下面程序运行后的输出结果是（）
dim a%(5),n%,x
for each x in a
n=n+1
next x
print n

16. 下面程序运行后的结果（）
dim a,f%,i%
a=Array(1,"3","5",7)
f=1
for i=LBound(a) to UBound(a)
f=f*a(i)
next i
print f

17. 下面程序的功能是将一维数组中的6个数逆序存放并输出。完成填空。
dim a, i%,j%,t%
a=array(1,2,3,4,5,6)
i=0:j=5
Do While(_)
t=a(_)
a(_)=a(_)
a(_)=(_)
i=i+1
(_)
loop
for i=0 to 5
print a(i);
next i

Answer 1

8. 下面程序运行后的结果是（4）
a=Array(1,2,3,4,5)
print a(a(2))
11. 下面程序有错的一行（redim a%(1 to 4),i%）
redim a%(1 to 4),i%
for i=1 to 4 step 1.6 '第A行
a(i)=2*i ’第B行
next i ‘第C行
if a(2) then print a(2) '第D行
14. 下面程序运行后的输出结果是（）
dim a(3,3),i%,j%
for i=1 to 3
for j=1 to 3
if i+j=4 or i=j then a(i,j)=0 else a(i,j)=1
print a(i,j);
next j
print
next i
0 1 0
1 0 1
0 1 0
16. 下面程序运行后的结果（105）
dim a,f%,i%
a=Array(1,"3","5",7)
f=1
for i=LBound(a) to UBound(a)
f=f*a(i)
next i
print f
17. 下面程序的功能是将一维数组中的6个数逆序存放并输出。完成填空。
dim a, i%,j%,t%
a=array(1,2,3,4,5,6)
i=0:j=5
Do While(_)
t=a(_)
a(_)=a(_)
a(_)=(_)
i=i+1
(_)
loop
for i=0 to 5
print a(i);
next i
Dim a, i%, j%, t%
a = Array(1, 2, 3, 4, 5, 6)
i = 0: j = 5
Do While (i < 3)
t = a(i)
a(i) = a(j)
a(j) = t
i = i + 1
j = j - 1
Loop
For i = 0 To 5
Print a(i);
Next i

Answer 2

1 对 没有余数即是整除
2 对
3 错