Ход работы. Label2.Caption = Сумма квадратов + Str(N - 1) + чисел равна + Str(sum)

End Sub

Loop

N = N - 1

sum = sum - N * N

Label2.Caption = "Сумма квадратов " + Str(N - 1) + " чисел равна " + Str(sum)

8. Разберитесь в коде программы. Для чего после ключевого слова Loop приведены строки:

N = N - 1

sum = sum - N * N

Можно ли обойтись без этих строк? Почему?

9. Сохраните проект (выбрав File – Save frmСумма.frm и Save Сумма.vbp) в папке 8.4.

10. Проверьте работоспособность проекта, запустив его на выполнение.

11. Создайте exe-файл программы с помощью команды File → Make Сумма.exe.

12. Выйдите из среды Visual Basic.

13. Запустите на выполнение файл Сумма.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения.

Задание 5. Вычисление значения функции и построение таблицы ее значений.

Постановка задачи.

Разработать приложение, которое выводит на форме таблицу значений функции y = 2x­­­² + 5x – 3 в диапазоне от -2 до 2 с шагом 0,5. Примерный результат работы программы – на Рис.8.8.

1. Создайте в папке Лабораторная_работа_№8 папку 8.5.

2. Запустите программу Microsoft Visual Basic 6.0.

3. В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».

4. Расположите на форме 1 командную кнопку CommandButton. Примерный внешний вид приложения во время работы приведен на Рис.8.8.

5. Присвойте свойству Caption кнопки значение «Построить таблицу значений».

6. Присвойте свойству Caption формы значение «Построение таблицы значений функции», а свойству Name значение «FrmТаблицаФункции».

7. Напишите обработчик события по кнопке «Построить таблицу значений», не забывая объявить переменные в начале программы. После знаков апострофов приведены необходимые комментарии.

Dim x0 As Integer ' x0 - начальное значение (нижняя граница диапазона)

Dim xn As Integer ' xn - конечное значение (верхняя граница диапазона)

Dim dx As Single ' dx - шаг изменения x

Dim x As Single ' x - аргумент функции

Dim y As Single ' y - значение функции

Dim n As Integer ' n - количество вычислений

Dim i As Integer ' i - счетчик циклов

Private Sub Command1_Click()

x0 = -2

xn = 2

dx = 0.5

n = CInt((xn - x0) / dx) + 1 ' вычислим, сколько раз произвести вычисления

x = x0

Print Tab (2); " x | y"

Print Tab (2); "----------------------"

For i = 1 To n

y = -2.4 * x * x + 5 * x - 3

Print Tab (2); " "; x, " | "; y

x = x + dx

Дата добавления: 2014-12-23