Порядок выполнения работы:
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. Проанализируйте блок-схему вычислений:
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.