A. 打开一个已存在的二进制文件,只能读取数据
B. 打开一个文本文件,只能写入数据
C. 打开一个已存在的文本文件,只能读取数据
D. 打开一个二进制文件,只能写入数据
A.文档1
B.工作簿1
C.File1
D.Sheet1
DimsrAsStreamReader
'打开将要读取的文件.
sr=File.OpenText(“①__________”)
'从文件中读取行.
DimxAsString
Whilesr.②__________<>-1
x=sr.ReadLine()
TextBox2.Text&=x&vbCrLf
EndWhile
TextBox2.Text&=vbCrLf&"------------theend------------"
sr.Close()