资源描述：
《计算机二级VB第7章选择题及答案.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、第七章理论复习题1、阅读下列程序：PrivateSubForm_Click()DimmAsIntegerStaticnAsIntegerFori=1To3n=n+im=m+i^2NextPrintm,nEndSub运行时两次单击窗体结果为（）。A、146146B、1461412C、146286D、14628122、窗体上的命令按钮编写如下事件过程：PrivateSubCommand1_Click()Dimarray1(10,10)AsIntegerDimi,jAsIntegerFori=2To4Forj=3To5array1(i,j)=i*jNex
2、tjNextiPrintarray1(2,4)+array1(3,4)EndSub运行时，单击命令按钮后输出的结果是（）。A、9B、13C、程序出错D、205、以下数组声明语句中数组a包含的元素个数为（）。Dima(3,-2to1,5)A、96B、75C、60D、136、有声明Dima(-3to1,3)AsInteger，则下列叙述中正确的是（）。A、数组a是二维动态数组B、数组a共有20个元素C、a（0,0）不是该数组的元素D、a（1,1）是该数组的第十个元素7、下列叙述中错误的是（）。A、控件数组的每一个元素共享同样的事件过程B、控件数组的每一
3、个元素都有与之相关联的下标值C、控件数组的每一个元素都有不同的name属性作为标识D、可在运行过程中删除控件数组的某个元素8、能使一维数组arr(6)元素个数加1，但保留数组中原有元素的语句是（）。A、ReDimarr(7)B、ReDimPreservearr(7)A、Publicarr(1to7)B、Staticarr(7)5、运行下列程序，单击窗体时在窗体上显示的结果是（）。PrivateSubForm_Click()DimaDimsAsInteger,iAsIntegera=Array(1,2,3)Fori=2To0Step-1s=s+a(i
4、)*a(i)NextiPrintsEndSubA、13B、不确定C、14D、程序出错6、运行下列程序，单击窗体后输出的结果是（）。OptionBase0PrivateSubForm_Click()DimaDimIasintegerA=Array(1,2,3,4,5,6,7,8,9)ForI=1to3Printa(5-I);NextIEndSubA、321B、432C、543D、6547、要将字符串数组a中所有学生姓名按数组下标顺序追加到列表框list1中，可以使用的程序段为（）。A、Fori=0ToUBound(a)-1List1.AddItema
5、(i),0NextiB、Fori=0ToUBound(a)-1List1.AddItema(i)NextiC、List1.AddItemaD、Fori=0ToUBound(a)-1List1.List(i)=a(i)NextI8、如下程序段中包含一个错误。X＝4Dima（X）Form＝4to0step－1a（m）＝m+1Nextm出错的原因是（）。A、第四行，数组元素a（m）下标越界B、第四行，不能用循环变量m进行运算C、第二行，不能用变量定义数组下标D、第三行，循环语句格式不对9、下列语句错误的是（）。A、Privatea（－10to5）B、Di
6、ma(N)‘N为变量C、Dima()AsIntegerD、Dima%(10,－10to－10)10、能刚好存放如下方阵数据的数组声明语句是（不能浪费空间）（）。1.12.23.34.45.56.67.78.89.9A、DimA(9)asSingleB、DimA(3,3)asSingleC、DimA(-1to1,-5to-3)asSingleD、DimA(-3to-1,5to7)asInteger5、以下定义数组或给数组元素赋值的语句中，正确的是（）。A、DimaAsVarianta=Array(1,2,3,4,5,6)B、Dima(10)AsInt
7、egera=Array(1,2,3,4,5,6)C、Dim%A(10)a(1)="ABCD"D、Dima(3),b(3)AsIntegera(0)=0:a(1)=1:a(2)=2:b=a6、在窗体上画三个单选按钮，组成一个名称为ChkOption的控件数组。用于标识各个控件数组元素的属性是（）。A、TagB、NameC、IndexD、Value7、下列关于控件数组的说法中，正确的是（）。A、控件数组可以由不同类型的控件组成B、同一个控件数组中各元素的Name属性值不同C、同一个控件数组中，每个元素的属性设置值都相同D、控件数组必须由同类型的控件组成
8、8、阅读如下程序：PrivateSubCommand1_Click()Dima(1To10)AsInteger,p(1To
