UC知道用VB编程计算：1！+2！+3！+4！+…+n!
来源：百度知道 编辑：UC知道 时间：2024/05/10 21:33:48
要全部的VB代码,要是一个可用的工程!只是说的看不懂,呵呵 要能出来结果的 没有错误的 呵呵
新建一个工程，添加个命令按钮和一个文本框
代码如下：
Private Sub Command1_Click()
n = Val(Text1.Text)
s = 0 '存结果
For i = 1 To n
t = 1 '临时存积的变量
For j = 1 To i '计算阶乘
t = t * j
Next j
s = s + t
Next i
Print "结果为：" & s
End Sub