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

1. Расположите на форме одну командную кнопку.

2. Установите значения свойства Name для формы и кнопки такие, которые используются ниже в программном коде.

3. Установите значения свойства Caption для формы и кнопки в соответствии с рис. 8.2.

4. Составьте программный код проекта. Самостоятельно заполните пропуски (...):

Private Sub cmdПускClick()

Dim a As Single, b As Single, h As Single

Dim x As Single, f As Single

With frmФункція

… ‘ Задайте для формы следующие параметры: цвет формы — белый, шрифт — "Arial Cyr",

‘размер шрифта — 12, начертание —полужирный, цвет символов — синий

End With

a = Val(InputBox ("Введіть початок діапазона", "Початок"))

b = Val(InputBox ("Введіть кінець діапазона", "Кінець"))

h = Val(InputBox ("Введіть крок зміни X", "Крок"))

Print "------------------------------------------------------------- "

Print " x: y(x) "

Print "---------------------------------------------------------------"

For x = a To b Step h

f = x ^ 2 - Exp(-Abs(x))

Print " "; x, f

Next x

Print "-----------------------------------"

End Sub

5. Запустите проект на выполнение.

Если задать большой диапазон изменения х, то таблица может не поместиться на форме. Чтобы была возможность просматривать все данные, необходимо использовать текстовое поле.

6. Смените значения a, b, h. Проанализируйте результат.

7. Сохраните проект под именем Лр8_Зад2 _Фамилия.

ЗАВДАННЯ 8.3

Постановка задачи ВЫЧИСЛИТЬ СУММУ N НАТУРАЛЬНЫХ ЧИСЕЛ.

Порядок действий

1. Расположите на форме одну командную кнопку.

2. Установите значение свойства Name для кнопки — сmdПуск.

3. Установить значения свойства Caption для формы Сумма натуральных чисел, для кнопки— Пуск.

4. Составьте программный код проекта:

Private Sub cmdПycK_Click()

Dim i As Integer, N As Integer, S As Integer

Cls

N = InputВох ("Сколько чисел сложить?", "Количество чисел")

S = 0 'Начальное значение суммы

For i = 1 То N Step l

S = S + I 'Накопление суммы

Next i

Print "Сумма", N, "натуральных чисел", S

End Sub

5. Запустите проект на выполнение. Проанализируйте результат.

6. Сохраните проект под именем Лр8_Зад3 _Фамилия.

7. Дополните ЗАВДАННЯ 8.3

1. Измените программу таким образом, чтобы она вычисляла сумму только натуральных четных чисел в интервале до N.

2. Изменить программу так, чтобы она вычисляла сумму только натуральных нечетных чисел в интервале до N.

3. Измените программу таким образом, чтобы она вычисляла N! (факториал числа N): N!=1*2*3* *N

4. Измените программу таким образом, чтобы вычислялась сумма:
S =1+l/2²+l/3³+.+l/N^N.

ЗАВДАННЯ НА САМОСТІЙНУ РОБОТУ(В,ВС,ЛС)