菜鸟请教：比较简单的VB编程问题-->nuciewth转移
Open "C:\Documents and Settings\david\桌面\CAL\朝阳\CHY100" For Input As #1
Open "C:\Documents and Settings\david\桌面\CAL\朝阳\CHY180" For Output As #2
I = 0
Do While Not EOF(1)
I = I + 1
ReDim Preserve A(I, 18)
For J = 1 To 18
If Not EOF(1) Then Input #1, A(I, J)
'A(7, J) = A(7, J) + A(I, J)
Next J
Loop
A(I, 5) = A(I, 5) / 1.21
A(I, 6) = A(I, 6) / 1.21
Print #2, A(I, J)
Close #1
Close #2
