Dim N As Integer, A As Double N = 10A = 1 For i = 2 To N A = A * i Next i Print A
n=6a=1for i=2 to 6 x=x & "*" & inextx=n & "!=" & x结果：6!=1*2*3*4*5*6
不会
