2.2.4. Операторы вывода данных

Вывод информации в VBA осуществляется двумя способами.

1. С помощью оператора вывода

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

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

Пример:

MsgBox (“Значение А=” & A)

Символ “&” в операторе означает слияние в одну строку всех символьных строк, записанных в скобках.

Врезультате на экране появится следующее диалоговое окно (рис. 7).

Рис. 7. Стандартное окно вывода

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

Сells(i,j)= «результат».

2.3. Линейные процессы

Линейным вычислительным процессом называется процесс, в котором все операторы выполняются последовательно друг за другом. Любая линейная программа состоит из:

1. описания данных;

2. ввода исходных данных;

3. вычисления требуемых значений (этап необязательный);

4. вывода полученных результатов.

Пример 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, b, c As Single ‘ описание переменных

Dim y As Double

a = Val(InputBox("Введите А")) ‘ ввод а

b = Val(InputBox("Введите В")) ‘ ввод b

c = Cells(1,1) ‘ ввод с

y = Log(Abs(5*b) / Sgr(c ^ 3) * Tan(a)+b*Sin(c) ‘ вычисление

‘ значения выражения

MsgBox ("y=" & y) ‘ вывод результата

End Sub

Пример 3. Составить программу вычисления продолжительности переправы танков по глубоким бродам и под водой, если

где D – ширина водной преграды;

N – количество переправляемых танков;

D₁ – дистанция между машинами;

V – скорость движения танков под водой;

N₁ – количество трасс подводного вождения.

Программный код

Option Explicit

Sub pr3 ( )

Dim D As Single, N As Integer, D1 As Single, V As Single, N1 As Integer

Dim t As Single

D = Val(InputBox(“Введите ширину преграды”))

N = Val(InputBox(“Введите количество танков”))

D1 = Val(InputBox(“Введите дистанцию”))

V = Val(InputBox(“Введите скорость движения”))

N1 = Val(InputBox(“Введите количество трасс”))

t = (D+N*D1)*0,06/V*N1

MsgBox(“продолжительность переправы =” & t)

End Sub

2.4. Разветвляющиеся процессы

Для программирования алгоритмов разветвляющейся структуры используются операторы, котрые позволяют изменять последовательный порядок выполнения операторов, т.е. организуют разветвление в программе.