Private Sub Command1_Click()Dim i As Integer, j As IntegerFor i = 1 To 9 Print i; For j = 1 To 5 Print j; Next For j = 2 To 6 Print j; Next PrintNextEnd Sub
