主题：[求助]几道QB编写程序的题目，望大虾指教！
675605545
[专家分：0] 发布于 2007-06-08 23:14:00
几道QB编写程序的题目，望大虾指教！
编一个程序，打印出如下面图所示的图形：
1
-1 12
1 -12 124
-1 12 -124 1246
1 -12 124 -1246 12468
利用双重循环编程打印如图所示的图形：
1
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
A B C B A
A B A
A
回复列表 （共4个回复）
沙发
knate [专家分：570] 发布于 2007-06-09 00:06:00
貌似不懂，！！！
多问一句，那些版主干什么去了！
板凳
moz [专家分：37620] 发布于 2007-06-09 06:17:00
你有意见？
3 楼
Matodied [专家分：7560] 发布于 2007-06-09 09:30:00
超级简单。
第1题：
CLS
a$ = "12468"
DIM a(5, 5)
FOR i = 1 TO 5
a(i, i) = VAL(MID$(a$, 1, i))
FOR j = i + 1 TO 5
a(j, i) = a(j - 1, i) * -1
NEXT j
NEXT i
FOR i = 1 TO 5: FOR j = 1 TO 5
IF a(i, j) <> 0 THEN PRINT a(i, j); " ";
NEXT j: PRINT : NEXT i
END
第2题：
CLS
FOR i = 1 TO 4 '上半部分
PRINT TAB(10 - i * 2); : k = i - 1
FOR j = -k TO k
PRINT LTRIM$(STR$(k - ABS(j) + 1)); " ";
NEXT j
PRINT
NEXT i
FOR i = 1 TO 3 '下半部分
PRINT TAB((i + 1) * 2); : k = 3 - i: l = 68 - i
FOR j = -k TO k
PRINT CHR$(l - ABS(j)); " ";
NEXT j
PRINT
NEXT i
END
4 楼
Templar9d [专家分：2110] 发布于 2007-06-09 23:05:00
版主都被我拐去喝酒了
我来回复
您所在位置：