探讨

摘要： 添加一个模块文件Moudel1模块代码：Public Dq as StringSub Main()Dq=Command()End Sub其他代码不需要，然后把你的代码稍改写一些：Private Sub Form_Load() MsgBox dq‘保留！查看效果 Dim TextLine Open dq For Input As #1 ' 打开文件。 Do While Not EOF(1) ' 循环至文件尾。 Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。 Text1.Text = Text1.Text & TextLine & 阅读全文