作业帮 > 数学 > 作业

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

来源:学生作业帮 编辑:大师作文网作业帮 分类:数学作业 时间:2024/11/17 04:10:32
VB:在不同的窗体上分别计算:y=(5!+7!)/8!和s=1!+2!+...+10!的值.要求在标准模块中定义求阶乘的函数过程
VB:在不同的窗体上分别计算:y=(5!+7!)/8!和s=1!+2!+...+10!的值.要求在标准模块中定义求阶乘的
form1上:
Private Sub Form_Click()
f = 1
For i = 1 To 8
f = f * i
If i = 5 Then a = f
If i = 7 Then b = f
Next i
y = (a + b) / f
Print "y=(5!+7!)/8!=" & y
End Sub
form2上:
Private Sub Form_Click()
f = 1
For i = 1 To 10
For j = 1 To i
f = f * j
Next j
s = s + f
Next i
Print "s=1!+2!+……+10!=" & s
End Su