主题:30分有人要吗?
陈贺QB
[专家分:140] 发布于 2005-06-18 09:59:00
请帮小弟编个程序:
* * *
*** *** ***
***** ***** *****
*********************
回复列表 (共4个回复)
沙发
飞鸟12 [专家分:2830] 发布于 2005-06-18 10:26:00
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
板凳
陈贺QB [专家分:140] 发布于 2005-06-18 10:43:00
能告诉我 print spc(4-i);string$(2*i-1);spc(4-i)是什么意思吗?
3 楼
飞鸟12 [专家分:2830] 发布于 2005-06-18 11:01:00
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 楼
def [专家分:3380] 发布于 2005-06-18 23:46:00
?" * * *"
?" *** *** ***"
?" ***** ***** *****"
?" *********************"
我来回复