private sub Form_Click()
Dim n As Integer
Dim sum As Integer
sum = 0
n = Val(Text1.Text)
For i = 1 To n
Dim temp As Integer
temp = 1
For j = 1 to i
temp = temp*i
Next j
sum = sum + temp
Next i
Text2.Text = sumEnd Sub
可以设计文本框1为N赋值命令接钮的CLICK代码n=thisform.text1.value &&单击文本框右键点选文本的生成器,设置其为数值型数据。if n>1s=0for i=1 to nk=1for j=1 to n k=k*jendfors=s+kendforthisform.text2.value=sendif