'以下功能为 读取当前工程目录下的a.txt 文件中的文本显示在text框中. Option Explicit Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Load()

Dim 文件号 As Integer Dim 读取的字符串 As String 文件号 = FreeFile '--------取得未使用的档案代码。 Text1.Text = "" '在保存工程目录中必须要有a.txt文件，且文件里有文本。 Open App.Path & "\TEST.txt" For Input As #文件号 Do While Not EOF(文件号) '↓下面是从已打开的顺序文件中读出一行并将它分配给 String变量 Line Input #文件号, 读取的字符串 Text1.Text = Text1.Text + 读取的字符串 + Chr(13) + Chr(10) Loop Close #文件号 End Sub