Question

单击命令按钮的时候在窗体上输出1！＋2!+3!＋….50!的值 ，怎么写代码？

具体答案和过程

Answer 1

写个循环嵌套就行了

VB代码如下：（运算结果是：3.10350532295462E+64）

Private Sub Command1_Click()
Dim Jc As Double, I As Integer, J As Integer, Jch As Double

Jch = 0
For I = 1 To 50
Jc = 1
For J = 1 To I
Jc = Jc * J
Next J
Jch = Jch + Jc
Next I

Text1.Text = Jch

End Sub