在窗体上画一个命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1 Click() Dim Arr1(12)As Integer, Arr2(3)As Integer

admin2009-02-13  22

问题 在窗体上画一个命令按钮,然后编写如下程序:    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

答案1

解析 本题中定义了两个一维数组,分别为 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。各元素的和为1+4+9= 14,但由于变量Sum的初值为2,因此最后的输出结果为16。
转载请注明原文地址:https://kaotiyun.com/show/f11p777K
0

最新回复(0)