Question

VB中输出如下矩阵，如图，求代码

Answer 1

Sub test()
    Dim a(3, 3)
    Dim i As Integer
    Dim j As Integer
       
    For i = 0 To 3
        For j = 0 To 3
            a(i, j) = (i + j) Mod 4 + 1
        Next
    Next
       
End Sub

Answer 2

sub xx()
dim i as integer,m as integer,StrA as String
for i = 1 to 4
for m = i to i + 3
If m Mod 4 <> 0 Then StrA = StrA & " " & m Mod 4 Else StrA = StrA & " " & 4
next m
stra = strA & Chr(10)
next
msgbox strA
end sub