UC知道高手能帮我设计一下，关于VB读取TXT的问题，，新手呀。为了毕业论文，我真的快疯了。
来源：百度知道 编辑：UC知道 时间：2024/05/31 20:47:08
题目是这样的，我现在有text1,text2 ,我要根据text1,与text2的关系来得到text3.
其关系的代码如下：
Dim n！, t！, ans As Double
n = Text1.Text
t = Text2.Text
If n >= 1.3 Then
ans = t ^ 0.0269 * 0.6459
ElseIf n >= 1.1 Then
ans = t ^ 0.75378 * 0.282
ElseIf n >= 0.9 Then
ans = t ^ 0.7952 * 0.028
ElseIf n >= 0.5 Then
ans = t ^ 0.8502 * 0.0275
End If
If ans > 1 Then
Text3.Text = Format(ans, "0.00")
Else
Text3.Text = "0" + Str(Format(ans, "0.00"))
End If
End Sub
现在问题是；我们老师说这样太简单了，要我们读取TXT文档，要有试验数据记录。
请问，我该如何编了？（最好是完整）
（偶老师给我发的邮件是这样写的：例子：
打开D:\VB\下test_leak.txt文件供写入数据，文件号为#1
文件中事先写有15行数据，每行有三组数据，用空格或逗号隔开。
以下将文件内容读入到三个数组A，B，C中。
dim A(15), B(15),C(15)
Open "D:\VB\test_leak.txt" For Input As #1
for i=1 To 15 STEP 1
Input #1,A(i),B(i),C(i)
next i
close #1
其关系的代码如下：
Dim n！, t！, ans As Double
n = Text1.Text
t = Text2.Text
If n >= 1.3 Then
ans = t ^ 0.0269 * 0.6459
ElseIf n >= 1.1 Then
ans = t ^ 0.75378 * 0.282
ElseIf n >= 0.9 Then
ans = t ^ 0.7952 * 0.028
ElseIf n >= 0.5 Then
ans = t ^ 0.8502 * 0.0275
End If
If ans > 1 Then
Text3.Text = Format(ans, "0.00")
Else
Text3.Text = "0" + Str(Format(ans, "0.00"))
End If
End Sub
现在问题是；我们老师说这样太简单了，要我们读取TXT文档，要有试验数据记录。
请问，我该如何编了？（最好是完整）
（偶老师给我发的邮件是这样写的：例子：
打开D:\VB\下test_leak.txt文件供写入数据，文件号为#1
文件中事先写有15行数据，每行有三组数据，用空格或逗号隔开。
以下将文件内容读入到三个数组A，B，C中。
dim A(15), B(15),C(15)
Open "D:\VB\test_leak.txt" For Input As #1
for i=1 To 15 STEP 1
Input #1,A(i),B(i),C(i)
next i
close #1
帮是可以，但你要实践呀。
VB读取TXT的问题
现在有text1,text2 ,我要根据text1,与text2的关系来得到text3
根椐你的题目，我是理解成为以下代码
text1 与text2 在文本中对比真是输出
假设记事本里面存放这三个数据
07770106 虚竹 34
07770108 段誉 30
07770109 陆涛 34
07770113 杨晓芸 24
07770115 华子 25
07770118 向南 25
07770119 萧峰 36
07770121 胡斐 39
07770122 胡一刀 67
07770123 苗人凤 68
07770125 苗若兰 26
07770127 杨过 38
07770129 郭靖 48
07770130 张无忌 47
07770134 赵敏 48
text1要是数值
text2要是字符
指文本与输入的都要是这样。
Dim A(15), B(15), C(15)
z = Val(Text1.Text) "是数值
x = cstr(Text2.Text) "是字符,可以是数值改成z=val(text2.text)
Open "f:/q1.txt" For Input As #1
For i = 1 To 15 Step 1
Input #1, A(i), B(i), C(i)
If z = A(i) and x = B(i) Then "当text1与text2相同时才进行
Text3.Text = C(i)
End If
'Print A(i), B(i), C(i) 可