Question

使用vb进行排列组合

有一个3行3列矩阵，从这个矩阵的每一行抽取一个元素，然后组成一个三维数组，一共可以组成27个，这个计算过程如何通过vb实现

Answer 1

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

    Print

  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

追问

如果矩阵用

表示，程序该如何写，谢谢

追答

你把dim a(3,3) 换成为　dim q(3,3) 可以吗？

Answer 2

每次找一个数，再用一个矩阵打标记（是否取过）找完即可