ВУЗ:
Составители:
80
End Sub
В структуре инструкции Select Case можно указывать интервал, в который
должна попадать анализируемая переменная:
Sub Pro27()
Const GOST As String=” ГОСТ Р 51858-2002”
Dim S As Single
S = InputBox(«Веди массовую долю серы в Вашей нефти, %»)
Select Case S
Case 0 To 0.6
MsgBox "Отлично, у Вас малосернистая нефть 1 класса по " & GOST
Case 0.61 To 1.8
MsgBox "Хорошо, у Вас сернистая нефть 2 класса по "& GOST
Case 1.81 To 3.5
MsgBox "Удовлетвор., у Вас высокосернистая нефть 3 класса по “& GOST
Case Else
MsgBox "Неуд., у Вас особо высокосернистая нефть 4 класса по "& GOST
End Select
End Sub
После первого же исполненного Case управление передается на инструкцию,
следующую за End Select. Напомним особенность отделения дробной части числа от
целой: в ячейках Excel и в окнах ввода VBA ставится запятая, а в программах – точ-
ка.
2.9.3. Управляющая инструкция For-Next
Эта инструкция позволяет выполнять несколько других инструкций (в том числе
и такую же инструкцию) заданное число раз, то есть организовать цикл. Цикличе-
ские вычисления предназначены для многократных расчетов различных данных по
одним и тем же формулам, что повсеместно встречается в инженерных задачах. В
циклических расчетах обычно обрабатываются переменные в форме
массивов, ин-
декс которых «привязан» к переменной цикла и меняется вместе с ней по ходу вы-
полнения цикла.
Рассмотрим следующий пример на вычисление сумм с помощью цикла For-
Next для формул 1.5 и 1.6 пересчета массового состава в мольный и наоборот
(Pro28).
Const N=12 ‘количество компонент состава нефти
Sub Pro28()
Dim Xmc(N), Xml(N), M(n) As Single
S1=0
S2=0
For i = 1 To N Step 1
S1=
S1+Xmc(i)/M(i)
S2=S2+Xml(i)/M(i)
Next i
Страницы
- « первая
- ‹ предыдущая
- …
- 79
- 80
- 81
- 82
- 83
- …
- следующая ›
- последняя »
