Question

为何这里只能显示最后一行的内容？怎么可以将每一行的内容显示在LABEL中？

While Not EOF(1)

Line Input #1, strLine

strFirst = Left(strLine, 1)

Label1.Caption = strFirst '显示每行第一个字符

Wend

Close #1

Answer 1

While Not EOF(1)

Line Input #1, strLine

strFirst = Left(strLine, 1)

Label1.Caption =Label1.Caption & strFirst '显示每行第一个字符

Wend

Close #1

Answer 2

将每一行的首字母提取出来，串在一起，显示出来后，能看出来什么？ 没理解你的程序用途，呵呵，是藏头诗吗？