Введение в информатику процессов первичной переработки нефти. Новиков А.А - 77 стр.

UptoLike

Составители:

Рубрика:

Open "c:\2050.txt" For Input As #1

Open "c:\Ashvort2.txt" For Output As #2

While Not EOF(1)

Input #1, ti, t

Pn = k1 + 10 ^ (k2 - k3 * f(t) / f(ti))

Pn = CSng(Pn)

Write #2, Pn

Wend

Close #1

Close #2

End Sub

Рис. 2.20. Пример работы программы Ashvort2 с файлами

Заметим, что функция Function f(ByVal t) As Single осталась в прежнем виде и в

этом примере не приведена (вот оно – преимущество функционального программи-

рования). Еще одно преимущество – количество температур в исходном файле ни-

где не нужно указывать – программа сама определит конец файла по функции EOF

(в пятой строке) и обработает все температуры, сколько бы их в файле ни было.

Структура While-Wend, использованная в этом примере, рассмотрена в следующем

параграфе.

2.9. Управляющие инструкции VBA

Управляющие инструкции в однопоточных языках программирования предна-

значены для изменения естественного (последовательного) хода выполнения про-

граммы. В VBA предусмотрено несколько способов изменения порядка выполнения

инструкций. Управляющие инструкции VBA функционально эквивалентны подоб-

ным структурам в других языках программирования, за исключением инструкции

For-Each-Next. В табл. 2.11 перечислены основные управляющие инструкции VBA.