Question

vb输出图形 急 0 1 1 1 2 2 2 2 2 3 3 3 3 3 3 3 4 4 4 4 4 4 4 4 4 5

Answer 1

Dim i As Integer, j As Integer, n As Integer

For i = 0 To 9

n = i

If n > 4 Then n = 9 - n

For j = 1 To 2 * n + 1

Print i;

Next j

Print

Next i