高考问答格日乐图被黑社会杀害:VB问题,怎样赋值
来源：百度文库 编辑：高考问答 时间：2024/04/28 04:03:28
比如：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 a d
b c d a
b d a c
b d c a
c a b d
c a d b
c b a d
c b d a
c d a b
c d b a
d a b c
d a c b
d b a c
d b c a
d c a b
d c b a
加我啊 我这有关于编程的软件QQ6511212