用循环么？如果是要编写一个程序，在文本框中输入一个数再form click就会显示出这个数的阶乘，怎么编啊？
第1个回答 推荐于2017-09-22
Private Sub Form_Click()
Dim i As long, C As Long,n as Long
n=val(text1.text)
C=1
For i = 1 To n
C=C*i
Next i
Print C
End Sub
注意，如果n太大了，会溢出的哦。本回答被提问者采纳
Dim i As long, C As Long,n as Long
n=val(text1.text)
C=1
For i = 1 To n
C=C*i
Next i
Print C
End Sub
注意，如果n太大了，会溢出的哦。本回答被提问者采纳
第2个回答 2008-06-14
private sub form1_click()
dim i as integer
dim temp as long
for i=1 to cint(text1.text)
temp=temp * i
next i
print temp;
end sub
dim i as integer
dim temp as long
for i=1 to cint(text1.text)
temp=temp * i
next i
print temp;
end sub
