Мегаобучалка Главная | О нас | Обратная связь


MsgBox (Список аргументов)



2015-11-27 400 Обсуждений (0)
MsgBox (Список аргументов) 0.00 из 5.00 0 оценок




 

Этот оператор выводит на экран диалоговое окно, содержащее сообщение, устанавливает режим ожидания нажатия пользователем кнопки, а затем возвращает в программу.

Пример

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=B
<> Не равно A<>B
> Больше A>B
< Меньше A<B
>= Больше или равно A>=B
<= Меньше или равно A<=B

 

Сложные условия образуются из простых путем применения логических операций и круглых скобок.

 

Пример

A > 10 And A < 20

(B > 4 Or B < 2) And A > 5

 

В табл. 6 указаны логические операции, предназначенные для составления сложных условий.

Таблица 6

Логические операции

 

Операция Название Пример выражения
Not Логическое отрицание Not A
And Логическое И A And B
Or Логическое ИЛИ A Or B

 

В условном операторе допустимо использование блока операторов. В этом случае условный оператор имеет вид

 

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-11-27 400 Обсуждений (0)
MsgBox (Список аргументов) 0.00 из 5.00 0 оценок









Обсуждение в статье: MsgBox (Список аргументов)

Обсуждений еще не было, будьте первым... ↓↓↓

Отправить сообщение

Популярное:
Как вы ведете себя при стрессе?: Вы можете самостоятельно управлять стрессом! Каждый из нас имеет право и возможность уменьшить его воздействие на нас...
Как выбрать специалиста по управлению гостиницей: Понятно, что управление гостиницей невозможно без специальных знаний. Соответственно, важна квалификация...
Организация как механизм и форма жизни коллектива: Организация не сможет достичь поставленных целей без соответствующей внутренней...



©2015-2024 megaobuchalka.ru Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. (400)

Почему 1285321 студент выбрали МегаОбучалку...

Система поиска информации

Мобильная версия сайта

Удобная навигация

Нет шокирующей рекламы



(0.007 сек.)