第1个回答 2009-03-20
dim i,j=1,s=0
for i=1 to 10
j=j*i
s=s+j
next
print s
具体自己再看看,就是这个思想,很简答的,本回答被提问者和网友采纳
第2个回答 2009-03-20
Private Sub Command1_Click()
For i = 1 To 10
n = 1
For k = 1 To i
n = n * k
Next k
s = s + n
Next i
Print s
End Sub
第3个回答 2009-03-20
dim s,t as long
s=0
for i=1 to 10
t=1
for j=1 to i
t=t*j
next
s=s+t
next
msgbox s
第4个回答 2009-03-20
Private Sub Form_Load()
Me.AutoRedraw = True
Dim i As Integer
Dim j As Long
Dim s As Long
j = 1
s = 0
For i = 1 To 10
j = j * i
s = s + j
Next i
Print s
End Sub