IMAG0075

■MMH|

' Fórm 1vb [besigh] H

Su . Mggg I

H| (General)

dl (Declar a tions)

■□Public Class Forml

Private Sub Buttonl_Click (ByVal sender As System.Object, Dim ścieżka As String I "C:\grl_7\ 1.txt”

Try

Dim srOdczyt As 10.StreamReader = New IO.StreamR' TextBoxł. Text | sr Odczyt. ReadToEnd srOdczyt.Close()

ByVal e As

eader(ścieżka)

Buttorfl

Catch ex As Exception HsgBox(ex.Hessage)

End Try

Dim a, licznik As Single

TileOpend, -C-.\tlcm\grl_7\l.txt", OpenNode.lapwJ Po m\ile EOF(1) * False Input(1/ a) licznik * licznik + 1