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