中国海洋大学VB上机试题.docx
- 文档编号:759466
- 上传时间:2022-10-12
- 格式:DOCX
- 页数:20
- 大小:21.06KB
中国海洋大学VB上机试题.docx
《中国海洋大学VB上机试题.docx》由会员分享,可在线阅读,更多相关《中国海洋大学VB上机试题.docx(20页珍藏版)》请在冰豆网上搜索。
中国海洋大学VB上机试题
1.某数组有20个元素,其值为随机产生的两位整数。
现要求将前10个元素与后10个元素对换。
即第1个元素与第20个元素互换,第2个数与第19个元素互换,…,第10个元素与第11个元素互换。
在窗体上输出数组原来各元素的值与对换后各元素的值。
OptionExplicit
Dima(1To20)AsInteger,iAsInteger,jAsInteger,tAsInteger
PrivateSubForm_Load()
me.Show
Print"原始数组是:
"
Randomize
Fori=1To20
a(i)=Int(Rnd*90+10)'10to99
Printa(i);
IfiMod10=0ThenPrint
Nexti
Print"现在数组是:
"
Fori=1To10
j=21-i
t=a(i):
a(i)=a(j):
a(j)=t
Nexti
Fori=1To20
Printa(i);
IfiMod10=0ThenPrint
Nexti
EndSub
2.从数组中删除一个数。
先定义一个一维数组,大小、数组的值自定。
从键盘上输入一个数,若这个数在数组当中,就把它删除;若这个数不在数组中,提示“该数不在数组中”
注意:
1)如果数组中存在多个与该数相同的元素,每一个都能删除;
2)能实现多次删除
Dima()AsInteger
PrivateSubCommand1_Click()
DimiAsInteger,jAsInteger,nAsInteger,kAsInteger,mAsInteger,flagAsBoolean
n=InputBox("查找的数是:
")
i=0:
flag=False
Do
Ifa(i)=nThen
j=i:
flag=True
Fork=jToUBound(a)-1
a(k)=a(k+1)
Nextk
ReDimPreservea(UBound(a)-1)
i=i-1
EndIf
i=i+1
LoopWhile(i<=UBound(a))
Ifflag=FalseThen
MsgBox(n&"不在该数组中")
Else
Print"删除"&n&"后的数组是:
"
Fori=0ToUBound(a)
Printa(i);
Nexti
EndIf
EndSub
PrivateSubForm_Load()
DimiAsInteger
ReDima(9)AsInteger
Show
Randomize
Print"原来数组为:
"
Fori=0To9
a(i)=Int(Rnd*99+1)
Printa(i);
Nexti
EndSub
3.数组a中存放着升序排列的数据,使用array赋值,将inputbox输入的新数插入到数组中,插入后数组仍有序。
注意:
要求利用动态数组,能够实现多次插入
OptionBase1
Dima()AsInteger,iAsInteger,kAsInteger,mAsInteger,nAsInteger
PrivateSubCommand1_Click()
Print"随机产生的原数组:
"
ReDimPreservea(10)
n=10
Fori=1Ton
Randomize
a(i)=Int(Rnd*99+1)
Next
Fori=1Ton-1
Forj=i+1Ton
Ifa(i)>a(j)Then
t=a(i):
a(i)=a(j):
a(j)=t
EndIf
Nextj
Printa(i);
Nexti
Printa(n)
EndSub
PrivateSubCommand2_Click()
n=n+1
ReDimPreservea(n)
m=InputBox("输入一个正整数")
Print"插入";m;"后的数组为"
Ifa
(1)
Fori=2Ton-2
Ifa(i)<=mAnda(i+1)>=mThenj=i:
ExitFor
Next
a(j+1)=m
Fori=1Ton
Printa(i);
Next
EndIf
Ifm<=a
(1)Then
Fori=nTo1Step-1
a(i+1)=a(i)
Next
a
(1)=m
Fori=1Ton
Printa(i);
Next
EndIf
Ifm>=a(10)Then
a(n)=m
Fori=1Ton
Printa(i);
Next
EndIf
EndSub
3.数组a中存放着升序排列的数据,使用array赋值,将inputbox输入的新数插入到数组中,插入后数组仍有序。
注意:
要求利用动态数组,能够实现多次插入
OptionExplicit
OptionBase1
Dima()AsInteger,iAsInteger,kAsInteger,mAsInteger,nAsInteger,jAsInteger,tAsInteger
PrivateSubCommand1_Click()
n=n+1
ReDimPreservea(n)
m=Val(InputBox("请输入要插入的数据"))
Fori=1Ton-1
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 中国海洋 大学 VB 上机 试题
![提示](https://static.bdocx.com/images/bang_tan.gif)