实习5.doc.docVIP

一、实习目的 1. 通过实习理解过程基本概念； 2. 掌握创建过程的方法和过程调用方法， 理解Sub过程和Function过程的异同； 3. 掌握Sub过程和Function过程程序设计方法； 4. 掌握过程调用时参数传递的两种方式及特点； 5. 理解过程、变量的作用域； 6. 理解递归的概念及编程方法特点。 二、实习内容 (1)p149例6-1、p156例6-71.代码 Sub fact(x%, f#) Dim i% f = 1 For i = 1 To x f = f * i Next i End Sub Private Sub Command1_Click() Me.FontSize = 20 Dim m%, n%, s#, y# n = 10: Call fact(n, y) s = y m = 6: Call fact(m, y) s = s / y Call fact(n - m, y) s = s / y Print CMN= s End Sub 结果 2.代码 Function fact#(ByVal n%) Dim i%, f# f = 1 For i = 1 To n f = f * i