回 帖 发 新 帖 刷新版面

主题:请看看我做的几道题对不对,谢谢.

7.4 求N!,N 由键盘输入.
(1)用FOR -NEXT循环处理
  CLS
  INPUT n
   m=1
   FOR i=1 TO n
   m=m*i
   NEXT i
   PRINT  m
   END
  (2)用DO -LOOP 循环处理
   INPUT N
   i=1
   m=1
   DO WHILE i<=n
   m=m*i
   i=i+1
   LOOP
   PRINT n; "i=" m
   END

回复列表 (共4个回复)

沙发

CLS
INPUT n
m# = 1
FOR i = 1 TO n
  m# = m# * i
NEXT i
PRINT STR$(n); "! ="; m#
END

m的取值范围小,会发生溢出错误!

CLS
INPUT n
i = 1: m = 1
DO WHILE i <= n
  m = m * i
  i = i + 1
LOOP
PRINT STR$(n); "! ="; m
END

板凳

请问开头加个CLS和不加有什么作用啊?~??

3 楼

cls是清屏的意思,也就是说不加cls将保留前几次的运行结果。
我觉得其实也没什么关系,只要你习惯,也可以不加。。
其实我也初学QB不知道说对没有。。。

4 楼

谢谢飞鸟,我已经将你回复给我的几个程序记在本子上了.

我来回复

您尚未登录,请登录后再回复。点此登录或注册