[单项选择题] 在窗体上画一个命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1 Click()Dim Arr1(12)As Integer， Ar

17 查阅

[单项选择题] 在窗体上画一个命令按钮，然后编写如下程序：

Option Base 1

Private Sub Command1 Click()

Dim Arr1(12)As Integer， Arr2(3)As Integer

Dim Sum As Integer

Sum = 2

For i=1 To 12

Arrl(i)= i

Next i

For i=1 To 3

Arr2(i)= Arrl(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，由于使用了Option Base 1语句，因此其大小分别为10和3，接着执行3个For循环。在第1个循环中，对Arr1数组赋初值，每个元素的值与其下标相同，即Arrl(1)=1，Arrl(2)= 2……。在第2个循环中，为Arr2数组的3个元素赋值，这3个值分别为Arrl数组第1、3、9个元素的值，即Art2(1)=1、Arr2(2)=4、Arr2(3)= 9。在第3个循环中，计算数组Arr2中各元素的和，并将它赋给变量Sum。各元

计算机考试