'在窗体上加入控件label1,然后复制下面代码,并修改要打开的具体文件名,然后运行即可。Option ExplicitPrivate Sub Form_Load()Dim i As Integer, S As Stringi = FreeFileOpen "c:\1.f" For Input As #i '请修改成具体的文件名Do While Not EOF(i)Line Input #i, SLabel1 = Label1 & S & vbNewLineLoopClose #iEnd Sub...
问题补充:Open "c:\api.bat" For Input As #1 '//Strdata1为字符型变量Do While Not EOF(1)'//文件号码1根据#多少就写多少Line Input #1, Strdata1 Label1.Caption = Label1.Caption &Strdata1 Loop...