Page 187 - 4192
P. 187

Рисунок 11.2 – Схема алгоритму опрацювання файлу

                Програмний код:
                Dim C As String
                Dim A, B, D As Double
                Private Sub Command1_Click()
                A = Text1.Text
                B = Text2.Text
                C = Text3.Text
                D = Text4.Text
                If Dir("C:\Поїзд.txt") = "" Then
                Open "C:\Поїзд.txt" For Output As #1



                                             186
   182   183   184   185   186   187   188   189   190   191   192