怎么在窗口上打印出一个符合*和空格相间，并组成一个正的三角形？

直接用符合打印容易，但要符号和空格相间我实在想不出来，不知道应该怎么设计代码？
意思就是：第一行1个符号，第2行3个符号，并且是符号。空格。符号。空格。符号这样排列，第3行5个符号，也是符号空格符号的排列，最后组成一个正的▲（三角形）

把符号和空格可不可以看成一个整体啊？第一行是一个符号空格，第二行是两个符号空格

不感兴趣

开通SVIP免广告

问题是怎么输出呢？

本来刚开始是想到用String，可气的是只能重复字符串的首字符，思索中…… 嘿嘿本人是vb新手见笑了

Option Explicit
Private Sub Command1_Click()
Dim LineNum As Integer, i As Integer, k As Integer, str As String
LineNum = Val(InputBox("输入所需行数"))
For i = 1 To LineNum
     str = String(2 * (LineNum - i), " ")
     For k = 1 To 2 * i - 1
         str = str & "*" & " "
     Next k
     Print str
Next i
End Sub

看来楼上大神已经给出答案了，嘿嘿今天中午午休的时候还在想楼主提出的问题，晚上回到宿舍后又查了点资料，写出一个来，你看行不行。窗体上只要一个按钮就OK Private Sub Command1_Click() Dim i As String i = "* * * * * * * * " Dim a As Integer For a = 1 To 8 Print String(8 - a, " ") & Right(i, 2 * a); Print Next a End Sub 这样只用了一个简单的循环和RIGHT，只是总觉得自己这样写有种骗人的想法，我手机发的代码可能有些乱，求手机发帖技巧

回复：4楼
对是，string只能重复第一个字母，我就在这没着了……

回复：5楼
哇，谢谢。

不感兴趣

开通SVIP免广告

Private Sub Command1_Click()
Dim LineNum%, i%, str$
LineNum = Val(InputBox("输入所需行数"))
str = Space(LineNum * 2 - 2) & "*"
For i = 1 To LineNum
Print str
str = Mid(str, 3) & " * *"
Next i
End Sub

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

8回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六