問答題

寫出下面這段函數實現的功能。
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


您可能感興趣的試卷