下载此文档

中国海洋大学VB上机考试20题.doc


文档分类:资格/认证考试 | 页数:约9页 举报非法文档有奖
1/9
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/9 下载此文档
文档列表 文档介绍
中国海洋大学VB上机考试20题.doc上机操作练****题2008-,其值为随机产生的两位整数。现要求将前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=21-it=a(i):a(i)=a(j):a(j)=tNextiFori=1To20Printa(i);IfiMod10=。先定义一个一维数组,大小、数组的值自定。从键盘上输入一个数,若这个数在数组当中,就把它删除;若这个数不在数组中,提示“该数不在数组中”注意:1)如果数组中存在多个与该数相同的元素,每一个都能删除;2)能实现多次删除OptionExplicitDima()AsInteger,iAsInteger,jAsInteger,nAsInteger,kAsInteger,mand1_Click()n=InputBox("查找的数是:")i=0:flag=FalseDoIfa(i)=nThenj=i: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);NextiEndIfPrintEndSubPrivateSubForm_Load()ShowReDima(9)AsIntegerm=1Print"原来数组为:"Fori=0To9a(i)=InputBox("请输入第"&m&"个数:")Printa(i);m=m+,使用array赋值,将inputbox输入的新数插入到数组中,插入后数组仍有序。注意:要求利用动态数组,能够实现多次插入OptionExplicit:OptionBase1Dima(),nAsInteger,iAsInteger,mAsInteger,mand1_Click()n=n+1:ReDimPreservea(n)m=InputBox("请输入要插入的数据:")Fori=1Ton-1Ifm<a(i)ThenExitForNextiFork=nToi+1Step-1a(k)=a(k-1)Nextka(k)=mFori=1TonPrinta(i);NextiPrintEndSubPrivateSubForm_Load()Shown=8:ReDima(n)a=Array(5,15,23,52,68,88,90,99)

中国海洋大学VB上机考试20题 来自淘豆网www.taodocs.com转载请标明出处.

相关文档 更多>>
非法内容举报中心
文档信息
  • 页数9
  • 收藏数0 收藏
  • 顶次数0
  • 上传人dyx110
  • 文件大小136 KB
  • 时间2020-01-13