[讨论]求100 的阶乘
Private Sub Command1_Click()
Dim i As Integer
Dim s As Double
i = 1
s = 1
For i = 1 To 100 Step 1
s = s * i
Next i
Print "100的阶乘数为"; s
End Sub
结果 为 9.33262154439441E+157
如何得到 得到不失真的值
93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000
