数据文件
21.365
24.052
20
18
1.246
4.562
-3.102
我的程序
Dim fileName As String
Dim startnumber%, endnumber%
Const MyFile = 1
Dim i%
Dim j%
Dim T(100) As Double
Dim s(8) As Double
Open "D:\date.txt" For Input As #MyFile  '打开文件
Input #MyFile, startnumber, endnumber '读文件
For i = startnumber To endnumber
Input #MyFile, T(i)
Next i
Close #MyFile    '关文件
For j = 5 To 7
List1.AddItem T(j)
Next j

不喜欢用符号这种声明方式，读起来很不习惯。

Private Sub Command1_Click()
Dim str As String
Dim strn() As String
Dim i As Integer
i = 1
Open "e:\1.txt" For Input As #1
Do While Not EOF(1)
ReDim Preserve strn(i)
Input #1, str
strn(i) = str
'Print strn(i)
i = i + 1
Loop
Close #1

For a = 1 To UBound(strn)
Print strn(a)
Next
End Sub