《计算机VB简单编程题目实训十》由会员分享，可在线阅读，更多相关《计算机VB简单编程题目实训十（15页珍藏版）》请在金锄头文库上搜索。
1、第8章 过程 制作：柳淑花实训十实训十 子子 过过 程程一、实训目的一、实训目的 1、掌握通用过程的定义和调用方法。 2、了解形参和实参的对应关系及参数传递的方式 。 二、实训内容二、实训内容 1、通用过程 【实训要求】随机产生两个数组并按由小到大的顺序排序 ， 然后将它们合并到第三个数组中（合并后的数组 仍然有序）。要求： sx10_1.sx10_1.vbpvbp下一页第8章 过程 制作：柳淑花（1）编写一个CreatArr子过程，产生有n个元素的数组，其元素是随机产生的1 到100之间的数； （2）编写一个Sort子程序，对数组按递增次序排列； （3）编写一个Merge子程序，将两个数组进
2、行合并； （4）编写一个PrintArr子程序，将数组显示在窗体上 。 （5）编写一个按钮的Click 事件过程，分别调用上述 过程。 其运行效果见图：上一页下一页第8章 过程 制作：柳淑花【实训步骤】 第1步：启动VB，打开一个新的标准工程。 第2步：在窗体上添加一个命令按钮Command1。 第3步：编写代码： （1）编写如下四个过程：Option Base 1 数组的下标从数组的下标从1 1开始开始Public Sub creatarr(a%(), n%) 产生数组的过程产生数组的过程Dim i%For i = 1 To na(i) = Int(Rnd * 100 + 1)NextEnd
3、 Sub上一页下一页第8章 过程 制作：柳淑花 Public Sub Sort(a%(), n%) 排序过程（选择法递增排序排序过程（选择法递增排序 ）Dim i%, j%, t%For i = 1 To imin = iFor j = i + 1 To nIf a(j) ,)Filter函数：去处定冠词 Filter(a, “ The ”,False)Join函数：合并字符数组 Join(字符数组)5、做一做 sx10_5.sx10_5.vbpvbp上一页下一页第8章 过程 制作：柳淑花【实训要求】通过调用过程，显示如图所示的结果： 【实训步骤】 第1步：启动VB，打开一个新的标准工程。 第
4、2步：在窗体上添加二个命令按钮Command1 和Command1 。 第3步：编写代码： （1）编写如下二个Sub 过程：6、用不同的参数传递方式调用过程上一页下一页第8章 过程 制作：柳淑花Sub tryout1(ByVal x as integer, ByVal y as integer)x=x+100y=y*6print “x=“ ; x，”y=“ ; y End SubSub tryout2( x as integer, y as integer)x=x+100y=y*6print “x=“ ; x，”y=“ ; y End Sub上一页下一页第8章 过程 制作：柳淑花 （2）编写命
5、令按钮的事件如下 ： Private Sub Command1_Click()Dim a%, b%PrintPrint “传值调用：“a = 10: b = 20Print “a=“; a, “b=“; b End SubPrivate Sub Private Sub Command2_Click()Command2_Click()Dim a%, b% Dim a%, b%Print PrintPrint “ Print “传址调用：传址调用：“ “a = 10: b = 20a = 10: b = 20Print “a=“; a, “b=“; b Print “a=“; a, “b=“; b End SubEnd Sub本实验主要用来说明传值调用与传址调用的区别。传 值调用只是把实参值的拷贝传递给形参，本身没有任何变 化，调用前与调用后的值相同。而传址调用传送的是使参 的地址，调用过程后实参的值也随之变化。上一页
