double arrow

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


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

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

Пример 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) ‘ вывод суммы на экран

Cells(1,1)= ("сумма=" & s) ‘ вывод суммы в ячейку А1

p = a * b ‘ вычисление произведения

MsgBox ("произведение=" & p) ‘ вывод произведения на экран

Cells(1,2)= ("произведение=" & p) ‘ вывод произведения в ячейку В1

ch = a / b ‘ вычисление частного

MsgBox ("частное=" & ch) ‘ вывод частного на экран

Cells(1,3)= ("частное=" & ch) ‘ вывод частного в ячейку С1

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

Заказать ✍️ написание учебной работы
Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой

Сейчас читают про:
Поможем в написании
> Курсовые, контрольные, дипломные и другие работы со скидкой до 25%
3 569 лучших специалисов, готовы оказать помощь 24/7