回 帖 发 新 帖 刷新版面

主题:星号图形

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

回复列表 (共15个回复)

沙发

Print "*";         '要加分号

板凳

Print "*";         '要加分号

3 楼

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

4 楼

少了个分号...................
最好多加个print 这样才能多空一行

5 楼

print "*";
这样你试一试可以吗
你是错在print 要紧凑输出;OK

6 楼

print "*";
加上这个分号就可以了

7 楼


Print "*";

8 楼

              for i=1 to 8
                print tab (i)
               for j=1 to 8
                print "*"
                   next
                print
                     next 
               end
 要加分 噢

9 楼


          不好意思把主要的忘记了,要加分号 “;”在PRINT “*"后面。[em12][em13][em18][em19]

10 楼

print "*"后加个";"
[em9]

我来回复

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