Patterns in VB

Dim I As Integer
Dim J As Integer
Dim K As Integer

Private Sub Command1_Click()
Form1.Cls
For I = 1 To 5
    For J = 1 To 5
        Print J;
    Next J
    Print
Next I
End Sub

Private Sub Command10_Click()
Form1.Cls
For I = 1 To 5
    For J = 1 To I
        Print J Mod 3;
    Next J
    Print
Next I
End Sub

Private Sub Command11_Click()
Form1.Cls
For I = 1 To 5
    For J = 1 To I
        Print "*"; Space(2);
    Next J
    Print
Next I
End Sub

Private Sub Command12_Click()
Form1.Cls
For I = 5 To 1 Step -1
    For J = 1 To I
        Print "*"; Space(2);
    Next J
    Print
Next I
End Sub

Private Sub Command13_Click()
Form1.Cls
K = 1
For I = 1 To 5
    For J = 1 To I
    Print K;
    K = K + 1
    Next J
    Print
Next I
End Sub

Private Sub Command14_Click()
Form1.Cls
K = 1
For I = 1 To 5
    For J = 1 To I
    Print K;
    K = K + 2
    Next J
    Print
Next I
End Sub

Private Sub Command15_Click()
Form1.Cls
K = 2
For I = 1 To 5
    For J = 1 To I
    Print K;
    K = K + 2
    Next J
    Print
Next I
End Sub

Private Sub Command16_Click()
Form1.Cls
K = 1
For I = 1 To 5
    For J = 1 To I
    Print K Mod 2;
    K = K + 1
    Next J
    Print
Next I
End Sub

Private Sub Command17_Click()
Form1.Cls
K = 0
For I = 1 To 5
    For J = 1 To I
    Print K Mod 2;
    K = K + 1
    Next J
    Print
Next I
End Sub

Private Sub Command18_Click()
Form1.Cls
K = 1
For I = 1 To 5
    For J = 1 To I
    Print K Mod 3;
    K = K + 1
    Next J
    Print
Next I
End Sub

Private Sub Command19_Click()
Form1.Cls
For I = 5 To 1 Step -1
    For J = I To 1 Step -1
    Print J;
    Next J
    Print
Next I
End Sub

Private Sub Command2_Click()
Form1.Cls
For I = 1 To 5
    For J = 1 To 5
        Print I;
    Next J
    Print
Next I
End Sub

Private Sub Command20_Click()
Form1.Cls
For I = 10 To 1 Step -2
    For J = I To 1 Step -2
    Print J;
    Next J
    Print
Next I
End Sub

Private Sub Command21_Click()
Form1.Cls
For I = 9 To 1 Step -2
    For J = I To 1 Step -2
    Print J;
    Next J
    Print
Next I
End Sub

Private Sub Command22_Click()
Form1.Cls
For I = 9 To 1 Step -2
    For J = I To 1 Step -2
    Print I;
    Next J
    Print
Next I
End Sub

Private Sub Command23_Click()
Form1.Cls
For I = 10 To 1 Step -2
    For J = I To 1 Step -2
    Print I;
    Next J
    Print
Next I
End Sub

Private Sub Command24_Click()
Form1.Cls
For I = 9 To 1 Step -2
    For J = I To 1 Step -2
    Print I Mod 3;
    Next J
    Print
Next I
End Sub

Private Sub Command25_Click()
Form1.Cls
For I = 1 To 5
    For J = 1 To 5
        Print Chr(J + 64); Space$(2);
    Next J
    Print
Next I
End Sub

Private Sub Command26_Click()
Form1.Cls
For I = 1 To 5
    For J = 1 To 5
        Print Chr(I + 64); Space$(2);
    Next J
    Print
Next I
End Sub

Private Sub Command27_Click()
Form1.Cls
For I = 1 To 5
    For J = 1 To I
        Print Chr(J + 64); Space$(2);
    Next J
    Print
Next I
End Sub

Private Sub Command28_Click()
Form1.Cls
For I = 5 To 1 Step -1
    For J = 1 To I
        Print Chr(J + 64); Space$(2);
    Next J
    Print
Next I
End Sub

Private Sub Command29_Click()
Form1.Cls
For I = 5 To 1 Step -1
    For J = I To 1 Step -1
        Print Chr(J + 64); Space$(2);
    Next J
    Print
Next I
End Sub

Private Sub Command3_Click()
Form1.Cls
For I = 1 To 5
    For J = 1 To I
        Print I;
    Next J
    Print
Next I
End Sub

Private Sub Command30_Click()
Form1.Cls
For I = 5 To 1 Step -1
    For J = 1 To I
        Print Chr(J + 96); Space$(2);
    Next J
    Print
Next I
End Sub

Private Sub Command4_Click()
Form1.Cls
For I = 5 To 1 Step -1
    For J = 1 To I
        Print I;
    Next J
    Print
Next I
End Sub

Private Sub Command5_Click()
Form1.Cls
For I = 1 To 5
    For J = 5 To I Step -1
        Print J;
    Next J
    Print
Next I
End Sub

Private Sub Command6_Click()
Form1.Cls
For I = 1 To 5
    For J = 1 To I
        Print J;
    Next J
    Print
Next I
End Sub

Private Sub Command7_Click()
Form1.Cls
For I = 1 To 5
    For J = 1 To I
        Print I Mod 2;
    Next J
    Print
Next I
End Sub

Private Sub Command8_Click()
Form1.Cls
For I = 1 To 5
    For J = 1 To I
        Print J Mod 2;
    Next J
    Print
Next I
End Sub

Private Sub Command9_Click()
Form1.Cls
For I = 1 To 5
    For J = 1 To I
        Print I Mod 3;
    Next J
    Print
Next I
End Sub

Private Sub Form_Load()
Form1.ForeColor = vbBlue
Form1.FontSize = 24
End Sub