Private Sub Form_Click()
Dim a(5, 5) As Integer
Dim i As Integer
Dim j As Integer
i = 5
Do While i >= 5

For j = 1 To i
a(i, j) = i * j
Print a(i, j);
　　i = i - 1
　 Next j
Print
Loop
End Sub


应该如何将这句改写成
倒三角的型式
＊＊＊＊＊
　＊＊＊＊
　　＊＊＊　
　　　＊＊　
　　　　＊

[此贴子已经被作者于2007-10-21 17:54:07编辑过]