资源描述：
《第7章 数组与自定义数据类型.doc》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、习题7（数组与自定义数据类型）一、选择题1．下面定义数组语句中错误的是：(A)PrivateA(-10To5)(B)DimA(10,-10To-10)AsInteger(C)DimA()AsInteger(D)DimA(N)'N是变量2．下面的哪一条语句与VisualBasic的默认设置相同：(A)OptionBase1(B)OptionBase0(C)ByRef(D)OptionExplicit3．下面的哪条语句可以正确地定义一个动态数组：(A)PrivateA(n)AsInteger(B)DimA()AsIntege
2、r(C)DimA(,)AsInteger(D)DimA(1Ton)4．下面的哪一项可以在窗体模块的声明段中进行定义：(A)全局变量(B)全局常量(C)全局数组(D)全局自定义数据类型5．如果在模块的声明段中有OptionBase0语句，则在该模块中使用Dima(6,3To5)定义的数组的元素个数是：(A)30(B)18(C)35(D)21二、判断题1．使用ReDim语句不但可以改变动态数组的下标界限，而且可以改变其维数。2．无论是在定义时，还是在访问其元素时，数组的下标不能是变量，只能是常量表达式。3．数组下标的下界可以
3、是负值，但上界只能是正数。4．自定义数据类型中的各个成员不但可以是VisualBasic的基本数据类型，还可以是自定义数据类型或数组。5．VisualBasic允许定义过程级自定义数据类型。6．数组可以作通用过程的参数，但必须是最后一个参数。7．数组作通用过程的参数时，一定是按地址传递。8．自定义数据类型既可以作参数，也可以作返回值。三、填空题1．运行下面程序，当单击窗体时，窗体上显示在内容是（1）；如果把A语句替换为x=64，B语句替换为r=8，则输出结果为（2）。分析一下这个程序的功能是什么。1DimnAsInteg
4、er,kAsInteger,xAsInteger,rAsInteger'模块级变量2Dima(8)AsInteger'模块级数组3PrivateSubconv(dAsInteger,r,i)4i=05DoWhiled<>06i=i+17a(i)=dModr:d=dr8Loop9EndSub1011PrivateSubForm_click()12x=12'A语句13r=2'B语句14PrintCStr(x);"(";CStr(r);")=";15Ifx=0Then16Print017Else18Callconv(x,r,
5、n)19Fork=nTo1Step-120Printa(k);21Nextk22Print23EndIf24EndSub2．阅读下面程序，当单击窗体时，窗体上显示的内容是（3）。1PrivateSubForm_Click()2Dima(3,3)AsInteger:DimiAsInteger3a(1,1)=1:a(1,2)=2:a(1,3)=3:a(2,1)=44a(2,2)=5:a(2,3)=6:a(3,1)=7:a(3,2)=8:a(3,3)=95Fori=1To36Fork=1Toi7Callchang(a,i)8N
6、ext9Next10Fori=1To311Fork=iTo312Printa(i,k)&",";13Next14Next15EndSub1617Subchang(a()AsInteger,iAsInteger)18c=a(i,UBound(a,2))19Fork=UBound(a,2)-1To1Step-120a(i,k+1)=a(i,k)21Next22a(i,1)=c23EndSub3．下面的事件过程把一维数组中元素的值向右循环移位，移位次数由文本框输入。“循环”指的是最右边的元素值补到最左边。例如，数组各元素的值依
7、次为0,1,2,3,4,5,6,7,8,9,10；移位三次后，各元素的值依次为：8,9,10,0,1,2,3,4,5,6,7。在画线处填入适当的语句。1PrivateSubCommand1_Click()2DimintArray(10)AsInteger3DimintIAsInteger,intJAsInteger,intKAsInteger4ForintI=0To105intArray(intI)=intI6Next7intJ=Text1.Text8Do9intK=intK+110（4）11LoopUntil（5）12
8、ForintI=0To1013PrintintArray(intI)14Next15EndSub1617PrivateSubMoveright(intA()AsInteger)18DimintIAsInteger,intJAsInteger,intKAsInteger19intI=UBound(intA):intJ=
