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