小女子请各位大侠帮忙啊!!急如何在VB中分别读入两个文本文件,然后将两个文本中的数据逐行按公式计算。
急如何在VB中分别读入两个文本文件,然后将两个文本中的数据逐行按公式计算。公式如下:0.19(20+T)2*(1-R)注;2为平方.T为我文本1中的数据,R为文本2中的数...
急如何在VB中分别读入两个文本文件,然后将两个文本中的数据逐行按公式计算。公式如下:0.19(20+T)2*(1-R) 注;2为平方.
T为我文本1中的数据,R为文本2中的数据。假设两个文本中的数据已经一一对应好。可以直接逐行计算。结果要求保留两位小数哦。 展开
T为我文本1中的数据,R为文本2中的数据。假设两个文本中的数据已经一一对应好。可以直接逐行计算。结果要求保留两位小数哦。 展开
展开全部
假设文件存储在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
建一个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
redim c(iif(n1>n2,n2,n1))
for i=0 to iif(n1>n2,n2,n1)
c(i)=0.19*(20+a(i))^2*(1-b(i))
next
'现在,所有结果都保存在数组c()当中了
c(0)是两个文件的第一行的计算结果;
c(1)是两个文件的第二行的计算结果;
依此类推...
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
redim c(iif(n1>n2,n2,n1))
for i=0 to iif(n1>n2,n2,n1)
c(i)=0.19*(20+a(i))^2*(1-b(i))
next
'现在,所有结果都保存在数组c()当中了
c(0)是两个文件的第一行的计算结果;
c(1)是两个文件的第二行的计算结果;
依此类推...
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
0.19*(20+val(t))*(2^(1-val(r)))
在能详细点么?
在能详细点么?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询