[求助]请教各位教师一个简单的循环问题

lyhlyh

(叙述一大段，实际是个小问题，请教师们一定看完，并简要指点解决的步骤，菜鸟敬上）





现有12个一模一样的Excel数据表，表中有4个字段，字段为整型，值的范围为0－10，每表约有2.5万条记录，这些表分别依次命名为book1、book2、book3、……book12。其中：1、表中每条记录4个字段之和暂命名为变量“X”


2、book1至book12，每表4个字段中的数分别依次乘以4个常数，可得4个新变量（如下），这4个新变量之和暂命名为“Y”。


book1：Y=“字段一”*11+“字段二” *23+ “字段三” *35+ “字段四” *47


book2：Y=“字段一”*10+“字段二” *22+ “字段三” *34+ “字段四” *46


book3：Y=“字段一”*9+“字段二” *21+ “字段三” *33+ “字段四” *45


……


Book11：Y=“字段一”*1+“字段二” *13+ “字段三” *25+ “字段四” *37


Book12：Y=“字段一”*12+“字段二” *24+ “字段三” *36+ “字段四” *48





要求设计程序，完成以下数据的查找并将查找出的数据保存在一个Excel文件中：


在12个Excel表中，每表选取一条记录，共12条记录符合下达表达式的要求：


X book1＋X book2+ X book3 +……+ X book12=150


Y book1+ Y book1+ Y book1+……+ Y book1=3880


将找到的12条记录以横排的形式作为一条记录，共有48个字段，按book1、 book2、 book3……book12的顺序排列，然后将所有符合要求的共有48个字段的记录保存在一个Excel文件中。

阿笨

EXCEL我不懂，假设是ACCESS中的12张表吧

for i=1 to 12

  docmd.runSql("update BOOK" & i & " set y=字段1*" & iif(cStr(12-i)<1,12,cStr(12-i)) & " + 字段2*" & iif(cStr(24-i)<12,24,cStr(24-i)) & " +字段3*" & iif(cStr(36-i)<24,36,cStr(36-i)) & " +字段4*" & iif(cStr(48-i)<36，48，cStr(48-i)) and x=字段1+字段2+字段3+字段4)

next



i=0

set rs=currentproject.connection.execute("select sum(x) as SumOfX, sum(Y) as SumOfY,id from (select x,y,id from book1 union all select x,y,id from book2.....union all select x,y,id from book12) group by id")

rs.filter=rs("SumOfX=150 and SumOfY=3880")

这时rs里面就是同一个ID里X的值和Y的值分别为150和3880的了.

怎么个填法,看不懂你写的内容,自己写吧.



以上未做调试,只是想想的,如有错误,还请原谅