计算机VB简单编程题目实训十

《计算机VB简单编程题目实训十》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实训十子过程一、实训目的1、掌握通用过程的定义和调用方法。2、了解形参和实参的对应关系及参数传递的方式。二、实训内容1、通用过程【实训要求】随机产生两个数组并按由小到大的顺序排序，然后将它们合并到第三个数组中（合并后的数组仍然有序）。要求：sx10_1.vbp下一页（1）编写一个CreatArr子过程，产生有n个元素的数组，其元素是随机产生的1到100之间的数；（2）编写一个Sort子程序，对数组按递增次序排列；（3）编写一个Merge子程序，将两个数组进行合并；（4）编写一个PrintArr子程序，将数组显示在窗体上。（5）编写一个按钮的Click事件过程，分别调用上述过

2、程。其运行效果见图：上一页下一页【实训步骤】第1步：启动VB，打开一个新的标准工程。第2步：在窗体上添加一个命令按钮Command1。第3步：编写代码：（1）编写如下四个过程：OptionBase1‘数组的下标从1开始PublicSubcreatarr(a%(),n%)‘产生数组的过程Dimi%Fori=1Tona(i)=Int(Rnd*100+1)NextEndSub上一页下一页PublicSubSort(a%(),n%)‘排序过程（选择法递增排序）Dimi%,j%,t%Fori=1Toimin=iForj=i+1TonIfa(j)

3、xtt=a(i)a(imin)=tNextEndSub上一页下一页PublicSubPrintArr(a%())‘输出数组过程Dimi%Fori=LBound(a)ToIfThen‘每行输出10个数Printa(i)ElsePrinta(i);EndIfNextPrintEndSub上一页下一页PublicSubMerge(a%(),b%(),c%())‘合并数组过程Dimia%,ib%,ic%,ina%,inb%,inc%ina=UBound(a)‘数组a的元素个数inb=UBound(b)‘数组b的元素个数inc=ina+inb‘合并后的数组的元素个数ia=1:ib=1

4、:ic=1DoWhileia<=inaAndib<=inb'当两个数组没有都读完Ifa(ia)

5、arr(bb(),8)Print运行程序，单击按钮即可显示如上图所示的结果Print"打印bb数组"Mergeaa(),bb(),cc()PrintPrint"打印cc数组"EndSub上一页下一页【实训要求】编写一子过程MoveStr()PublicSubMoveStr(a$(),m%,TagAsBoolean）其功能是把字符数组移动m个位置，当Tag为True时左移，将前m个字符移到字符数组尾，例如：“abcdefghij”左移3个位置后，结果为“defghijabc”；当Tag为False时右移，将后m个字符移到字符数组前，例如：“abcdefghij”右移3个位置后

6、，结果为“hijabcdefg”。试编写一主调程序调用之。2、做一做sx10_2.vbp上一页下一页【实训要求】从数组a中删除数组b中已有的数后形成新的数组x。要求：单击窗体自动产生数组a和数组b（随机产生40—70之间的整数）；单击“删除”按钮，删除相同的元素，并将剩余元素打印出来。结果如图：sx10_3.vbp3、做一做上一页下一页【实训要求】编写一个子程序DeleStr(s1,s2)，将字符串s1中出现的s2子字符串删去，结果还是存放在s1中。界面如图：sx10_4.vbp4、做一做上一页下一页【实验要求】统计输入的文章中的单词数，并将出现的定冠词The全部去除，同时

7、统计删除的定冠词个数。（假定单词间以一个空格分隔）与数组有关的函数：ArrayLBoundUBoundSplit函数：从一个字符串中，以某个指定的符号为分隔符，分离若干个子字符串，建立一个下标从0开始的一维数组。格式：Split(<字符串表达式>[,<分隔符>])Filter函数：去处定冠词Filter(a,“The”,False)Join函数：合并字符数组Join(字符数组)5、做一做sx10_5.vbp上一页下一页【实训要求】通过调用过程，显示如图所示的结果：【实训步骤】第1步：启动VB，打开一个新的标准工程。