Dim s As String '声明s为一个字符串变量Open Filename For Input As #1 'Filename为要打开的文件名Line Input #1, s 's现在为第一行内容Line Input #1, s 's现在为第二行内容Label1.Caption = s '假设要显示的Label为Label1
