请教各位大哥,有帮我的吗? — 编程爱好者社区

您所在位置：社区首页 — QBasic讨论区 — 请教各位大哥,有帮我的吗?

主题：请教各位大哥,有帮我的吗?

lingjun [专家分：0] 发布于 2005-06-29 17:55:00

各位大哥好，请教一个初学者问题，如何输出下列图形，刚学   qb,见笑了
              *
             ***
            *****
           *******
            *****
             ***
              *

本帖地址： http://bbs.pfan.cn/post/87599.html

回复列表（共12个回复）

11 楼

网虫一号 [专家分：1230] 发布于 2007-09-21 14:20:00

cls
input n
m=n\2
for i=-m to m
print tab(abs(i)+1);
print string$(n-abs(i)*2,"*")
next i
end

12 楼

QB小猪 [专家分：1200] 发布于 2007-09-27 14:25:00

cls
input n
m=n\2
for i=-m to m
?tab(abs(i)+1);string$(n-abs(i)*2,"*")
next i
end
简单吧

首页
前一页
1
2
后一页
尾页

我来回复

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

主题：请教各位大哥,有帮我的吗?

回复列表（共12个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：请教各位大哥,有帮我的吗?

回复列表 （共12个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共12个回复）