问题
单项选择题
在窗体上画一个命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim Arr1(12)As Integer，Arr2(3)As Integer
Dim Smm As Integer
Sum=2
For i=1 To 12
Arr1(i)=i
Next i
For i=1 To 3
Arr2(i)=Arr1(i*i)
Next i
For i=1 To 3
Sum=Sum+Arr2(i)
Next i
Print Sum
End Sub
程序运行后，单击命令按钮，在窗体上的输出结果是______。
A．16
B．24
C．32
D．36
答案
参考答案：A
解析： 本题中定义了两个一维数组，分别为Arr1和Arr2，由于使用了OptionBase 1语句，因此其大小分别为10和3，接着执行三个For循环。在第一个循环中．对Arr1数组赋初值，每个元素的值与其下标相同，即Arr1(1)=1，Arr1(2)=2…。在第二个循环中，为Arr2数组的三个元素赋值，这三个值分别为Arr1数组第一、三、九个元素的值，即Arr2(1)=1、Arr2(2)=4、Arr2(3)=9。在第三个循环中，计算数组Arr2中各元素的和，并把它赋给变量Sum。各元素的和为1+4+9=14，但由于变量Sum的初值为2，因此最后的输出结果为16。