寫出下面這段函數(shù)實(shí)現(xiàn)的功能。 Private Sub Command1_Click() Dim inData As String Text1.Text="" Open".\smtext1.txt"For InputAs#1 Do While Not EOF(1) Input#1,inData Text1.Text=Text1.Text&inData Loop Close#1 End Sub