Private Sub Command1_Click()
Dim a(3, 3) As Integer
Print "3*3的数组是："
For i = 1 To 3
For j = 1 To 3
a(i, j) = (i - 1) * 3 + j
Print a(i, j);
Next j
Next i
Print: Print "27种方案是："
For i = 1 To 3
For j = 1 To 3
For k = 1 To 3
Print a(1, i); a(2, j); a(3, k)
Next k
Next j
Next i
End Sub
每次找一个数，再用一个矩阵打标记（是否取过）找完即可
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024