5章节 过程.pptVIP

第5章 过程;本章内容;5.1 Sub过程;5.1.1 引例;;【例5-1】编一过程，实现标签控件的向左或向右移动，其中标签的移动方向和距离由参数Flag决定。 Sub LbMove(ByVal Flag As Integer) Label1.Left = Label1.Left + Flag End Sub Private Sub Command1_Click() Call LbMove(-100) End Sub Private Sub Command2_Click() Call LbMove(100) End Sub 程序运行后，单击Command1命令按钮，调用LbMove子过程，将实参-100传递给形参Flag，从而使Label1向左移动100。同理，单击Command2命令按钮则使Label1向右移动100。可见，LbMove过程没有返回值，仅对标签Label1的左右移动进行处理。;5.1.2 建立Sub过程;5.1.3 调用Sub过程;【例5-2】编一过程，实现两个数的交换。;【例5-2】编一过程，实现两个数的交换。 Swap过程的定义 Sub Swap(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x: x = y: y = t Print 调用后：; a=; x; ,b=; y End Sub 调用Swap过程 Private Sub Form_Click() Dim a As Integer, b As Integer a = 3: b = 4 Print 调用前：; a=; a; ,b=; b Call Swap(a, b) End Sub ;5.1.4 通用过程与事件过程;5.2.1 建立函数过程;【例5-3】编一求最大公约数的函数过程。;【例5-3】编一求最大公约数的函数过程。 Function gcd(m As Integer, n As Integer) As Integer If m n Then t = m: m = n: n = t r = m Mod n Do While r 0 m = n: n = r: r = m Mod n Loop gcd = n End Function;5.2.2 调用函数过程;【例5-4】编一函数HuiWen，用于判断一个字符串是否“回文”。所谓“回文”是指字符串顺读与倒读都是一样的，如“abcba”。;【例5-4】编一函数HuiWen，用于判断一个字符串是否“回文”。所谓“回文”是指字符串顺读与倒读都是一样的，如“abcba”。 定义HuiWen函数过程 Function HuiWen (str1 As String) As String Dim L As Integer, k As Integer, Ls As String, Rs As String L = Len(str1):k = 1 Do Ls = Mid(str1, k, 1) 从左边起逐个取出一个字符 Rs = Mid(str1, L - k + 1, 1) 从右边起逐个取出一个字符 If Ls Rs Then Exit Do k = k + 1 Loop While k = L / 2 HuiWen = IIf(k L / 2, 是回文, 不是回文) End Function 调用HuiWen函数过程 Private Sub Form_Click() Dim s As String s = InputBox(请输入任意字符串) Print s; HuiWen(s) End Sub ;5.2.3 函数过程与Sub过程的区别;5.3 参数传递;5.3.2 引用与传值;【例5-5】两个变量交换的过程，分别用传值和引用方式，请注意区分调用结果。;【例5-5】两个变量交换的过程，分别用传值和引用方式，请注意区分调用结果。 Sub Swap1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x: x = y: y = t End Sub Sub Swap2(ByRef x As Integer, ByRef y As Integer) Dim t As Integer t = x: x = y: y = t End Sub Private Sub form_Click() Dim a As Integer, b As Integer a = 1: b = 2 Swap1 a, b