用VB求阶乘和求阶乘和1!+2!+……+10!。要求:(1) 单击开始按钮后,将结果输出显示在窗体上。(2) 使用Function过程计算某个数的阶乘。
网友回答
【答案】 Private Sub Command1_Click()
For i = 1 To 10
Sum = Sum + jiecheng(i)
Next
Print Sum
End Sub
Function jiecheng(num)
jiecheng = 1
For i = 1 To num
jiecheng = jiecheng * i
Next
End Function