资源描述：
《数组综合练习一》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、数组综合练习友情提醒：1、本次实验的中的理论题以红色标记答案，并按原名存盘，与程序作业一起提交。综合练习只要相应的程序文件与窗体文件。2、上机作业均打包上传至规定的文件夹。文件名为：学号szzh1.rar若无特殊说明，所有程序都在form_click()事件中运行，其他控件其他控件由用户自己决定使用一、理论题数组和自定义类型一、单选题1.下面数组声明语句，_______正确。A）Dima[2,4]AsIntegerB）Dima(2,4)AsIntegerC）Dima(n,n)AsIntegerD）Dima(24)AsInteger2．要分配存放如下方阵的数据，可使用
2、________数组声明语句来实现（不能浪费空间）。A）Dimx(9)AsSingleB）Dimx(3,3)AsSingleC）Dimx(-1to1,-5to-3)AsSingleD）Dimx(-3to-1,5to7)AsInteger3.下面数组声明语句中，数组包含元素个数为________。Dima(-2to2,5)A）120B）30C）60D）204．下面程序的输出结果是________。Dimaa=Array(1,2,3,4,5,6,7)Fori=Lbound(A）toUbound(A）a(i)=a(i)*a(i)NextiPrinta(i)A）36B）程序
3、出错C）49D）不确定5．下面程序的输出结果是________。OptionBase1PrivateSubCommand1_Click()Dima%(3,3)Fori=1To3Forj=1To3Ifj>1Andi>1Thena(i,j)=a(a(i-1,j-1),a(i,j-1))+1Elsea(i,j)=i*jEndIfPrinta(i,j);NextjPrintNextiEndSubA）123B）123C）123D）1232311232462223231233693336．以下定义数组或给数组元素赋值的语句中，正确的是______。A）DimaAsVariant
4、B）Dima(10)AsIntegera=Array(1,2,3,4,5)a=Array(1,2,3,4,5)C）Dima%(10)D）Dima(3),b(3)AsIntegera(1)="ABCDE"a(0)=0a(1)=1a(2)=2b=a7．设有如下的记录类型TypeStudentnumberAsStringnameAsStringageAsIntegerEndType则正确引用该记录类型变量的代码是______。A）Student.name="张红"B）DimsAsStudents.name="张红"C）DimsAsTypeStudentD）DimsAsTy
5、pes.name="张红"s.name="张红"8.在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码：OptionBase1PrivateSubCommand1_Click()Dimas=0a=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSub运行上面的程序，单击命令按钮，其输出结果是______。A）4321B）1234C）34D）129.执行以下Command1的Click事件过程在窗体上显示______。OptionBase0PrivateSubComm
6、and1_Click()Dimaa=Array("a","b","c","d","e","f","g")Printa(1);a(3);a(5)EndSubA）abcB）bdfC）aceD）无法输出结果10.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5)Fori=1ToUBound(A）a(i)=a(i)+i–1NextPrinta(3)EndSub程序运行后，单击命令按钮，则在窗体上显示的内容是______。A）4B）5C）6
7、D）711.窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：PrivateSubCommand1_Click()DimM(10),N(10)I=3ForT=1To5M(T)=TN(I)=2*I+TNextTPrintN(I);M(I)EndSub窗体运行后，单击命令按钮，输出结果为______。A）311B）315C）113D）15312.下列程序段的执行结果为______。DimM(10)ForI=0To9M(I)=2*INextIPrintM(M(3))A）12B）6C）0D）413.设有如下程序：OptionBaseOPrvateSu
