Структурное программирование. Разработка пользовательских подпрограмм. Сохранение копий рабочей книги

Программирование

(VBA MS Excel 2007)

Лабораторная работа 9

"Структурное программирование"

Задание 1

"Разработка пользовательских подпрограмм"

Порядок выполнения работы:

1.  Запустить MS Excel 2007, проверить наличие вкладки "Разработчик".

2.  Открыть книгу с названием "Три_вида_циклов", созданный ранее.

3.  Сохранить копию этой рабочей книги под именем "Стр_прогр_подпрограмма" с помощью кнопки "Office" и команды "Сохранить как" (тип файла "Книга Excel с поддержкой макросов"):

4.  Перейти в редактор VBA.

5.  Изменить надпись на пользовательской форме (с помощью корректирования свойства формы "Caption")  на "Подпрограмма". Проверьте изменения:

6.  Щелкнуть два раза левой кнопкой мыши, например, по первой командной кнопке Расчет (цикл For-Next)) и выйти в окно программного кода (Code).

7.  Изменить код программы следующим образом:

Private Sub tsikl_arifm(a, n)

Dim i As Integer

ComboBox1.Clear

ComboBox2.Clear

x = a

For i = 1 To n

y = 2 * x ^ 2 - 10

ComboBox1.AddItem CStr(i) + ". " + Format(x, "0.00")

ComboBox2.AddItem CStr(i) + ". " + Format(y, "0.00")

x = x + 0.5

Next i

End Sub

Private Sub tsikl_poka(a, n)

Dim z As Integer

ComboBox3.Clear

z = a

n = 0

While z <= 30

n = n + 1

ComboBox3.AddItem CStr(n) + ". " + Format(z, "0.00")

z = z + 2

Wend

End Sub

Private Sub tsikl_do(a, n)

Dim m As Integer

ComboBox4.Clear

m = a

n = 0

Do

n = n + 1

ComboBox4.AddItem CStr(n) + ". " + Format(m, "0.00")

m = m - 5

Loop Until m <= 10

End Sub

Private Sub CommandButton1_Click()

Call tsikl_arifm(5, 10)

End Sub

Private Sub CommandButton2_Click()

Dim k As Integer

Call tsikl_poka(10, k)

Label1.Caption = "Количество операций  = " + CStr(k)

End Sub

Private Sub CommandButton3_Click()

Dim k As Integer

Call tsikl_do(40, k)

Label2.Caption = " Количество операций = " + CStr(k)

End Sub

Проверьте введенный текст:

8.  Запустите программу на выполнение с помощью команды меню "Run" или функциональной клавиши F5.

9.  В появившемся диалоговом окне нажмите кнопку "Расчет (цикл FOR-NEXT)".

10. Нажмите кнопку "Расчет (цикл WHILE-WEND)".

11. Нажмите кнопку "Расчет (цикл DO-LOOP)".

12. Закройте окно.

13. Сохраните файл.

14. Если сравнить результаты расчетов с данными, полученными в лабораторной работе № 8 по циклическим алгоритмам, то можно увидеть, что  расчетные величины имеют идентичные значения. Но код программы стал более структурным и логически понятным.

15. Измените в подпрограмме tsikl_poka первый фактический параметр (значение 10 на значение: -12)

Call tsikl_poka(-12, k)

 

16.  Запустите программу на выполнение с помощью команды меню "Run" или функциональной клавиши F5 и нажмите кнопку "Расчет (цикл WHILE-WEND)".

17.  Проверьте изменение результатов:

18.  Измените величины фактических параметров во всех подпрограммах (на выбор), запустите программу на выполнение и проверьте изменение результатов.

19. Закройте диалоговое окно.

20.  Сохраните изменения в файле.

21.  Проанализируйте блок-схему вычислений: