vb求n的阶乘n<=10.n=n*(n-1)*(n-2)*...*2*1

Private Sub Command1_Click()
Dim i, j, k
For i = 1 To 10
k = 1
For j = 1 To i
k = k * j
Next
Print i & "!=" & k