回 帖 发 新 帖 刷新版面

主题:30分有人要吗?

请帮小弟编个程序:
    
        *      *      *
       ***    ***    ***
      *****  *****  *****
     *********************

回复列表 (共4个回复)

沙发

CLS
FOR i = 1 TO 4
  FOR j = 1 TO 3
    PRINT SPC(4 - i); STRING$(2 * i - 1, "*"); SPC(4 - i);
  NEXT j
  PRINT
NEXT i

板凳

能告诉我   print spc(4-i);string$(2*i-1);spc(4-i)是什么意思吗?

3 楼

PRINT SPC(4 - i); STRING$(2 * i - 1, "*"); SPC(4 - i);

与PRINT 语句有关的函数
(1)TAB(n)
  PRINT TAB(列)
  屏幕最左边的列为1,最右边的列为最大行宽-1
  显示位置为第(n MOD 行宽)列
(2)SPC(n)
  PRINT SPC(空格数)
  n可以是数值常量,数值变量 或是数值表达式
  SPC(n)后隐含有一个分号
  n为0~32767间的整数(非整数自动四舍五入)
(3)SPACE$(n)
  返回一个由n个空格组成的字符串
  n可以是数值常量,数值变量 或是数值表达式
  n为0~30906间的整数(非整数自动四舍五入)
(4)STRING$(n, str)
  返回一个由n个str组成的字符串
  n可以是数值常量,数值变量 或是数值表达式
  n为0~30906间的整数(非整数自动四舍五入)

4 楼

?"         *      *      *"
?"       ***    ***    ***"
?"      *****  *****  *****"
?"     *********************"

我来回复

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