1、1有 5 个人坐在一起,问第 5 个人多少岁,他说比第 4 个人大 2 岁。问第 4 个人的岁数，他说比第 3 个人大 2 岁。问第 3 个人，他又说比第 2 个人大 2 岁。问第 2 个人，他说比第 1 个人大 2 岁。最后问第 1 个人，他说是 10 岁。请问第 5 个人多少岁。要求定义一求第 n 个人年龄的递归函数过程，过程名为 age，形参为 n.通过调用此过程完成功能。2定义一求 n!的递归函数过程 Fact，通过调用它完成求 1!+2!+3!+4!+5!。3M 函数定义如下： 设计一个计算 M(n)的过程 M(n)，并计算 M(30)、M(40)、M(50) 、M(60)、M(70
2、)、M(80)、M(90) 、M(100)、M(110)、M(120)的函数值。4. 用户由文本框输入一串英文字符，统计其中各英文字母出现的次数。对于读程序题目也要求上交，把代码输入到 VB 中理解含义，保存上交。5.此题目与 6.2.3 知识点的理解相关，请大家参见下面的例题：Form1 界面设计如下图 ,从左向右对应Command1,Command2,Command3,Command4：Form2 中定义的 sub 子程序过程：Public Sub add(ByVal a%, ByVal b%) 此处若定义为 private 不可以,私有不能被其他窗体调用Dim c%c = a + bFo
3、rm1.Print cEnd SubForm1 中 Command1 代码：Private Sub Command1_Click()Dim a%, b%a = InputBox(“)b = InputBox(“)Call Form2.add(a, b) 调用其他窗体模块中的过程，调用语句应加上窗体名End Sub标准模块 Module1.bas 中的代码：Public Function ave(ByVal a%, ByVal b%) As Single 此处若定义为 private 是否可以M(n) M(M(n 1) n 10n 10 n10 ave = (a + b) / 2End Func
4、tionPublic Function add(ByVal a%, ByVal b%) 此处若定义为 private 是否可以add = a + bEnd Function标准模块 Module2.bas 中的代码：Public Function add(ByVal a%, ByVal b%) 此处若定义为 private 是否可以add = a + bEnd FunctionForm1 中 Command2 代码：Private Sub Command2_Click()Dim a%, b%a = InputBox(“)b = InputBox(“)Print ave(a, b) 调用标准模块
5、 1 中的 ave 过程，因在标准模块 2 中无同名过程，故不需要加模块名End Sub Form1 中 Command3 及 Command4 代码：Private Sub Command3_Click()Print Module1.add(4, 5) 因标准模块 1 与标准模块 2 中出现了同名过程 add，故调用语句中应加上模块名。End SubPrivate Sub Command4_Click()Print Module2.add(10, 20)End Sub6窗体的通用声明处定义的模块级变量。Option Base 1Dim/Private a(4, 4) As Integer,
6、i%, j%7读程序：P123 例题,Form1 默认为启动窗体.读程序时从 Form1 的代码开始读.理解全局（公有）变量的使用。8同名变量读程序写结果。上机验证你的结果正确性。程序一：Public t as integerSub Form_Click()Dim t%t=10Form1.t=20Print Form1.t,tEnd Sub程序二：Option ExplicitPublic x As Integer, y As Integer, z As IntegerPrivate Sub Form_Activate()conflict_xDebug.Print “x,y 和 z 是“, x
7、, y, zEnd SubPrivate Sub Form_Load()x = 10y = 20z = 35End SubPrivate Sub conflict_x()Dim x As Integerx = 135Debug.Print “x,y 和 z 是“, x, y, zEnd Sub9静态变量读程序，并上机验证你得到结果的正确性：Private Sub Command1_Click()Dim k As Integerk = 5Call static_variable(k)Print “第一次调用:k=“; kk = 5Call static_variable(k)Print “第二次
8、调用:k=“; kEnd SubPrivate Sub static_variable(ByRef n As Integer)Static sta As Integersta = n + stan = sta + nEnd Sub例 6.18 编写程序，验证大于 5 的奇数可以表示成三个素数的和。Option Base 1Private Sub Command1_Click()Dim n%, p%(), L%, i%, j%, k%, f As Booleann = Val(InputBox(“请输入一个大于 5 的奇数 n:“)_L = UBound(p)For i = 1 To LFor
9、j = 1 To LFor k = 1 To LIf _ ThenPrint n; “=“; p(i); “+“; p(j); “+“; p(k);f = True_End IfNextIf f = True Then Exit ForNextIf f = True Then Exit ForNextEnd SubPublic Sub Prime(a() As Integer, n As Integer)Dim m%, i%, k%For m = 2 To nFor i = 2 To Sqr(m)If m Mod i = 0 ThenExit ForEnd IfNextIf i Sqr(m)
10、Thenk = k + 1_a(k) = _End IfNextEnd Sub例 6.19 找出 5000 以内的亲密对数。Private Sub Command1_Click()Dim i%, sum1%, sum2%For i = 1 To 5000Call S_Factors(i, sum1)Call S_Factors(sum1, sum2)If _And i sum1 And i sum1 ThenText1 = Text1 & i & “,“ & sum1 & vbCrLfEnd IfNextEnd SubPublic Sub S_Factors(ByVal n%, sum%)Dim i%sum = _For i = 1 To n - 1If n Mod i = 0 Thensum = _End IfNextEnd Sub
