我在用VB.NET中用VB在控制台读取文件，此文件共4行，我想把4行的值分别赋给不同的变量，程序如下：
Imports System.io
Module Module1
Sub Main()
Dim sr As New StreamReader("Test.txt")
Dim sTemp As String
Dim arr() As String '定义的数组，用于存储读取的值
arr = New String(10) {}
Dim a As Integer '数组参数
a = 0
While (sTemp <> "") '判断，如果读取的值时空值时结束
sTemp = sr.ReadLine()
arr(a) = sTemp '把第一行的值赋给arr(0)，依次类推
a = a + 1
End While
sr.Close()
System.Console.WriteLine(arr(1)) '查看是否保存了值
End Sub

End Module
结果只显示了一行空内容，如果正确读取不是会是空行
哪位能告诉我，是哪里出错了

加一个:While sr.Peek =-1
sr.close
end while

sTemp为Nothing则读完..

oo

将循环体改为Do Loop While 循环
Do
sTemp=sr.ReadLine()
arr(a)=sTemp
a+=1
Loop While sTemp<>""