资源描述：
《VB机考练习题+答案》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、上机操作练习题2016-11(上机考试从1－17题中随机抽取1题)1．某数组有20个元素，其值为随机产生的两位整数。现要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个数与第19个元素互换，…，第10个元素与第11个元素互换。在窗体上输出数组原来各元素的值与对换后各元素的值。PrivateSubCommand1_Click()DimiAsIntegerDimtAsIntegerDima()AsIntegerDimjAsIntegerReDima(20)Fori=1To20a(i)=InputBox("请输入第
2、"&i&"个数")Printa(i);NextiPrintPrintPrint"交换元素后："Fori=1To19Forj=i+1To20Ifi+j=21Thent=a(i)a(i)=a(j)a(j)=tEndIfNextjPrinta(i);NextiPrinta(20)EndSub*2．从数组中删除一个数。先定义一个一维数组，大小、数组的值自定。从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中”注意：1）如果数组中存在多个与该数相同的元素，每一个都能删除；2）能实现多次删除OptionE
3、xplicitDima()AsIntegerPrivateSubCommand1_Click()DimiAsIntegerReDima(9)AsIntegerText1.Text=""RandomizeFori=0To9a(i)=Int(Rnd*15)Text1.Text=Text1.Text&a(i)&vbCrLf'vbCrLf是换行，等同于Chr(13)+Chr(10)NextiEndSubPrivateSubCommand2_Click()DimiAsInteger,mAsInteger,flagAsBoolean,jAsInt
4、eger,kAsIntegerm=InputBox("请输入要删除的数：")flag=FalseDoIfa(i)=mThenj=iflag=TrueFork=jToUBound(a)-1a(k)=a(k+1)NextkReDimPreservea(UBound(a)-1)i=i-1EndIfi=i+1LoopWhilei<=UBound(a)Ifflag=FalseThenMsgBoxm&"不在数组中！"ElseText1.Text=""Fori=0ToUBound(a)Text1.Text=Text1.Text&a(i)&vbCrL
5、fNextiEndIfEndSub3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序(显示原数组,可以反复插入,插入一个显示一次插入后的数组)。注意：要求利用动态数组，能够实现多次插入OptionExplicit:OptionBase1Dima()PrivateSubCommand1_Click()DimiAsIntegera=Array(8,18,28,38,48,58,68,78,88,98)Print"原始数组a(i)定为：";Fori=1To10Printa(i);
6、NextPrintEndSubPrivateSubCommand2_Click()DimXAsInteger,nAsInteger,iAsIntegerRandomizeX=Int(Val(InputBox("插入值X","输入",Int(Rnd*90+10))))Print"插入";X;"后数组为：";n=UBound(a)ReDimPreservea(n+1)Fori=nTo1Step-1Ifa(i)>XThena(i+1)=a(i)Elsea(i+1)=XExitForEndIfNextIfi=0Thena(1)=XFori=1
7、ToUBound(a)Printa(i);NextPrintEndSub4．6个评委为4位歌手打分，分数介于1-100之间。去掉一个最高分，一个最低分，求出每位选手的最后得分。将4位歌手得分从高到低排列输出，同时输出该选手的编号。如：歌手395分歌手187分歌手480分歌手270分OptionBase1Dima(4,6)AsInteger,b(4)AsSingle,c(4)AsIntegerPrivateSubCommand1_Click()DimmAsInteger,iAsInteger,jAsInteger,kAsIntegerT
8、ext1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Fori=1To4Forj=1To6a(i,j)=InputBox("第"&j&"名评委对第"&i&"名选手的打分："
