问答题

写出下面这段函数实现的功能。
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


您可能感兴趣的试卷