Private Sub Form_Click()Dim i, jFor i = 1 To 5 For j = 1 To 5 If i <> j Then Print 1; Else Print 0; End If Next PrintNextEnd Sub