请教一个循环算法
怎样才能列出组合数组中所有的可能dim ArrTxt(4,6)
ArrTxt(1,0)=4 '第1列有4行
ArrTxt(1,1)="A1"
ArrTxt(1,2)="A2"
ArrTxt(1,3)="A3"
ArrTxt(1,4)="A4"
ArrTxt(2,0)=3'第2列有3行
ArrTxt(2,1)="B1"
ArrTxt(2,2)="B2"
ArrTxt(2,3)="B3"
ArrTxt(3,0)=2'第3列有2行
ArrTxt(3,1)="C1"
ArrTxt(3,2)="C2"
ArrTxt(4,0)=3'第4列有3行
ArrTxt(4,1)="D1"
ArrTxt(4,2)="D2"
ArrTxt(4,3)="D3"
'-------
'A1 B1 C1 D1
'A2 B2 C2 D2
'A3 B3 D3
'A4
列出所有的组合，如下
A1B1C1D1
A1B1C1D2
A1B1C1D3
A1B1C2D1
A1B1C2D2
A1B1C2D3
......
。。。。
怎样写代码？（列数不一定是4列
