作者blue0427 (呆呆吟)
看板Visual_Basic
標題[VB6 ] 請各位板友指點
時間Sun Apr 13 23:48:40 2008
我想要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
1F：→ LPH66:提示: 你可以用for來印 04/14 01:19
2F：→ blue0427:請問是把Print "第"; x; "行", y; " ", z; "*" 04/14 10:02
3F：→ blue0427:改成for..........print嗎? 04/14 10:03
4F：→ blue0427:已經寫出來了，謝謝！ 04/14 22:09