用open打开，用line读取每一行即可。代码如下：open "c:\1.dat"for input as 1 '打开c:\1.dat，文件号1 do while not eof(1)'文件循环读取到结束 line input 1,temp '读取一行到temp中 'text1 = text1 & temp '将这一行放到text控件中。按实现需要 loop '未结束，继续读取 close 1 '...