星号图形 — 编程爱好者社区

主题：星号图形

savior928 [专家分：0] 发布于 2006-04-05 11:45:00

程序如下：
Cls
For i = 1 To 5
Print Tab(10 + i);
For j = 1 To 8
Print "*"
Next j
Print
Next i
End
执行完后不能得到
                    ********
                     ********
                      ********
                       ********
                        ********
用的的是qb4.5请大家给点意见，谢了！！

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

回复列表（共15个回复）

11 楼

随便你好 [专家分：530] 发布于 2007-03-30 16:45:00

在 PRINT"*"的后面要加分号--"；"

12 楼

小精灵LS [专家分：580] 发布于 2007-04-01 16:52:00

cls
for i=1 to 5
print tab(10+i);
print string$(8,"*")
next i
end

13 楼

游戏之王 [专家分：540] 发布于 2007-04-04 16:38:00

你这个粗心的楼主!记住PRINT "*";分号一定要加
加上分号再试试!!!

14 楼

小精灵LS [专家分：580] 发布于 2007-04-04 17:35:00

cls
for i=1 to 5
print tab(i);string$(8,"*")
next i
end

15 楼

汤中的水 [专家分：0] 发布于 2007-07-19 14:09:00

Cls
For i = 1 To 5
  Print Tab(10 + i);
    For j = 1 To 8
      Print "*";
    Next j
  Print
Next i
End

我来回复

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

主题：星号图形

回复列表（共15个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：星号图形

回复列表 （共15个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共15个回复）