1
222
33333
4444444
.
.
0000000000

   是三角形的   帖怎么显示错了

倒...你能先动动脑筋吗?.

最后的0是偶数个吗?

Private Sub Form_Activate()
Dim i As Integer, j As Integer
For i = 1 To 9
Print Tab(20 - i);
For j = 1 To 2 * i - 1
Print Trim(Str(i));
Next
Print
Next
Print Tab(20 - i);
Print String(2 * i - 1, "0")
End Sub

谢谢你  斑竹！！！！！对了