回 帖 发 新 帖 刷新版面

主题:如何从键盘输入数字,则程序一直输出这个数字,一直到按下esc键为止

如何从键盘输入数字,则程序一直输出这个数字,一直到按下esc键为止

这个程序如何用QB实现

回复列表 (共6个回复)

沙发

CLS
INPUT s
DO
  PRINT s
LOOP UNTIL INKEY$ = CHR$(27)
END

板凳

比我早一步!
CLS
INPUT N
DO
  PRINT N
LOOP UNTIL INKEY$ = CHR$(27)
END

3 楼

怎么又是抄的?

4 楼

你也抄过?

5 楼

没有啊!

6 楼

CLS
INPUT s
print s
while chr$(ltrim$(str$(s)))<>27:print s:wend
END

我来回复

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