第六章过程讲述.ppt

* 调用过程： Private Function Fact(n as Integer) as Integer if n=1 then Fact = 1 else Fact = n* Fact(n-1) endif End Function Private Function Fact(n as Integer) if n =1 then Fact = 1 else Fact = n* Fact(n-1) endif End Function 4 5 n =2 n = 1 * 调用过程： Function Fact( 5 as Integer) Fact = 5* Fact(4) End Function Function Fact( 4 as Integer) Fact = 4* Fact(3) End Function Function Fact( 3 as Integer) Fact = 3* Fact(2) End Function Function Fact( 2 as Integer) Fact = 2* Fact(1) End Function Function Fact( 1 as Integer) Fact = 1 End Function * 运行下面的程序，单击窗体后，从键盘上输入字符串“abcdef”，窗体上显示的第一行输出结果为 第二行输出结果为 。 Private Sub Form_Click() Dim s1 As String, s2 As String s1 = InputBox(输入一个字符串) Try s1, s2 Print s1 Print s2 End Sub Private Sub Try(c As String, d As String) Dim a As String Static i As Integer i = i + 1 a = Mid(c, i, 1) If Mid(c, i, 1) Then Try c, d d = d a End Sub * Private Sub Form_Click() Dim s1 As String, s2 As String s1 = InputBox(输入一个字符串) Try s1, s2 Print s1 Print s2 End Sub ( 实参值：s1 = “abcdef” , s2 = “” ) * Private Sub Try(c As String, d As String) Dim a As String Static i As Integer i = i + 1 a = Mid(c, i, 1) If Mid(c, i, 1) Then Try c, d d = d a End Sub 1 ( c=s1 = “abcdef” , d=s2 = “” ) ( i = 1 , a = “a” , d = “” ) (s2 = d = “fedcba” ) * Private Sub Try(c As String, d As String) Dim a As String Static i As Integer i = i + 1 a = Mid(c, i, 1) If Mid(c, i, 1) Then Try c, d d = d a End Sub 2 ( c=s1 = “abcdef” , d=s2 = “” ) ( i = 2 , a = “b” , d = “” ) (d = “fedcb” ) * Private Sub Try(c As String, d As String) Dim a As String Static i As Integer