UC知道VB问题,怎样赋值
来源：百度知道 编辑：UC知道 时间：2024/05/28 04:09:22
有个数组x(4),想把它们分别赋与a,b,c,d，应该有24中赋值的排列，代码怎么写？24中赋值方式我都要用到。
比如：m(1 to 3, 1 to 6),需要排列的是1，2，3，第一行1，2，3，第二行1，3，2，第三行2，1，3，都写到二维数组m中。
比如：m(1 to 3, 1 to 6),需要排列的是1，2，3，第一行1，2，3，第二行1，3，2，第三行2，1，3，都写到二维数组m中。
修改了一下
Dim d(1 To 4) As String
Dim x(1 To 4,1 to 24) As String
d(1) = "a"
d(2) = "b"
d(3) = "c"
d(4) = "d"
cnt=0
For i = 1 To 4
For j = 1 To 4
If j <> i Then
For k = 1 To 4
If k <> i And k <> j Then
For n = 1 To 4
If n <> i And n <> j And n <> k Then
cnt=cnt+1
x(1,cnt)=d(i)
x(2,cnt)=d(j)
x(3,cnt)=d(k)
x(4,cnt)=d(n)
End If
Next n
End If
Next k
End If
Next j
Next i
排列：
a b c d
a b d c
a c b d
a c d b
a d b c
a d c b
b a c d
b a d c
b c