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

第8章 过程 制作：柳淑花 实训十 子 过 程 一、实训目的 1、掌握通用过程的定义和调用方法。 2、了解形参和实参的对应关系及参数传递的方式。 二、实训内容 1、通用过程 【实训要求】 随机产生两个数组并按由小到大的顺序排序， 然后将它们合并到第三个数组中（合并后的数组 仍然有序）。要求： sx10_1.vbp 下一页 （1）编写一个CreatArr子过程，产生有n个元素的 数组，其元素是随机产生的1 到100之间的数； （2）编写一个Sort子程序，对数组按递增次序排列； （3）编写一个Merge子程序，将两个数组进行合并； （4）编写一个PrintArr子程序，将数组显示在窗体上。 （5）编写一个按钮的Click 事件过程，分别调用上述过程。 其运行效果见图： 上一页 下一页 【实训步骤】 第1步：启动VB，打开一个新的标准工程。 第2步：在窗体上添加一个命令按钮Command1。 第3步：编写代码： （1）编写如下四个过程： Option Base 1 ‘ 数组的下标从1开始 Public Sub creatarr(a%(), n%) ‘产生数组的过程 Dim i% For i = 1 To n a(i) = Int(Rnd * 100 + 1) Next End Sub 上一页 下一页 Public Sub Sort(a%(), n%) ‘ 排序过程（选择法递增排序） Dim i%, j%, t% For i = 1 To imin = i For j = i + 1 To n If a(j) a(imin) Then imin = j Next t = a(i) a(imin) = t Next End Sub 上一页 下一页 Public Sub PrintArr( a%( ) ) ‘ 输出数组过程 Dim i% For i = LBound(a) To If Then ‘ 每行输出10个数 Print a(i) Else Print a(i); End If Next Print End Sub 上一页 下一页 Public Sub Merge(a%(), b%(), c%() ) ‘ 合并数组过程 Dim ia%, ib%, ic%, ina%, inb%, inc% ina = UBound(a) ‘ 数组a 的元素个数 inb = UBound(b) ‘ 数组b 的元素个数 inc = ina + inb ‘ 合并后的数组的元素个数 ia = 1: ib = 1: ic = 1 Do While ia = ina And ib = inb 当两个数组没有都读完 If a(ia) b(ib) Then c(ic) = a(ia): ia = ia + 1 Else End If Loop 上一页 下一页 Do While ia = ina ‘ 如果数组 a 没有读完 ic = ic + 1 Loop Do While ib = inb ‘ 如果数组 b 没有读完 ic = ic + 1 Loop End Sub 上一页 下一页 Private Sub Command1_Click( ) Cls Dim aa%(10), bb%(8), cc%(18) Call creatarr(aa(), 10) Sort aa(), 10 Print Print 打印aa数组 Call creatarr(bb(