小菜菜学vb系列(二）
说实话，我体会编程的乐趣在于程序运行成功的那一刻，有一种成就感，自信心大大增强，不知道我说的对不对，
设s=1*2*3*.....*n,求s不大于4000时最大的n
Private Sub Command1_Click()
Dim n, s, z As Integer
n = 1
s = 1
Do While (s <= 4000)
s = n * s
n = n + 1
Loop
z = n - 1
Print z
End Sub
同志们，回贴吧，希望我们能成为朋友！！

[解决办法]
不错，但这个结果应该是错误：溢出。



[解决办法]
这个...我也是刚开始学的,和你有一样的感觉