小女子请各位大侠帮忙啊!!急如何在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中的数据。假设两个文本中的数据已经一一对应好。可以直接逐行计算。结果要求保留两位小数哦。
展开
 我来答
ARTERIOSCLEROS
2008-09-29 · TA获得超过4183个赞
知道大有可为答主
回答量:1672
采纳率:0%
帮助的人:2417万
展开全部
假设文件存储在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
fyeat111
2008-09-29 · TA获得超过993个赞
知道小有建树答主
回答量:445
采纳率:0%
帮助的人:378万
展开全部
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)是两个文件的第二行的计算结果;
依此类推...
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
baerbasi
2008-09-29 · TA获得超过156个赞
知道答主
回答量:60
采纳率:0%
帮助的人:36.6万
展开全部
0.19*(20+val(t))*(2^(1-val(r)))

在能详细点么?
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式