Private Sub Command1_Click()
Dim n As Integer
Dim itotal As Integer
itotal = 1
n = 1
For n = 1 To 10
itotal = itotal * n
Next
print "计算1*2*3*...*10=" &itotal
End Sub


     想求得1*2*3*...*10的结果