1

1 2 3

1 2 3 4 5

1 2 3 4 5 6 7

1 2 3 4 5

1 2 3

1

Private Sub Command1_Click()

For s = 0 To 2

Print Spc(3 – s);

For I = 1 To s * 2 + 1

Print CStr(i);

Next

Print

Next

For s = 3 To 0 Step -1

Print Spc(3 – s);

For I = 1 To s * 2 + 1

Print CStr(i);

Next

Print

Next

End Sub