Visual Basic 程序设计教程第9章 过程.pptVIP

例题9-12 过程调用实现数据排序问题 Option Base 1 Private Sub Choose_Sort(arr() As Integer) Dim i As Integer, j As Integer, Temp As Integer For i = 1 To UBound(arr) – 1 For j = i + 1 To UBound(arr) If arr(i) arr(j) Then Temp = arr(i) arr(i) = arr(j)  arr(j) = Temp End If Next j Next i End Sub Private Sub Form_Click() Dim a(10) As Integer, i As Integer Print 排序前： For i = 1 To 10 a(i) = Int(Rnd * (100 - 1)) + 1 Print a(i); Next I Call Choose_Sort(a) Print Print 排序后： For i = 1 To 10 Print a(i); Next I End Sub 例题9-13 过程调用实现数组的赋值 Option Base 1 Private Sub init(arr() As Integer) Dim i As Integer, n As Integer n = Val(InputBox(请输入待排序的数据的个数:)) ReDim arr(n) 根据用户的输入，重新设置动态数组的大小 For i = 1 To n arr(i) = Int(Rnd * (100 - 1)) + 1 Next I End Sub Private Sub Choose_Sort(arr() As Integer) … End Sub Private Sub Form_Click() Dim a() As Integer , i As Integer Call init(a) Print 排序前： For i = 1 To UBound(a) Print a(i); Next I Call Choose_Sort(a) Print Print 排序后： For i = 1 To 10 Print a(i); Next I End Sub 9.4 参数传递 9.4.4 对象参数传递 窗体或控件作为过程的参数 在过程定义的形参表中，若把形参变量的类型声明为“Control”，就可以向过程传递控件；若把类型声明为“Form”，则可向过程传递窗体 注意，对象的传递只能是按地址传递 完成对于多个对象的统一的属性的设置，以及类似的操作 [例题9-14] 例题9-14 过程调用实现控件对象的字体初始化 Private Sub Form_Load() Dim i As Integer Call fontinit(Label1) 调用过程初始化标签对象的字体 Call fontinit(Text1) 调用过程初始化文本框对象的字体 For i = 0 To 3 通过循环初始化选项按钮数组的字体 Call fontinit(Option1(i)) Next I End Sub Sub fontinit(x As Control) 对象字体初始化过程 x.FontSize = 15 x.FontName = “黑体” x.FontItalic = True End Sub 9.5 过程的嵌套调用 过程的嵌套调用——指在某个过程的调用过程中，又调用了一个或若干个过程 每一次调用结束后，总是返回本次调用的断点处 9.5.1 嵌套调用其他过程 [例题9-15] Private Sub Form_Click() … Call Choose_Sort(a) … End Sub Sub Choose_Sort(…) … Call Swap(arr(i), arr(j)) … End Sub Sub Swap(…) … End Sub 例题9-15 过程嵌套调用实现排序过程Choose_Sort Private Sub Choose_Sort(arr() As Integer) Dim i As Inte