Считывание данных из второй строки в переменную - VB

Формулировка задачи:

Написал небольшой код, для считывания данных из второй строки в переменную. Чет не так.

Dim Fh As String
Dim S As String
Dim i As Integer 
Dim tS As String 
Private Sub Form_Load()
Fh = FreeFile()
Open ("C:\PerfLogs\Admin\vsx.dat") For Input As Fh
For i = 1 To 5
Line Input #Fh, tS
If i = 2 Then S = tS
Next i
Close #Fh
Label1.Caption = S
End Sub

Решение задачи: «Считывание данных из второй строки в переменную»

textual
                            Листинг программы 
                        
                            Но все равно лучше сделать так
If i = 2 Then S = tS: exit for

Оцени полезность:

14 голосов , оценка 4.071 из 5

Похожие ответы