9.2顺序文件 武汉职业技术学晚 方法2:一次性读 txtTest. Text Open MYFILE. TXT" For Input as #1 txtTest. Text Input( lOF(1), 1) Close #1 方法3:一个个字符读 Dim InputData as String*1 txtTest. Text= Open"MYFILE. TXT For Input as #1 Do Whi le Not EOF(1) I nputData= Input(1,#1) txtTest. Text txtTest Text InputData Loop Close #1方法2：一次性读 txtTest.Text ＝ "" Open "MYFILE.TXT" For Input As #1 txtTest.Text = Input( LOF(1),1) Close #1 方法3：一个个字符读 Dim InputData as String*1 txtTest.Text ＝ "" Open "MYFILE.TXT" For Input As #1 Do While Not EOF(1) InputData= Input(1,#1) txtTest.Text ＝ txtTest.Text + InputData Loop Close #1 9.2 顺序文件