多段线？？

sa3226390

1. 我想用多段线做一关系曲线（库容曲线）怎么样做个循环？不必要像这样
2. points(0) =xlsheet.cells(8, 8).Value: points(1) =xlsheet.cells(8, 1).Value
3. points(2) =xlsheet.cells(9, 8).Value: points(3) =xlsheet.cells(9, 1).Value
4. points(4) =xlsheet.cells(10, 8).Value: points(5) =xlsheet.cells(10, 1).Value
5. points(6) =xlsheet.cells(11, 8).Value: points(7) =xlsheet.cells(11, 1).Value
6. points(8) =xlsheet.cells(12, 8).Value: points(9) =xlsheet.cells(12, 1).Value
7. points(10) =xlsheet.cells(13, 8).Value: points(11) =xlsheet.cells(13, 1).Value
8. points(12) =xlsheet.cells(14, 8).Value: points(13) =xlsheet.cells(14, 1).Value
9. points(14) =xlsheet.cells(15, 8).Value: points(15) =xlsheet.cells(15, 1).Value
10. points(16) =xlsheet.cells(16, 8).Value: points(17) =xlsheet.cells(16, 1).Value
11. points(18) =xlsheet.cells(17, 8).Value: points(19) =xlsheet.cells(17, 1).Value
12. points(20) =xlsheet.cells(18, 8).Value: points(21) =xlsheet.cells(18, 1).Value
13. points(22) =xlsheet.cells(19, 8).Value: points(23) =xlsheet.cells(19, 1).Value
14. points(24) =xlsheet.cells(20, 8).Value: points(25) =xlsheet.cells(20, 1).Value
15. points(26) =xlsheet.cells(21, 8).Value: points(27) =xlsheet.cells(21, 1).Value
16. points(28) =xlsheet.cells(22, 8).Value: points(29) =xlsheet.cells(22, 1).Value
17. points(30) =xlsheet.cells(23, 8).Value: points(31) =xlsheet.cells(23, 1).Value
18. points(32) =xlsheet.cells(24, 8).Value: points(33) =xlsheet.cells(24, 1).Value
19. points(34)=xlsheet.cells(25, 8).Value: points(35)=xlsheet.cells(25, 1).Value
20. points(36)=xlsheet.cells(26, 8).Value: points(37)=xlsheet.cells(26, 1).Value
21. points(38)=xlsheet.cells(27, 8).Value: points(39)=xlsheet.cells(27, 1).Value
22. points(40)=xlsheet.cells(28, 8).Value: points(41)=xlsheet.cells(28, 1).Value

复制代码

fjfhgdwfn

sa3226390发表于2006-12-15 18:32:00我想用多段线做一关系曲线（库容曲线）怎么样做个循环？不必要像这样points(0) =xlsheet.cells(8, 8).Value: points(1) =xlsheet.cells(8, 1).Valuepoints(2) =xlsheet.cells(9, 8).Value: poi

FOR I=0 TO 40 STEP2

POINTS(I)=XLSHEET.CELLS(I+8,8)..........

NEXT I