请VB高手指教：在文件读出后变量只显示最后一个读数

dim s as string
Open "e:\test.txt" For Input As #1
Do While Not EOF(1)
i = i + 1
Input #1, i
Print i
s=s & i & vbnewline
Loop
Close #1
print s

看了半天也没看明白你的问题。。还是这样回答你吧：

input的函数的功能是从指针的当前位置读取指定长度的字符串，然后将结果返回，并保存到事先定义好的变量中。。。

以下代码的功能就是一个字符一个字符的读取，并显示出来：
Dim txt As String
Open "e:\test.txt" For Input As #1
Do Until EOF(1)
txt = Input(1, #1) '将读取的一个字符存到变量txt中
Print txt
Loop
Close #1

如果你是想显示最后的一个字符，下面的代码就是：
Dim txt As String
Open "e:\test.txt" For Input As #1
Do Until EOF(1)
txt = Input(1, #1) '将读取的一个字符存到变量txt中
Loop
Print txt
Close #1

或者是：

Dim txt As String, txt1 As String
Open "e:\test.txt" For Input As #1
Do Until EOF(1)
Line Input #1, txt
Close #1
Loop
txt1 = Right(txt, 1) '最后一行的最后一个字符存到变