2012年计算机二级VB数组和自定义类型练习题及答案

2012年计算机二级VB数组和自定义类型练习题及答案

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(InputBox("插入的位置:"))　　DoWhileP>NOrP<1　　MsgBox"位置越界!"n　　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个标签，以下程序代码实现在单击任一个标签时将标签的内容添加到文本框现有内容之后。　　PrivateSubLabell_Click(IndexAsInteger)　　Text1.Text=_【12】_Text1.Text&Labell(Index).Caption__　　EndSubn　　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时，调用以上过程计算两个数的平方和与立方和。并分别将结果显示在文本框Text3和Text4中，请在以下程序段中写出相应的调用语句。　　PrivateSubCommandl_Click()　　a=val(Text1.Text)　　b=val(Text2.Text)　　Call__【13】__n　　Text3.Text=cl　　__【14】__　　Text4.Text=c2　　EndSub　　9.设有如下程序　　PrivateSubForm_Click()　　DimaAsInteger,bAsInteger　　a=20:b=50　　P1a,b　　p2a,b　　p3a,b　　Print"a=";a,"b=";b　　EndSub　　Subp1(xAsInteger,ByValyAsInteger)　　x=x+10n　　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.设有程序　　OptionBase1　　PrivateSubCommand1_Click()　　Dimarr1,MaxasIntegern　　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.设有如下程序：　　OptionBase1　　PrivateSubCommand1_Click()　　Dimarr1　　DimMinAsInteger,iAsInteger　　arr1=Array(12,435,76,-24,78,54,866,43)　　Min=__【19】__n　　Fori=2To8　　Ifarr1(i)　　Nexti　　Print"最小值是：";Min　　EndSub　　以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数　　组中各元素的最小值。请填空。2012年计算机二级VB数组和自定义类型练习题及答案计算机等级考试网更新：2011-12-30编辑：evans参考答案　　一、单选题123456789101112131415BCBBAABBBBCACDA161718192021222324252627282930BAABDACBCACDCAC313233343536373839404142434445DADCCCABDCCDAADn　　二、填空题【1】a(j,k)=i【2】PrintTab(j*3);a(i,j);【3】Print【4】Preservea(n+1)【5】a(i+1)=a(i)【6】a(i+1)=m【7】t=a(j)【8】a(j)=a(j+1)【9】6-I【10】Print"S(";I;")=";S(I)【11】ReDimA(N)【12】Text1.Text&Labell(Index).Caption【13】Form2.aaa(a,b,c1)【14】bbba,b,c2【15】30【16】70【17】Max【18】Max=arr1(i)【19】12或arr1(1)【20】Min=arr1(i)