首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

小菜菜学vb系列(二),该怎么处理

2012-02-22 
小菜菜学vb系列(二)说实话,我体会编程的乐趣在于程序运行成功的那一刻,有一种成就感,自信心大大增强,不知

小菜菜学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
同志们,回贴吧,希望我们能成为朋友!!

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



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

热点排行