作者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