Question

如何用VB编写一个由"*"组成的倒三角形 ********* ******* ***** *** *

Answer 1

Private Sub Command1_Click()
For i = 5 To 1 Step -1
Print Space(10 -i);
For j = 2 * i - 1 To 1 Step -1
Print "*";
Next j
Print
Next i
End Sub

Answer 2

Private Sub Form_Click()
Dim i, j As Integer
For i = 5 To 1 Step -1
For j = 1 To 6 - i
Print " ";
Next j
For j = 1 To 2 * i - 1
Print "*";
Next j
Print
Next i
End Sub

Answer 3

Private Sub Form_Click()
For i = 1 To 6
Print Tab(12 + i);
For j = 1 To 12 - (2 * i - 1)
Print "*";
Next j
Next i