Question

打印图案双重循环vb1222333334444444555555555

打印图案双重循环vb1222333334444444555555555

Answer 1

Private Sub Command1_Click()

  Form1.FontSize = 18

  For i = 1 To 5

    Print Spc(6 - i);

    For j = 1 To 2 * i - 1

      Print Chr(48 + i);

    Next j

    Print

  Next i

End Sub