资源描述：
《2012年计算机二级VB数组和自定义类型练习题及答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、2012年计算机二级VB数组和自定义类型练习题及答案计算机等级考试网更新：2011-12-30编辑：evans 6.以下程序代码将任意一组数存入数组，从键盘接收一数据，将其插入数组中，插入的位置也从键盘接收。 DimA() PrivateSubForm_Click() N=InputBox("数据个数:") N=N+1 &,nbsp;__【11】__ ForI=1ToN-1 A(I)=Val(InputBox("原数据:")) NextI D=Val(InputBox("插入的数据:")) P=Val(InputB
2、ox("插入的位置:")) DoWhileP>NOrP<1 MsgBox"位置越界!" P=Val(InputBox("插入的位置:")) Loop ForI=NToP+1Step-1 A(I)=A(I-1) NextI A(P)=D ForI=1ToN Text1.Text=Text1.Text&Str(A(I))&"" NextI EndSub 7.设在窗体上有一个文本框Text1，一个标签数组Label1，共有10个标签，以下程序代码实现在单击任一个标签时将标签的内容添加到文本框现有内容之后。 Priv
3、ateSubLabell_Click(IndexAsInteger) Text1.Text=_【12】_Text1.Text&Labell(Index).Caption__ EndSub 8.设工程中有两个窗体Form1、Form2，一个标准模块Module1，设在Form2的代码中定义了以下过程： Subaaa(x,y,z) z=x^2+y^2 EndSub 在Mobule1中定义了以下过程： Subbbb(x,y,z) z=x^3+y^3 EndSub 在Form1中单击命令按钮Commandl时，调用以上过程
4、计算两个数的平方和与立方和。并分别将结果显示在文本框Text3和Text4中，请在以下程序段中写出相应的调用语句。 PrivateSubCommandl_Click() a=val(Text1.Text) b=val(Text2.Text) Call__【13】__ Text3.Text=cl __【14】__ Text4.Text=c2 EndSub 9.设有如下程序 PrivateSubForm_Click() DimaAsInteger,bAsInteger a=20:b=50 P1a,b p2a,b
5、 p3a,b Print"a=";a,"b=";b EndSub Subp1(xAsInteger,ByValyAsInteger) x=x+10 y=y+20 EndSub Subp2(ByValxAsInteger,yAsInteger) x=x+10 y=y+20 EndSub Subp3(ByValxAsInteger,ByValyAsInteger) x=x+10 y=y+20 EndSub 该程序运行后，单击窗体，则在窗体上显示的内容是：a=_【15】___和b=__【16】__。 10.设有
6、程序 OptionBase1 PrivateSubCommand1_Click() Dimarr1,MaxasInteger arr1=Array(12,435,76,24,78,54,866,43) __【17】___=arr1(1) Fori=1To8 Ifarr1(i)>MaxThen_【18】_ Nexti Print"最大值是："；Max EndSub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。 11.设有如下程序： OptionBase
7、1 PrivateSubCommand1_Click() Dimarr1 DimMinAsInteger,iAsInteger arr1=Array(12,435,76,-24,78,54,866,43) Min=__【19】__ Fori=2To8 Ifarr1(i) Nexti Print"最小值是：";Min EndSub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数 组中各元素的最小值。请填空。2012年计算机二级VB数组和自定义类型练习题及答案计算机等级考试网更新：2
8、011-12-30编辑：evans参考答案 一、单选题123456789101112131415BCBBAABBBBCACDA161718192021222324252627282930BAABDACBC
