[VB6 ] 請各位板友指點

[blue0427 (呆呆吟)]

我想要run出下面的圖形

  *
 ***
*****
 ***
  *

我把y設定為空格的個數 把z設定為*的個數

x則為行數

我只能正確的跑出我要的y和z的個數

可是不知道該怎麼寫程式碼使個數轉換成"空格"跟"*"

嗯...不知道各位板友懂我的意思嗎@@

===================以下為我寫的程式碼===============================
Private Sub Form_Activate()
    Dim v, w, x, y, z As Integer
    v = 0
    w = 0
    y = 2
    z = 1
    For x = 1 To 3
        x = x
        y = y - v
        z = z + w
        v = 1
        w = 2
        Print "第"; x; "行", y; " ", z; "*"
    Next
    For x = 4 To 5
        x = x
        v = 1
        w = 2
        y = y + v
        z = z - w
        Print "第"; x; "行", y; " ", z; "*"
    Next
End Sub
==================================以下為run出的結果================

第1行   2       1*
第2行   1       3*
第3行   0       5*
第4行   1       3*
第5行   2       1*

===================================================================


謝謝各位^^

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 220.135.237.44
→ LPH66:提示: 你可以用for來印
→ blue0427:請問是把Print "第"; x; "行", y; " ", z; "*"
→ blue0427:改成for..........print嗎?
→ blue0427:已經寫出來了，謝謝！