Текст основного модуля Module1

Option Explicit

Global Z As Double

Global Rob As Double

Global Pmz As Double

Global Rn As Double

Global Rb As Double

Global R As Double

Global S As Double

Sub Macros_InputBox()

'ввод исходных данных

Z = InputBox("Введите Z")

Rob = InputBox("Введите Rob")

Pmz = InputBox("Введите Pmz")

Rn = InputBox("Введите Rn")

Rb = InputBox("Введите Rb")

'расчеты

Call calculates

'вывод результатов

MsgBox "Результаты расчетов: " & Chr(13) & _

"R=" & CStr(R) & Chr(13) & "S=" & CStr(S)

End Sub

Sub Macros_Cells()

'ввод исходных данных

Z = Cells(2, 2)

Rob = Cells(3, 2)

Pmz = Cells(4, 2)

Rn = Cells(5, 2)

Rb = Cells(6, 2)

'расчеты

Call calculates

'вывод значений переменных

Cells(8, 1) = "Результаты расчетов:"

Cells(9, 1) = "R ="

Cells(9, 2) = R

Cells(10, 1) = "S ="

Cells(10, 2) = S

End Sub

Sub Macros_Form()

UserForm1.Show

End Sub

Public Sub calculates()

R = Rn + Rb

S = Z + Rob + Pmz + R

End Sub

Текст формы UserForm1

Option Explicit

Private Sub CommandButton1_Click()

'ввод исходных данных

Z = CDbl(TextBox1.Text)

Rob = CDbl(TextBox2.Text)

Pmz = CDbl(TextBox3.Text)

Rn = CDbl(TextBox4.Text)

Rb = CDbl(TextBox5.Text)

'расчеты

Call Module1.calculates

'вывод значений переменных

TextBox6.Text = CStr(R)

TextBox7.Text = CStr(S)

End Sub

Общий вид спроектированной пользовательской формы

Согласно заданию, запуск расчетов производим с вводом и выводом данных в окно сообщений (Macros_InputBox), в ячейки таблицы (Macros_Cell) и с помощью пользовательской формы (Macros_Form). Список созданных макросов запускается с помощью команды меню Сервис – Марос – Макросы.

Результаты тестов

Выполним тесты для созданных макросов:

а) Ввод и вывод в окне сообщений

b) Ввод и вывод в ячейки рабочего листа

с) Ввод и вывод при помощи созданной пользовательской формы

4. Программирование разветвляющихся алгоритмов

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

Составить графическую схему алгоритма и программу. Исходные данные для отладки программы подобрать самостоятельно. Для организации ввода и вывода исходных данных и результатов использовать:

а) стандартные диалоговые окна (окно ввода и окно сообщений), при выводе результатов предусмотреть использование информационных значков;

б) ячейки рабочего листа.

Исходные данные к задаче № 1:

Оценить уровень товарной продукции за отчетный период в полном объеме реализации продукции если N^p > 0,85 – высокий; N^p  (0,7;0,85] – средний; N^p  0,75 – низкий

,

где N – полный объем реализации продукции (руб.): N= N^T + N^O + N^S;

N^T – реализация товарной продукции за отчетный период, руб.;

N^O – остатки отгруженной продукции, руб.;

N^S – остатки готовой продукции на складе, руб.