visualbasic程序设计上机考试试题及答案

《visualbasic程序设计上机考试试题及答案》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、1.某数组有20个元素，其值为随机产生的两位整数。现要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个数与第19个元素互换，…，第10个元素与第11个元素互换。在窗体上输出数组原来各元素的值与对换后各元素的值。OptionExplicitDima(lTo20)AsInteger，iAsInteger,jAsInteger，tAsIntegerPrivateSubForm_Load()ShowPrint"原始数组是："RandomizeFori=1To20a(i)=Int(Rnd*90)+10Printa(i);NextiPr

2、intPrint1’现在数组是：nFori=1To1()j=21-it=a(i):a(i)=a(j):a(j)=tNextiFori=1To20Printa(i);NextiEndSub2.从数组中删除一个数。先定义一个一维数组，大小、数组的值自定。从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中”注意：1)如果数组中存在多个与该数相同的元素，每一个都能删除；2)能实现多次删除OptionExplicitDima()AsInteger，iAsIntegerJAsInteger，nAsInteger，kAsI

3、nteger,mAsIntegerDimfAsBooleanPrivateSubCommand1—Click()n=InputBox("查找的数是："，"请输入")i=0:f=FalseDoIfa(i)=nThenj=i:f=TrueFork=jToUBound(a)-1a(k)=a(k+1)NextkReDimPreservea(UBound(a)-1)i=i-1EndIfi=i+1LoopWhile(i<=UBound(a))Iff=FalseThenMsgBoxn&”不在该数组中”ElsePrint’*删除"&n&"后的数组是:"Fori=0T

4、oUBound(a)Printa(i);NextiEndIfPrintEndSubPrivateSubForm_Load()ShowReDima(9)AsIntegerm=1Print”原来数组为：nFori=0To9a(i)=InputBoxf请输入第"&m&”个数：")Printa(i);m=m+1NextiPrintEndSub1.数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。注意：要求利用动态数组，能够实现多次插入OptionExplicitDima()AsVariant,iAs

5、Integer，nAsInteger，jAsInteger,bAsInteger，cAsIntegerPrivateSubCommandl_Click()PrintReDimPreservea(c+1)n=I叩utBox("插人的数是"，"请输入")Fori=0Tocb=n-a(i)Ifb<=0ThenForj=c+1Toi+1Step-1a(j)=a(j-1)Nextja(i)=nExitForEndIfNextiIfi=c+1Thena(c+1)=nFori=0Toc+1Printa(i);Nextic=UBound(a)EndSubPrivat

6、eSubForm_Load()ShowReDima(9)a=Array(3,6,9,11,15,19,33,44,56,67)c=UBound(a)Fori=0TocPrinta(i);NextiEndSub1.6个评委为4位歌手打分，分数介于1-100之间。去掉一个最高分，一个最低分，求出每位选手的最后得分。将4位歌手得分从高到低排列输出，同时输出该选手的编号。如：歌手395分歌手187分歌手480分歌手270分OptionExplicitDima(4)AsInteger，m(4)AsInteger，iAsInteger,jAsInteger，tA

7、sInteger，minAsInteger，maxAsInteger,pAsIntegerDims(4)AsIntegerPrivateSubForm_Load()ShowFori=1To4s(i)=0min=100:max=1Forj=1To6a(i)=InputBox("第"&j&"个评委给"&i&"打分1-100”)s(i)=s(i)+a(i)Ifa(i)>maxThenmax=a(i)Ifa(i)

8、+1To4Ifa⑴〉a(p)Thenp=jNextjt=a(i):a(i)=a(p):a(p)=tNexti