VB操作题递归操作题.docVIP

VB操作题递归操作题 PAGE PAGE 2 VB2--递归操作题 一、操作题，每题10分，6题共60分 【第1题】 打开“考生文件夹\388\工程1.vbp”，完善程序并保存。 实现功能：用递归法求5!+6!+7!的值。 Public Function Fac(a As Long) As Integer If a = 1 Then Fac = ① Else Fac = a * ②(a - 1) End If End Function Private Sub Command1_Click() Dim S As Long S = Fac(5) + Fac(③) + Fac(7) Print S= CStr(S) End Sub 【第2题】 打开文件“考生文件夹\178\工程1.vbp”，完善Command1_Click事件及fac函数并保存。 实现功能：用递归法求3!+5!+7!的值，将结果输出到窗体上。 Public Function Fac(a As Long) As Integer If a = 1 Then Fac = ① Else Fac = a * ②(a - 1) End If End Function Private Sub Command1_Click() Dim S As Long