一个组合问题！

[liujin8118]

请教一下大虾，我有一个组合问题！

b1中有a1＝1,a2＝2,a3＝3三个数
b2中有a4＝4,a5＝5,a6＝6三个数
b3中有a7＝3,a8＝2,a9＝7三个数
b4中有a10＝9,a11＝4,a12＝6三个数

从b1,b2,b3,b4中任取一个数进行组合
请问，有多少种组合？
在PB中如何编程以实现上述组合所有情况的输出，输出结果如下：

a1*a4*a7*a10=?(具体得数)
a1*a4*a7*a11=?(具体得数)
a1*a4*a7*a12=?(具体得数)
a1*a4*a8*a10=?(具体得数)
......

[dawugui]

--在SQL SERVER中用四个表实现
create table tb1(id int)
insert into tb1 values(1)
insert into tb1 values(2)
insert into tb1 values(3)
create table tb2(id int)
insert into tb2 values(4)
insert into tb2 values(5)
insert into tb2 values(6)
create table tb3(id int)
insert into tb3 values(7)
insert into tb3 values(8)
insert into tb3 values(9)
create table tb4(id int)
insert into tb4 values(10)
insert into tb4 values(11)
insert into tb4 values(12)
go

select show = cast(tb1.id as varchar) + '*' + cast(tb2.id as varchar) + '*' + cast(tb3.id as varchar) + '*' + cast(tb4.id as varchar) ,
 val = tb1.id * tb2.id * tb3.id * tb4.id from tb1,tb2,tb3,tb4

drop table tb1,tb2,tb3,tb4

/*
show     val
-------- ---
1*4*7*10 280
1*5*7*10 350
1*6*7*10 420
1*4*8*10 320
1*5*8*10 400
1*6*8*10 480
1*4*9*10 360
1*5*9*10 450
1*6*9*10 540
1*4*7*11 308
1*5*7*11 385
1*6*7*11 462
1*4*8*11 352
1*5*8*11 440
1*6*8*11 528
1*4*9*11 396
1*5*9*11 495
1*6*9*11 594
1*4*7*12 336
1*5*7*12 420
1*6*7*12 504
1*4*8*12 384
1*5*8*12 480
1*6*8*12 576
1*4*9*12 432
1*5*9*12 540
1*6*9*12 648
2*4*7*10 560
2*5*7*10 700
2*6*7*10 840
2*4*8*10 640
2*5*8*10 800
2*6*8*10 960
2*4*9*10 720
2*5*9*10 900
2*6*9*10 1080
2*4*7*11 616
2*5*7*11 770
2*6*7*11 924
2*4*8*11 704
2*5*8*11 880
2*6*8*11 1056
2*4*9*11 792
2*5*9*11 990
2*6*9*11 1188
2*4*7*12 672
2*5*7*12 840
2*6*7*12 1008
2*4*8*12 768
2*5*8*12 960
2*6*8*12 1152
2*4*9*12 864
2*5*9*12 1080
2*6*9*12 1296
3*4*7*10 840
3*5*7*10 1050
3*6*7*10 1260
3*4*8*10 960
3*5*8*10 1200
3*6*8*10 1440
3*4*9*10 1080
3*5*9*10 1350
3*6*9*10 1620
3*4*7*11 924
3*5*7*11 1155
3*6*7*11 1386
3*4*8*11 1056
3*5*8*11 1320
3*6*8*11 1584
3*4*9*11 1188
3*5*9*11 1485
3*6*9*11 1782
3*4*7*12 1008
3*5*7*12 1260
3*6*7*12 1512
3*4*8*12 1152
3*5*8*12 1440
3*6*8*12 1728
3*4*9*12 1296
3*5*9*12 1620
3*6*9*12 1944

(81 行受影响)
*/

[dawugui]

--在PB中用四个数组+循环实现,以下代码未测试。
int b1[3]
int b2[3]
int b3[3]
int b4[3]

b1[1] = 1 , b1[2] = 2 , b1[3] = 3
b2[1] = 4 , b2[2] = 5 , b2[3] = 6
b3[1] = 7 , b3[2] = 8 , b3[3] = 9
b4[1] = 10 , b4[2] = 11 , b4[3] = 12

int i1,i2,i3,i4

for i1 = 1 to 3
    for i2 = 1 to 3
        for i3 = 1 to 3
            for i4 = 1 to 3
                b1[i1] * b2[i2] * b3[i3] * b4[i4]
            end for
        end for
    end for
end for

[dawugui]

--在PB中用四个数组+循环实现,以下代码未测试。
int b1[3]
int b2[3]
int b3[3]
int b4[3]
int b5[]

b1[1] = 1 , b1[2] = 2 , b1[3] = 3
b2[1] = 4 , b2[2] = 5 , b2[3] = 6
b3[1] = 7 , b3[2] = 8 , b3[3] = 9
b4[1] = 10 , b4[2] = 11 , b4[3] = 12

int i1,i2,i3,i4
int j = 0

for i1 = 1 to 3
    for i2 = 1 to 3
        for i3 = 1 to 3
            for i4 = 1 to 3
                j = j + 1
                b5[j] = b1[i1] * b2[i2] * b3[i3] * b4[i4]
            end for
        end for
    end for
end for

[f_mei520]

幫你頂，一個算法而已。