VB 里 将一个文件的内容读取并在TEXT1 中显示

Question

dim a as string
open "D:\aaa.txt" for input as #1
while not eof(1)
line input #1,a
print a
wend
close #1
如果这样输 就能在窗体上显示
dim a as string
open "D:\aaa.txt" for input as #1
while not eof(1)
line input #1,a
text.text=a
wend
close #1
这样 只能显示 最后一行 。。。。。。

Answer 1

dim a as string
open "D:\aaa.txt" for input as #1
while not eof(1)
line input #1,a'
print a '每次读取一行数据 打印当前行内容
wend
close #1
如果这样输 就能在窗体上显示
dim a as string
open "D:\aaa.txt" for input as #1
while not eof(1)
line input #1,a'每次读取一行数据
text.text=a'赋值的是最后一行数据 上次的记录被覆盖了
wend
close #1
调用方法错误
应该使用input #1,text1.text
　　1） Input #文件号，变量列表
　　　作用：将从文件中读出的数据分别赋给指定的变量。
　　　 注意：与Write #配套才可以准确地读出。
　　2）Line Input #文件号，字符串变量
　　　　用于从文件中读出一行数据，并将读出的数据赋给指定的字符串变量，读出的数据中不包含回车符和换行符，可与Print #配套用。
　　3）Input$（读取的字符数，#文件号）
　　　　该函数可以读取指定数目的字符。
　　　　与读文件有关的两个函数：
　　　　LOF（）：返回某文件的字节数
　　　　EOF（）：检查指针是否到达文件尾。
　　　　例：将一个文本文件读入文本框的三种方法。

Answer 2

文本框名称改为Text1，我这个程序没有问题
dim a as string
open "D:\aaa.txt" for input as #1
while not eof(1)
line input #1,a
text1.text=text1.text & vbcrlf & a //你的这句改成这样就对了
wend
close #1

Answer 3

Private Sub Command1_Click()
Dim y5, y1, j5 As Integer, i, j, k As Integer
i = j = 0
For y5 = 0 To 100 Step 5
k = 0
i = i + 1
For y1 = 0 To 100
j = j + 1
For j5 = 0 To 100 Step 0.5
k = k + 1'调试时说此句有错 哪儿错了？
If y5 + y1 + j5 = 100 And i + j + k = 100 Then
Text1.Text = Text1.Text & "5元" & i & "张," & "一元" & j & "张" & "五角" & k & "张" & vbCrLf
End If
Next j5
Next y1
Next y5
End Sub本回答被提问者采纳

Answer 4

你先要将text1的multiline属性改为true，

dim a as string
open "D:\aaa.txt" for input as #1
while not eof(1)
line input #1,a
text1.text=text1.text & vbcrlf & a
wend
close #1

Answer 5

dim a as string
open "D:\aaa.txt" for input as #1
while not eof(1)
line input #1,a
text.text=text.text & a & vbcrlf
wend
close #1