Visual Basic.NET程序设计夏敏捷电子教案及源代码 第6章.pptVIP

6.3.2 传址与传值 【例6.11】编写一个Function过程，用来求任意两个整数的最大公约数。调用该过程求二个数的最大公约数及最小公倍数。 分析：求两个整数的最小公倍数的公式为：将两数相乘除以它们的最大公约数。 求最大公约数的Function过程如下。 Public Function HCF(ByVal X As Long, ByVal Y As Long) As Long Dim R As Long Do R = X Mod Y If R = 0 Then HCF = Y : Exit Do Else X = Y : Y = R End If Loop End Function 6.3.2 传址与传值 求最大公约数和最小公倍数的主调过程如下。 Private Sub btnShow_Click() Handles btnShow.Click Dim A, B, C As Long A = 96 : B = 36 C = HCF(A, B) TextBox1.Text = 最大公约数： CStr(C) vbCrLf TextBox1.Text = TextBox1.Text 最小公倍数： CStr(A * B / C) End Sub 源程序 6.3.3 传递数组 可将整个数组作为参数传递给过程。 在定义过程时，形参所声明的数组的名称后必须写上一对空圆括号，即形参数组要略去数组的维度信息描述。 在调用过程时，对应实参数组名后无圆括号，且数组参数的传递方式只能是传址（ByRef）方式。 若要将数组元素作为实参，则数组名后必须有括号及数字，例如： Call Test(5, x(3)) 其中x(3)是一个数组元素，其对应形参是一个变量。 6.3.3 传递数组 【例6.12】编写一个通用Sub过程，实现一维数组的排序。调用该过程，排序一个实际的数组。 Public Enum SortSequence 排序的顺序 Small2Larg = 0 ‘升序 Larg2Small = 1 ‘降序 End Enum 说明：枚举类型SortSequence定义了两个常量Small2Larg和Larg2Small，分别表示升序、降序两种排序规则。 6.3.3 传递数组 给数组排序的Sub过程 Public Sub SortArray(ByRef Arr() As Long, ByVal D As SortSequence) Dim I, J, P, T As Long For I = LBound(Arr) To UBound(Arr) - 1 P = I For J = I + 1 To UBound(Arr) Select Case D Case SortSequence.Small2Larg 从小到大排序 If Arr(J) Arr(P) Then P = J Case SortSequence.Larg2Small 从大到小排序 If Arr(J) Arr(P) Then P = J End Select Next If P I Then T = Arr(I) : Arr(I) = Arr(P) : Arr(P) = T End If Next End Sub 6.3.3 传递数组 调用排序过程为数组排序。 Private Sub btnShow_Click() Handles btnShow.Click 主调用程序 Dim A(10), I As Long TextBox1.Text = For I = 0 To 10 A(I) = Int(100 + 900 * Rnd()) TextBox1.Text = TextBox1.Text CStr(A(I)) vbCrLf Next Call SortArray(A, SortSequence.Larg2Small) TextBox2.Text