小女子请各位大侠帮忙啊！！急如何在VB中分别读入两个文本文件，然后将两个文本中的数据逐行按公式计算。

假设文件存储在d:\1.txt和d:\2.txt中，行数相等，一行一个数据。
建一个Command1。公式如有错误，请楼主再说清楚点，或者把幂表示为乘积的形式。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Open "d:\1.txt" For Input As 1
Open "d:\2.txt" For Input As 2
Dim T As String, R As String
Do While EOF(1) = False
Line Input #1, T
Line Input #2, R
Print T, R, 0.19 * (20 + Val(T)) * (20 + Val(T)) * (1 - Val(R))
Loop
Close
End Sub

dim a() as single,b() as single,c() as single
dim n1 as long,n2 as long
dim s as string
dim i as long

n1=0:n2=0
open "d:\data\t.txt" for input as #1
do while not eof(1)
n1=n1+1
redim preserve a(n1)
line input #1,s
a(n1-1)=val(s)
loop
close #1

open "d:\data\r.txt" for input as #1
do while not eof(1)
n2=n2+1
redim preserve b(n2)
line input #1,s
a(n2-1)=val(s)
loop
close #1<