Private Sub Command1_Click() Dim I As Integer, J As Integer, K As Integer For I = 1 To 9 For J = 1 To I Print I; Next J Print Next I End Sub
