第6章过程讲述.ppt

例6.8 用递归的方法计算n!，即5!=4!*5， 4!=3!*4，…… 等。 Public Class Form1 Private Function Muln(ByVal n As Integer) As Integer If n=0 Or n=1 Then 结束条件n=0或n=1 Muln = 1 Else Muln = Muln(n - 1) * n End If End Function ? Private Sub Form1_Click(ByVal sender As Object, ByVal e As _ System.EventArgs) Handles Me.Click Dim m As Integer, I As Integer I = InputBox(请输入一个正整数) m = Muln(I) Debug.WriteLine(M= m) End Sub End Class 例6.9 用递归的方法求斐波那契Fibonacci)数列第n个数的值，斐波那契数列各元素如下： 1，1，2，3，5，8，13，21，…… 递推公式如下： F1 = 1 F2 = 1 Fn=Fn-1 + Fn-2 己知Fn=Fn-1 + Fn-2，可以推出： F(n-1) = F(n-2) + F(n-3) F(n-2) = F(n-3) + F(n-4) …… 程序代码如下 Public Class Form1 Private Function Fib(ByVal g As Integer) 计算斐波那契(Fibonacci)数列 If g = 1 Or g = 2 Then Fib = 1 Else Fib = Fib(g - 1) + Fib(g - 2) End If End Function ? Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click Dim k As Long Dim n As Integer n = InputBox(请输入计算的数列的个数) k = Fib(n) Debug.WriteLine(Fibonacci数列第 n 个数是 k) End Sub ? End Class 6.6 综合应用 例6.10 输入一个十进制正整数，将其转换成二进制、八进制或十六进制数。 数制转换的算法如下： 将十进制数除以进制(2、8或16)，得出余数和商，将商循环地除以进制，直到商为0。 将每次相除产生的余数逆序排列，就是转换的结果。例如，将45转换成二进制数，结果为： 101101 控件 属性 属性值 说明 Form1 Name Text frmTrans 数字转换 Button1 Name Text CmdStart 开始转换 Button2 Name Text CmdClose 结束转换 TextBox1 Name Text TxtInput 空 TextBox2 Name Text TxtResult 空 ComboBox Name Items cmbSelect 2、8、16 Label1 Text 请输入十进制正整数 Label2 Text 转换进制 Label3 Text 转换结果 所需控件属性说明 程序代码如下： Public Class Form1 Dim number As Integer, n As Integer Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load n = 2 End Sub ? Private Sub cmbSelect_SelectedValueChanged(ByVal sender _ As Object, ByVal e As System.EventArgs) Handles _ cmbSelect.SelectedValueChang