vb递归函数题型分析.docVIP

vb递归函数题型分析 递归函数 求最大公约数 Public Function gcd(M As Integer, N As Integer) As Integer If (M Mod N) = 0 Then gcd = N Else gcd = gcd(N, M Mod N) End If End Function Private Function fact(N As String) As Double If N = 1 Then fact = 1 Else fact = N * fact (N - 1) End If End Function 5. 执行下面的程序，第一行输出结果是___(23)___，第二行输出结果是___(47)___。 Option Explicit Private Sub Form_Click() 打印 A/X Dim A As Integer 2 A = 2 5 Call Sub1(A) 11 End Sub 23 23 Private Sub Sub1(X As Integer) 47 47 X = X * 2 + 1 If X 10 Then Call Sub1(X) End If X = X * 2 + 1 Print X End Sub 示例:(1998年)运行下面的程序，当单击窗体时，窗体上显示的内容的第一行是 ，第二 行是 。 Private Sub Test(x As Integer) x = x * 2 + 1 If x 6 Then Call Test(x) End If x = x * 2 + 1 Print x End Sub Private Sub Form_Click() Test 2 End Sub 分析:本程序共发生三次过程调用:第一次是Form_Click对Test调用，第二次和第三次都 是Test对自身的递归调用，终止条件是X=11，所以应该有三次的逐层返回。 答案: 23 47 5(执行下面程序，单击命令按钮Command1后，显示在窗体上第一行的内容是 ，第二行的内容是 ，第三行的内容是 。 Option Explicit Private Sub Command1_Click() Dim N As Integer, M As Integer N , 2 Do While M 3 N , N + 2 If Fun(N) Then Print N M , M + 1 End If Loop End Sub Private Function Fun(ByVal N As Integer) As Boolean If N / 2 , Int(N / 2) Then Fun , Fun(N / 2) Else If N , 1 Then Fun , True End If End Function 解析:本题考察的递归函数问题。表达式“N / 2 , Int(N / 2)”等式成立表示N能被2整除，当N能被2整除就继续递归调用，否则就终止递归调用;当N为1时，Fun返回True。最终4、8、16这3个自然数能满足上述条件。 答案: 4 8 16 4. 执行下面的程序，图片框第一行内容是 CBA ，图片框第一行内容是 ABC 。 Option Explicit Private Sub Command1_Click() Dim S As String S,ABC Back S Picture1.Print Picture1.Print S End Sub Private Sub Back(St As String) If Len(St)1 Then Back(Right(St, Len(St)-1)) End If Picture1.Print Left(St,1); End Sub 17、(2003年春)运行下面程序，单击命令按钮Command1，则在窗体上显示的第一行内容是 ，第二行内容是 ，文本框Text1中显示的内容是 。 Private Sub Command1_Click() Dim S As String S = LAUSIV Text1.Text = display(S, Len(S)) End Sub Private Function display(S As String, L As Integer) As String If L 1 Then display = display(S, L - 1) S = Left(S, L - 1) Right(S, 1) Mid(S,