[求助]大家快来看看,这个问题
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
Loop
End Sub
应该如何将这句改写成
倒三角的型式
*****
****
***
**
*
[此贴子已经被作者于2007-10-21 17:54:07编辑过]