Option Base 1
Private Sub Form_Click()
Dim a(80) As Integer
Dim t As Integer
i = 1
Open "D:\Microsoft Visual Studio\VB98\out.txt" For Input As #1
Do While Not EOF(1)
Input #1, t
a(i) = t
i = i + 1
Loop
Close #1
n = i - 2
For j = 1 To n
Print Tab(4 * j); a(j);
Next j
End Sub