Private Sub Command1_Click() Cls Dim n%, i%, j% n = Val(Text1.Text) For i = 1 To n For j = 1 To n