VB.....剛剛學有些地方布太懂

Question

請問一下怎麼用*排成一個菱形就用1個3個5個3個1個這樣排出來要怎麼寫壓

.....忘了說不可以用強制的

Answer 1

Private Sub Command1_Click()
Dim i, j, star As Integer
For i = 1 To 5
Print Spc(Abs(3 - i));
If i <= 3 Then
star = (i - 1) * 2 + 1
Else
star = (5 - i) * 2 + 1
End If
For j = 1 To star
Print "*";
Next j
Print
Next i
End Sub

Answer 2

請到http://tw.knowledge.yahoo.com/question/?qid=1206102510115參考!
才解決不了多久!

Answer 3

Print(" *")
Print(" ***")
Print("*****")
Print(" ***")
Print(" *")

2006-10-27 10:45:42 補充：
這個也行Dim i, j As Integers = " *****"For i = 1 To 5If i > 3 Then j = 6 - i Else j = iPrint Mid(s, j, j + 2)Next i