VB上机试题及答案.docx

VB上机试题及答案

第一篇：VB上机试题及答案上机操作练习题1．某数组有20个元素，其值为随机产生的两位整数。现要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个数与第19个元素互换，…，第10个元素与第11个元素互换。在窗体上输出数组原来各元素的值与对换后各元素的值。OptionexplicitDima(1to20)asinteger,Iasinteger,jasinteger,tasintegerPrivateSubForm_Load()ShowPrint“原始数组是：”RandomizeFori=1To20a(i)=Int(Rnd*90)+10Printa(i);IfiMod10=0ThenPrintNextiPrintPrint“现在数组是：”Fori=1To10j=211a(k)=a(k+1)NextkReDimPreservea(UBound(a)1EndIfi=i+1LoopWhile(i注意：要求利用动态数组，能够实现多次插入PrivateSubForm_Load()Shown=8:ReDima(n)a=Array(5,15,23,52,68,88,90,99)n=n+1:ReDimPreservea(n)m=InputBox(“请输入要插入的数据:”)Fori=1Ton1)Nextka(k)=mFori=1TonPrinta(i);NextiPrintEndSub4．6个评委为4位歌手打分，分数介于1-100之间。去掉一个最高分，一个最低分，求出每位选手的最后得分。将4位歌手得分从高到低排列输出，同时输出该选手的编号。如：歌手395分歌手187分歌手480分歌手270分/19OptionBase1PrivateTypegeshouxuhaoAsStringfenshu(6)AsIntegerscoreAsIntegerpingjunAsIntegerEndTypeDimsinger(1To4)AsgeshouPrivateSubCommand1_Click()Fori=1To4Forj=1To6singer(i).fenshu(j)=Int(Rnd*100)singer(i).xuhao=“歌手”&iNextNextCallpaixuEndSubPrivateSubpaixu()DimpAsgeshouFori=1To4Forj=1To5Fork=jTo6Ifsinger(i).fenshu(j)>singer(i).fenshu(k)Thent=singer(i).fenshu(j)singer(i).fenshu(j)=singer(i).fenshu(k)singer(i).fenshu(k)=tEndIfNextNextNextFori=1To4Forj=2To5singer(i).score=singer(i).score+singer(i).fenshu(j)Nextsinger(i).pingjun=singer(i).score/4NextFori=1To3Forj=iTo4Ifsinger(i).scorep=singer(i):singer(i)=singer(j):singer(j)=pEndIfNext/19NextFori=1To4Printsinger(i).xuhao&“得分：”&singer(i).pingjunNextEndSubPrivateSubForm_Load()EndSub10个评委给10个选手打分PrivateSubForm_Load()Shown=UBound(b)Fori=1To10Forj=1To10a(i,j)=Val(InputBox(“请第”&j&“位评委给第”&i&“位选手打分：”))NextjNextiFori=1To10max=a(i,1):sum=0min=a(i,1):ave=0Forj=1To10Ifa(i,j)>maxThenmax=a(i,j)Ifa(i,j)sum=sum+a(i,j)Nextjave=(summin)/(n1Forj=i+1TonIfb(i)t=b(i):b(i)=b(j):b(j)=tEndIfNextjNextiPrint“选手的得分由高到低为：”Fori=1To10Printb(i);NextiEndSub5．编写函数求一元二次方程ax2+bx+c=0的解。注意：要求考虑方程有两相等实根、两不等实根和两个虚根的情况。DimaAsSingle,bAsSingle,cAsSingleDimsAsSinglea=InputBox(“请输入a”)/19b=InputBox(“请输入b”)c=InputBox(“请输入c”)s=b^2Sqr(s))/2*aEndIfEndSub6.任意输入一组