# 问40!函数

Posted by Jocer on April 18, 1999 at 22:33:42:

嗨：
各位前辈，最近开始学VB，写了一个40!函数，如下：
1.宣告整数阵列K(40)
2.以下用VB语法
Option Base 1
For i=1 to 40 '确定阵列归零
K(i)=0
Next i
k(1)=1

For i=1 to 输入值 '(我是用Text1.text)
For j=1 to 40
K(j)=K(j)*i
If K(j)>9 Then '判断进位
K(j+1)=K(j+1)+K(j)\10
K(j)=K(j) Mod 10
End if
Next j
Next i
3.由K(40)至K(1)输出即所得

问题：
1.在TC下执行正常，但VB每次都当(没有回应)，还不至于重开机那么
严重，但为什么不能执行？
2.有同学质疑这方法是否太浪费记忆体了，因此请问是否有其他的方
法？
希望有人能为我解答，谢谢

Follow Ups:

- Re: 问40!函数 Honey 23:20:49 4/19/99 (0)