VB新的上机等级考试程序调试题及答案

VB新的上机等级考试程序调试题及答案

ID:42126822

大小:45.50 KB

页数:7页

时间:2019-09-08

VB新的上机等级考试程序调试题及答案_第1页
VB新的上机等级考试程序调试题及答案_第2页
VB新的上机等级考试程序调试题及答案_第3页
VB新的上机等级考试程序调试题及答案_第4页
VB新的上机等级考试程序调试题及答案_第5页
资源描述:

《VB新的上机等级考试程序调试题及答案》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、数组中删除一个指定的数据OptionexplicitPublicSubDel()'该过程从一个含有10个数组元素的数组中删除一个指定的数据,若该数据不存在,则给出提示。'先产生10个[1,100]的随机整数'从键盘上输入一个数,将该数从数组中删除RandomizeDimxAsIntegerDima()AsIntegerDimiAsInteger,posAsIntegerReDima(10)AsIntegerFori=1To10a(i)=Int(Rnd*100)+1NextiForm1.Print"原始数据

2、:"Fori=1To10Form1.Printa(i);"";NextiForm1.Printx=Val(InputBox("输入删除的数x="))pos=0Fori=1To10Ifx=a(i)Then------1-----‘pos=iExitForEndIfNextiIfpos<>0ThenFori=-----2------To9‘pos-------3-------‘a(i)=a(I+1)NextiReDimPreservea(9)'保留原数组中的9个数Form1.Print"删除后数据:"Fori

3、=1To9Form1.Printa(i);"";NextiForm1.PrintElseMsgBox"数组中未找到"&Str(x)&",删除不成功"EndIfEndSub数组的移动PublicSubp(a%())'该过程是用于整理数组a,使其中小于零的元素移到数组的前端,'大于零的元素移到数组的后端,等于零的元素留在数组的中间。Dimi%,low%,high%,t%low=0i=0high=UBound(a)-1doWhile----1----Ifa(i)<0Thent=a(i)a(i)=a(low)a(

4、low)=t----2----i=i+1ElseIfa(i)>0Thent=a(i)a(i)=a(high)a(high)=t-----3-----Else----4----EndIfLoopEndSub参考答案:PublicSubp(a%())'该过程是用于整理数组a,使其中小于零的元素移到数组的前端,'大于零的元素移到数组的后端,等于零的元素留在数组的中间。Dimi%,low%,high%,t%low=0i=0high=UBound(a)-1DoWhilei<=highIfa(i)<0Thent=a(

5、i)a(i)=a(low)a(low)=tlow=low+1i=I+1ElseIfa(i)>0Thent=a(i)a(i)=a(high)a(high)=thigh=high-1Elsei=i+1EndIfLoopEndSubPrivateSubForm_Click()Dima(4)AsIntegerFori=0To3a(i)=InputBox("")Printa(i);NextiCallp(a)PrintFori=0To3Printa(i);NextiEndSub匹配的次数OptionExplicitP

6、ublicSubfindstr()'该过程通过调用matchCount函数计算子串s2在母串s1中匹配的次数Dims1AsString,s2AsStrings1="itisadog,butitisnotagooddog!"'母串s2="dog"'子串Form1.Print----1----‘matchCount(s1,s2)EndSubFunctionmatchCount(str1AsString,str2AsString)AsInteger'本函数计算子串str2在母串str1中的匹配次数DimnumA

7、sInteger,iAsInteger,posAsIntegernum=0Fori=1To----2----'从第1个字符开始循环找‘Len(str1)pos=----3----‘InStr(Right(str1,Len(str1)-i+1),str2)Ifpos>0Then'找到了指定的字符串num=num+1'次数加1----4----'继续向前找‘i=i+pos-1ElseExitFor'没找到,退出EndIfNextimatchCount=numEndFunction字符数组移动m个位置Publi

8、cSubMoveStr(a$(),m%,TagAsBoolean)'该过程是把字符数组移动m个位置,当Tag为True左移,则前m个字符移到字符数组尾。Dimi%,j%,t$DimcIfTagThenFori=1Tomc=a(0)forj=0to----1----a(j)=a(j+1)Nextj-----2-----NextiElseFori=1Tom------3------forj=Ubound(A)-----4-----

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。