vb第四章数组习题.docxVIP

第一章数组

一、选择题1．在窗体上画一个命令按钮，然后编写如下程序：

OptionBase1

PrivateSubCommand1_Click(IndexAsInteger)DimArr1(12)AsInteger,Arr2(3)AsIntegerDimSumAsInteger

Sum=2

Fori=1To12Arr1(i)=i

Nexti

Fori=1To3

Arr2(i)=Arr1(i*i)Nexti

Fori=1To3

Sum=Sum+Arr2(i)Nexti

PrintSumEndSub

程序运行后，单击命令按钮，在窗体上的输出结果是

A．16 B．24 C．322．在窗体上画一个文本框，然后编写如下代码：

OptionBase1

PrivateSubForm_Click()Dimarr

D．36

Dim

Dim

StartAsInteger,Finish

SumAsInteger

As

Integer

arr

=Array(12,4,8,16)

Start=LBound(arr)Finish=UBound(arr)Sum=0

Fori=Start