2012年計(jì)算機(jī)二級(jí)VB數(shù)組和自定義類(lèi)型練習(xí)題及答案計(jì)算機(jī)等級(jí)考試網(wǎng)更新：2011-12-30編輯：evansDimA()PrivateSubForm_Click()N=InputBox("數(shù)據(jù)個(gè)數(shù):")N=N+1&,nbsp;__【11】__ForI=1ToN-1A(I)=Val(InputBox("原數(shù)據(jù):"))NextID=Val(InputBox("插入的數(shù)據(jù):"))P=Val(InputBox("插入的位置:"))DoWhileP>NOrP<1MsgBox"位置越界!"P=Val(InputBox("插入的位置:"))LoopForI=NToP+1Step-1A(I)=A(I-1)NextIA(P)=DForI=1ToNText1.Text=Text1.Text&Str(A(I))&""NextIEndSub7.設(shè)在窗體上有一個(gè)文本框Text1，一個(gè)標(biāo)簽數(shù)組Label1，共有10個(gè)標(biāo)簽，以下程序代碼實(shí)現(xiàn)在單擊任一個(gè)標(biāo)簽時(shí)將標(biāo)簽的內(nèi)容添加到文本框現(xiàn)有內(nèi)容之后。PrivateSubLabell_Click(IndexAsInteger)Text1.Text=_【12】_Text1.Text&Labell(Index).Caption__EndSub8.設(shè)工程中有兩個(gè)窗體Form1、Form2，一個(gè)標(biāo)準(zhǔn)模塊Module1，設(shè)在Form2的代碼中定義了以下過(guò)程：Subaaa(x,y,z)z=x^2+y^2EndSub在Mobule1中定義了以下過(guò)程：Subbbb(x,y,z)z=x^3+y^3EndSub在Form1中單擊命令按鈕Commandl時(shí)，調(diào)用以上過(guò)程計(jì)算兩個(gè)數(shù)的平方和與立方和。并分別將結(jié)果顯示在文本框Text3和Text4中，請(qǐng)?jiān)谝韵鲁绦蚨沃袑?xiě)出相應(yīng)的調(diào)用語(yǔ)句。PrivateSubCommandl_Click()a=val(Text1.Text)b=val(Text2.Text)Call__【13】__Text3.Text=cla=20:b=50P1a,bp2a,bp3a,bPrint"a=";a,"b=";bEndSubSubp1(xAsInteger,ByValyAsInteger)x=x+10y=y+20EndSubSubp2(ByValxAsInteger,yAsInteger)x=x+10y=y+20EndSubSubp3(ByValxAsInteger,ByValyAsInteger)x=x+10y=y+20EndSub該程序運(yùn)行后，單擊窗體，則在窗體上顯示的內(nèi)容是：a=_【15】___和b=__【16】__。10.設(shè)有程序OptionBase1PrivateSubCommand1_Click()Dimarr1,MaxasIntegerarr1=Array(12,435,76,24,78,54,866,43)__【17】___=arr1(1)Fori=1To8Ifarr1(i)>MaxThen_【18】_NextiPrint"最大值是："；MaxEndSub以上程序的功能是：用Array函數(shù)建立一個(gè)含有8個(gè)元素的數(shù)組，然后查找并輸出該數(shù)組中元素的最大值。請(qǐng)?zhí)羁铡?1.設(shè)有如下程序：OptionBase1PrivateSubCommand1_Click()Dimarr1Min=__【19】__Fori=2To8Ifarr1(i)NextiPrint"最小值是：";MinEndSub以上程序的功能是：用Array函數(shù)建立一個(gè)含有8個(gè)元素的數(shù)組，然后查找并輸出該數(shù)組中各元素的最小值。請(qǐng)?zhí)羁铡?012年計(jì)算機(jī)二級(jí)VB數(shù)組和自定義類(lèi)型練習(xí)題及答案計(jì)算機(jī)等級(jí)考試網(wǎng)更新：2011-12-30編輯：evans參考答案一、單選題123456789101112131415BCBBAABBBBCACDA161718192021222324252627282930BAABDACBCACDCAC313233343536373839404142434445DADCCCABDCCDAAD二、填空題【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&La