主题：QB打字母菱星怎么打啊？
江湖小虾米
[专家分：0] 发布于 2005-10-25 20:21:00
A
A B A
A B C B A
A B C D C B A
A B C B A
A B A
A 用QB编程打这个图形怎么打啊？
回复列表 （共5个回复）
沙发
江湖小虾米 [专家分：0] 发布于 2005-10-25 20:22:00
A
A B A
A B C B A
A B C D C B A
A B C B A
A B A
A
是这个样子才对！呵呵！~
板凳
moz [专家分：37620] 发布于 2005-10-25 21:38:00
File Edit View Search Run Debug Calls Utility Options Help
┌───────────────── Untitled ──────────┤↑├─┐
│INPUT a$
│x% = ASC(a$ + CHR$(32)) - ASC("A")
│FOR i% = 0 TO x% * 2
│ y% = x% - ABS(i% - x%)
│ PRINT SPACE$((x% - y%) * 2);
│ FOR j% = 0 TO y% * 2
│ PRINT CHR$(y% - ABS(j% - y%) + ASC("A")); CHR$(32);
│ NEXT
│ PRINT
│NEXT
3 楼
ttosoft [专家分：0] 发布于 2005-10-26 10:58:00
呵呵...好像我运行不了? 能指点一下吗??
4 楼
江湖小虾米 [专家分：0] 发布于 2005-10-26 19:24:00
谢谢，我试试看！~
5 楼
zhangyang9007 [专家分：80] 发布于 2006-01-20 19:24:00
a$="A B C D C B A "
for i=1 to 4
print tab(6-i);
print left$(2*i)+right$(2*(i-1));
next i
for i=3 to 1 step-1
print tab(6-i);
print left$(2*i)+right$(2*(i-1));
next i
end
很简单嘛！
我来回复
您所在位置：