下面是实现此功能的程序,请填空。
Private Sub Command1_Click()
Text1= ””
Number=FreeFile
Open “ c:/test.txt ” For Input As Number
D.o While Not Eof( ( 14 ) )
Line Input #Number,s
Text1.Text=Text1.Text+ ( 15 ) +Chr(13)+Chr(10)
Loop
C.lose Number
E.nd Sub