vb阶乘 VB:在不同的窗体上分别计算:y=/8!和s=1!+2!+...+10!的值.要求在标准模块中定义求阶乘的

题目：

VB:在不同的窗体上分别计算:y=(5!+7!)/8!和s=1!+2!+...+10!的值.要求在标准模块中定义求阶乘的函数过程

解答：

form1上：Private Sub Form_Click()f = 1For i = 1 To 8f = f * iIf i = 5 Then a = fIf i = 7 Then b = fNext iy = (a + b) / fPrint "y=(5!+7!)/8!=" & yEnd Subform2上：Private Sub Form_Click()f = 1For i = 1 To 10For j = 1 To if = f * jNext js = s + fNext iPrint "s=1!+2!+……+10!=" & sEnd Su