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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

81
k=Inputbox(«Введи номер компонента»)
c1=CSng( Xmс(k)/M(k)/S1)
c2=CSng(Xml(k)*M(k)/S2)
MsgBox "Мольная доля компонента " & k & "=" & c1 & Chr(13) & _
"Массовая доля компонента " & k & "=" & c2
End Sub
Рассмотрим отдельные элементы инструкции For-Next. Обратите внимание на
типы используемых в ней переменных.
For − ключевое слово, отмечающее начало инструкции For-Next.
i = 1 То N
−
выражение, определяющее счетчик и его начальное и конечное зна-
чения, задающие число повторений цикла (только целого типа). В данном случае в
качестве счетчика используется переменная i. Ключевое слово То разделяет началь-
ное (1) и конечное (N) значения счетчика. При первом обращении к циклу перемен-
ной i присваивается значение 1, и начинается выполнение всех стоящих ниже инст-
рукций вплоть до Next, а затем управление передается на первую интрукцию.
Step 1 − необязательное ключевое слово, задающее шаг приращения счетчика.
По умолчанию в циклах For-Next он равен 1, но может быть любым целым числом,
в том числе и отрицательным (тогда значение счетчика в каждом цикле уменьшает-
ся). В начале очередного цикла значение счетчика сравнивается с его конечным зна-
чением. Если разница положительная (значение счетчика превосходит его конечное
значение), управление передается инструкции, заданной после ключевого слова
Next. To же самое происходит и при отрицательной разнице.
Далее следует группа инструкций, которая называется телом цикла. Внутри тела
цикла также можно применять вложенные инструкции For-Next, но счетчик цикла
обязательно должен быть обозначен другой переменной, и инструкции не должны
пересекаться
Next i − ключевое слово, отмечающее конец инструкции For-Next. При достиже-
нии ключевого слова Next значение счетчика увеличивается на величину шага, по-
сле чего управление передается на начало цикла. Затем происходит сравнение счет-
чика с конечным значением, и цикл повторяется снова, если не превышено конечное
значение счетчика.
Для проверки работы программы можно взять исходные данные, например, из
таблицы 4.4, скопировать их на лист Excel и дополнить Pro28 циклом чтения масси-
вов с листа (сразу после строки их объявления Dim):
For i = 1 To N
M(i) = Cells(i + 2, 7).Value
Xmc(i) = Cells(i + 2, 9).Value
Xml(i) = Cells(i + 2, 10).Value
Next i
В приведенном фрагменте программы опущен номер листа книги Excel, с кото-
рого нужно читать данные. В этом случае будет производиться чтение с листа, ко-
торый в момент выполнения программы будет активным (выделенным). Результаты
работы программы приведены на рис. 2.11.

Страницы