如何在VB下实现1000的阶乘

Private Sub Command1_Click()
Dim i As Long
Dim j As Long
Dim a As String
Open "e:\1000.txt" For Output As #1 '生成的数据太大，所以写进文件
For i = 1 To 1000
For j = 1 To 1000
a = a & i & "*" & j & "=" & i * j & " "
DoEvents
Next j
Print #1, a
a = ""
Next i
Close
MsgBox "ok"
End Sub

dim i,a
a=1
for i=1 to 1000
a=a*i
next
print a

如果你知道递归函数的运用，就很简单了(一般的VB教程都这个知识点，你去翻阅一下就很快明白了)。编写一个递归函数就可以了，另外注意一下数值类型，定义为足够大的类型（long 或double).