资源描述：
《第5章数组测试题》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、第5章数组测试题一、选择题1．如下数组声明语句，（）正确。A．Dima[3,4]AsIntegerB．Dima(3,4)AsIntegetC．Dima(n,n)AsIntegerD．Dima(34)AsInteger2．要分配存放如下矩阵的数据，（）数组声明语句能实现（不能浪费空间）。A．Dima(9)AsIntegerB．Dima(3,3)AsSingleC．Dima(-1to1,-5to-3)AsSingleD．Dima(-3to-1,5to7)AsInteger3．如下数组声明语句，则数组a包含元素的个数有（
2、）。Dima(3,-2to2,5)A．120B．75C．60D．134．以下程序的输出结果是（）。Dimaa=Array(1,2,3,4,5,6,7)Fori=Lbound(a)toUbound(a)a(i)=a(i)*a(i)NextiPrinta(i)A．49B．0C．不确定D．程序出错5．下列语句中（假定变量n有值），能正确声明可调数组的是（）。A．Dima()AsIntegerB．Dima()AsIntegerReDima(n)ReDima(n)AsIntegerC．Dima()AsIntergerD．Di
3、ma(10)AsIntegerReDima(3,4)ReDima(n+10)ReDimPreservea(4,4)6．在窗体的通用声明段自定义了数据类型Students，下列（）定义方式是正确的。A．PrivateTypeStudentsB．TypeStudentsNameAsString*10NameAsString*10StudnoAsIntegerStudnoAsIntegerEndTypeEndStudentsC．TypeStudentsD．TypeStudentsNameString*10NameAsSt
4、ring*10StudnoIntegerStudnoAsIntegerEndTypeEndType7．以下程序的输出结果是（ ）。 OptionBase1PrivateSubCommand1_Click() Dima,b(3,3) a=Array(1,2,3,4,5,6,7,8,9) Fori=1To3 Forj=1To3 b(i,j)=a(i*j) If(j>=i)ThenPrintTab(j*3);Format(b(i,j),"###"); Nextj Print
5、 NextiEndSubA．123B．1C．147D．12345645246467897893699二、填空题１．数组声明时下标下界默认为0，利用（1）语句可以使下标为1。2．由Array函数建立的数组，其变量必须是（2）类型。3．要获得数组的上界通过（3）函数，要获得列表框List数组的元素总个数通过（4）属性。4．若定义一维数组为：Dima(NtoM),则该数组的元素个数为（5）个。图1随机分数运行界面5．随机产生6位学生的分数（分数范围1-100），存放在数组a中，以每2分一个“*”显示，如图1所示。Pr
6、ivateSubCommand1_Click()Fori=1To6a(i)=(6)Print(7)NextiEndSub6．在一维数组中利用移位的方法显示如图2所示结果。PrivateSubForm_Click()图2第6题运行界面Dima(1To7)Fori=1To7a(i)=i:Printa(i);NextiPrintFori=1To7t=(8)'最右1位暂存Forj=6To1Step-1(9)'其余6个向右移一位Nextj(10)'暂存的放入最左Forj=1To7Printa(j);NextjPrintNex
7、tiEndSub7．下面程序对已知数组a，删除数组元素中某个元素。PrivateSubCommand1_Click()Dima(),key%,i%,j%a=Array(1,6,8,3,5,9,10,2,7,4)key=Val(InputBox("输入要删除的值"))Fori=0ToUBound(a)If(11)ThenForj=i+1ToUBound(a)(12)NextjReDim(13)MsgBox("删除完成")ExitSubEndIfNextiMsgBox("找不到要删除的元素")EndSub8．下列程序表
8、示将输入的一个数插入到按递减的有序数列中，插入后使该序列仍然有序。PrivateSubForm_Click()Dima,i%,n%,m%a=Array(19,17,15,13,11,9,7,5,3,1)n=UBound(a)ReDim(14)m=Val(InputBox("输入欲插入的数"))Fori=UBound(a)-1To0Step-1If(m>=a(
