关于数据库(foxpro)----帮忙做一做，谢了各位！

[pantech_36]

我不懂foxpro，请做完整的给我，先谢了，分马上到！


关于数据库(foxpro)

4.关于数据库(foxpro)

1.口袋中有红,黄,蓝,白,黑,五种颜色的球若干个,每次从口袋中先后取出3个球,问得到三种不同色的求的可能取法,输出每种排列的情况.



2.有数据表E1 和 E2,E1的每个记录对应一名考生,结构为:

KHZH C 8(考核证号)

BMCS N 1(报名场数)

E2 为空,结构为:

KHZH C 8(考核证号)

XH C 1(序号)

CJ N 3(成绩)



要求依据E1中每名考生的报名场数在E2 中生成相应个数的记录,填入考核证号,序号填入字符1,2,3,........

(每名考生的序号都从1开始)

[zhongyj]

1.
local i,j,k,count1

count1=5
dim d1[count1]
for i=1 to count1
d1[i]="color"+trans(i)
endfor
=acopy(d1,d2)
=acopy(d1,d3)
for i=1 to count1
for j=1 to count1
for k=1 to count1
?d1[i]+'-'+d2[j]+"-"+d3[k]
endfor
endfor
endfor

[zhongyj]

2.下面的程序在VFP6.0下才能正常運行
local i
select 0
use E1
scan
for i=1 to BMCS
insert into e2 (KHZH) value (E1.KHZH)
endfor
endscan
sele E2
replace all XH with left(trans(recno()),1) && XH C 1(序号) 結構定義有問題

[zhongyj]

更正
dim d1[count1] -> dime d1[count1]

[boomit]

1、其实这就是一个算法问题，程序很简单。楼上的用的是穷举法。。