MsgBox (Список аргументов)
Этот оператор выводит на экран диалоговое окно, содержащее сообщение, устанавливает режим ожидания нажатия пользователем кнопки, а затем возвращает в программу. Пример MsgBox (“Значение А=” & A) В результате на экране появится следующее диалоговое окно (рис. 3).
Рис. 3. Стандартное окно вывода
В операторе можно выводить значения нескольких переменных.
Пример MsgBox (“Значение А=” & A & “, значение В=” & B)
Символ “&” в операторе означает слияние в одну строку всех символьных строк, записанных в скобках.
Линейный процесс
Линейным вычислительным процессом называется процесс, в котором все операторы выполняются последовательно друг за другом.
Пример 1 Заданы два числа. Вычислить их сумму, произведение и частное.
Программный код Option Explicit Sub PR1() Dim a As Integer, b As Integer, s As Integer, p As Integer Dim ch As Double a = Val(InputBox("Введите А")) ‘ ввод первого числа b = Val(InputBox("Введите В")) ‘ ввод второго числа s = a + b ‘ вычисление суммы MsgBox ("сумма=" & s) ‘ вывод суммы p = a * b ‘ вычисление произведения MsgBox ("произведение=" & p) ‘ вывод произведения ch = a / b ‘ вычисление частного MsgBox ("частное=" & ch) ‘ вывод частного End Sub В программе можно писать комментарии – пояснения к вашей программе, которые предназначены для пользователя, а не для компьютера. Комментарии начинаются с символа ‘ (апостроф). Все, что написано в строке программного кода справа от апострофа, считается комментарием. Если вы хотите разместить несколько операторов в одну строку, то для этого необходимо записать эти операторы через двоеточие. Для записи нескольких операторов в одной строке между ними ставится двоеточие.
Пример 2 Заданы целые числа a, b, c. Вычислить значение выражения
Программный код
Option Explicit Sub PR2() Dim a As Integer, b As Integer, c As Integer ‘ описание переменных Dim y As Double a = Val(InputBox("Введите А")) ‘ ввод а b = Val(InputBox("Введите В")) ‘ ввод b c = Val(InputBox("Введите C")) ‘ ввод с y = (Sqr(a + b) + b ^ 2) / (a + b + c) ^ 3 * Tan(a) ‘ вычисление ‘ значения ‘ выражения MsgBox ("y=" & y) ‘ вывод результата End Sub
Оператор условного перехода
Условный оператор, или оператор условного перехода, служит для организации процесса вычислений в зависимости от какого-либо условия. Общий вид условного оператора:
IfУсловиеThenОператор1ElseОператор2
Условие – это выражение логического типа. Оно может быть простым или сложным. Если в условном операторе <Условие> истинно, то выполняется <Оператор1>, в противном случае выполняется <Оператор2>. Для записи условий могут быть использованы знаки логических отношений, представленные в табл. 5.
Пример A >= 10
Таблица 5 Знаки сравнения
Сложные условия образуются из простых путем применения логических операций и круглых скобок.
Пример A > 10 And A < 20 (B > 4 Or B < 2) And A > 5
В табл. 6 указаны логические операции, предназначенные для составления сложных условий. Таблица 6 Логические операции
В условном операторе допустимо использование блока операторов. В этом случае условный оператор имеет вид
If Условие Then Блок операторов 1 Else Блок операторов 2 End If
Ветвь Else в условном операторе является необязательной. Такая форма условного оператора называется неполной и выглядит следующим образом:
If Условие Then Оператор
или
If Условие Then Блок операторов End If
Условный оператор может содержать в себе еще несколько условных операторов. В этом случае условный оператор имеет вид
If Условие1 Then Блок операторов 1 ElseIf Условие2 Then Блок операторов 2 ElseIf Условие3 Then ……….. Else Блок операторов End If
В условном операторе после слова Then можно разместить несколько операторов в одну строку. В этом случае они должны быть разделены двоеточием.
Пример If A > 10 Then A = A + 1 : B = B + A : C = C + B
Пример 1 Задано целое число x. Вычислить значение функции
Ö x , если x>0; Y= x2 , если x<0; 5 , если x=0.
Программный код
Option Explicit Sub PR3() Dim x As Integer Dim y As Double x = Val(InputBox("Введите x")) If x > 0 Then y = Sqr(x) If x < 0 Then y = x ^ 2 If x = 0 Then y = 5 MsgBox ("y=" & y) End Sub
Пример 2 Задано действительное число x. Вычислить значение функции
Y = Ö x .
Программный код
Option Explicit Sub PR4() Dim x As Double Dim y As Double x = Val(InputBox("Введите x")) If x > 0 Then y = 1 / Sqr(x) MsgBox ("y=" & y) Else MsgBox ("Решения нет") End If End Sub Пример 3 Задано три действительных числа x, y, z. Вычислить самое большое из них.
Программный код
Option Explicit Sub PR5() Dim x As Double, y As Double, z As Double, max As Double x = Val(InputBox("Введите x")) y = Val(InputBox("Введите y")) z = Val(InputBox("Введите z")) If (x > y) And (x > z) Then max = x If (y > x) And (y > z) Then max = y If (z > x) And (z > y) Then max = z MsgBox ("Максимум=" & max) End Sub
Популярное: Как вы ведете себя при стрессе?: Вы можете самостоятельно управлять стрессом! Каждый из нас имеет право и возможность уменьшить его воздействие на нас... Почему стероиды повышают давление?: Основных причин три... Как выбрать специалиста по управлению гостиницей: Понятно, что управление гостиницей невозможно без специальных знаний. Соответственно, важна квалификация... Организация как механизм и форма жизни коллектива: Организация не сможет достичь поставленных целей без соответствующей внутренней... ©2015-2024 megaobuchalka.ru Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. (400)
|
Почему 1285321 студент выбрали МегаОбучалку... Система поиска информации Мобильная версия сайта Удобная навигация Нет шокирующей рекламы |