以下程序的功能是:把当前目录下的顺序文件 test.txt的内容读入内存,并在文本框Text1中显示出来。请填空。 Private Sub Command1_Click() Dim in put Data As String Text1.Text = "" Open "test.txt" 【9】 As #1 Do While 【10】 Input #1, in put Data Text1.Text = Text1.Text & in put Data Loop Close #1 End Sub