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

这个原因,在第一期VB中级竞赛中BZ已经说过.DOUBLE是精度最差的一个.不提议用.

pascal里也行

支持
解决 高精度 大范围 这些问题的时候 用数组 还是很好的解决方法 之一

具体过程 我还不是太了解 希望高手能给个例子

[此贴子已经被作者于2007-9-22 10:59:00编辑过]

用STRING处理也可以的。

我觉得用 高精度 最好