A-A+

在窗体上画一个命令按钮 然后编写如下程序: Option Base 1 Private Su

2022-08-06 03:38:42 问答库 阅读 175 次

问题详情

在窗体上画一个命令按钮,然后编写如下程序: 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,由于使用了OptionBase1语句,因此其大小分别为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。

考点:窗体,按钮