[VB6 ] 請各位板友指點
我想要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
→
04/14 01:19, , 1F
04/14 01:19, 1F
→
04/14 10:02, , 2F
04/14 10:02, 2F
→
04/14 10:03, , 3F
04/14 10:03, 3F
→
04/14 22:09, , 4F
04/14 22:09, 4F