欢迎来到天天文库
浏览记录
ID:22674466
大小:95.00 KB
页数:12页
时间:2018-10-30
《中国海洋大学 vb上机试题》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、1.某数组有20个元素,其值为随机产生的两位整数。现要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换,第2个数与第19个元素互换,…,第10个元素与第11个元素互换。在窗体上输出数组原来各元素的值与对换后各元素的值。FormLoadOptionExplicitDima(1To20)AsInteger,iAsInteger,jAsInteger,tAsIntegerPrivateSubForm_Load()ShowPrint"原始数组是:"RandomizeFori=1To20a(i)=Int(Rnd*90)+10
2、Printa(i);IfiMod10=0ThenPrintNextiPrintPrint"现在数组是:"Fori=1To10j=21-it=a(i):a(i)=a(j):a(j)=tNextiFori=1To20Printa(i);IfiMod10=0ThenPrintNextiEndSub2.从数组中删除一个数。先定义一个一维数组,大小、数组的值自定。从键盘上输入一个数,若这个数在数组当中,就把它删除;若这个数不在数组中,提示“该数不在数组中”注意:1)如果数组中存在多个与该数相同的元素,每一个都能删除;2)能实现多次删除Opti
3、onExplicitDima()AsInteger,iAsInteger,jAsInteger,nAsInteger,kAsInteger,mAsIntegerDimflagAsBooleanPrivateSubForm_Load()ShowReDima(9)AsIntegerm=1Print"原来数组为:"Fori=0To9a(i)=InputBox("请输入第"&m&"个数:")Printa(i);m=m+1NextiPrintn=InputBox("查找的数是:")i=0:flag=FalseDoIfa(i)=nThenj=i
4、:flag=TrueFork=jToUBound(a)-1a(k)=a(k+1)NextkReDimPreservea(UBound(a)-1)i=i-1EndIfi=i+1LoopWhile(i<=UBound(a))Ifflag=FalseThenMsgBoxn&"不在该数组中"ElsePrint"删除"&n&"后的数组是:"Fori=0ToUBound(a)Printa(i);NextiEndIfEndSub3.数组a中存放着升序排列的数据,使用array赋值,将inputbox输入的新数插入到数组中,插入后数组仍有序。注意:
5、要求利用动态数组,能够实现多次插入OptionExplicit:OptionBase1Dima(),nAsInteger,iAsInteger,mAsInteger,kAsIntegerPrivateSubForm_Load()Shown=8:ReDima(n)a=Array(5,15,23,52,68,88,90,99)n=n+1:ReDimPreservea(n)m=InputBox("请输入要插入的数据:")Fori=1Ton-1Ifm6、-1)Nextka(k)=mFori=1TonPrinta(i);NextiPrintEndSub4.6个评委为4位歌手打分,分数介于1-100之间。去掉一个最高分,一个最低分,求出每位选手的最后得分。将4位歌手得分从高到低排列输出,同时输出该选手的编号。如:歌手395分歌手187分歌手480分歌手270分PrivateSubForm_Load()Shown=UBound(b)Fori=1To10Forj=1To10a(i,j)=Val(InputBox("请第"&j&"位评委给第"&i&"位选手打分:"))NextjNextiFo7、ri=1To10max=a(i,1):sum=0min=a(i,1):ave=0Forj=1To10Ifa(i,j)>maxThenmax=a(i,j)Ifa(i,j)8、;NextiEndSub5.编写函数求一元二次方程ax2+bx+c=0的解。注意:要求考虑方程有两相等实根、两不等实根和两个虚根的情况。6.任意输入一组字符,统计出大写字母多少个,小写字母多少个,数字多少个?要求用过程实现。Optio
6、-1)Nextka(k)=mFori=1TonPrinta(i);NextiPrintEndSub4.6个评委为4位歌手打分,分数介于1-100之间。去掉一个最高分,一个最低分,求出每位选手的最后得分。将4位歌手得分从高到低排列输出,同时输出该选手的编号。如:歌手395分歌手187分歌手480分歌手270分PrivateSubForm_Load()Shown=UBound(b)Fori=1To10Forj=1To10a(i,j)=Val(InputBox("请第"&j&"位评委给第"&i&"位选手打分:"))NextjNextiFo
7、ri=1To10max=a(i,1):sum=0min=a(i,1):ave=0Forj=1To10Ifa(i,j)>maxThenmax=a(i,j)Ifa(i,j)8、;NextiEndSub5.编写函数求一元二次方程ax2+bx+c=0的解。注意:要求考虑方程有两相等实根、两不等实根和两个虚根的情况。6.任意输入一组字符,统计出大写字母多少个,小写字母多少个,数字多少个?要求用过程实现。Optio
8、;NextiEndSub5.编写函数求一元二次方程ax2+bx+c=0的解。注意:要求考虑方程有两相等实根、两不等实根和两个虚根的情况。6.任意输入一组字符,统计出大写字母多少个,小写字母多少个,数字多少个?要求用过程实现。Optio
此文档下载收益归作者所有