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

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

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

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

4. Расположите на форме 2 командных кнопки CommandButton, 2 компонента Label, 1 компонент TextBox. Примерный внешний вид формы приведен на Рис.8.6.

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

6. Присвойте свойству Caption формы значение «Вычисление суммы N чисел ряда 1, 3, 5, 7…», а свойству Name значение «FrmСуммаРяд».

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

DimaAs Integer 'a - член ряда

DimnAs Integer 'n - количество суммируемых членов

DimsummAs Integer 'summ - сумма членов ряда

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

Private SubCommand1_Click()

n = Val(Text1.Text)'получение числа n

a = 1' первый член ряда

summ = 0

Fori = 1Ton

summ = summ + a

a = a + 2

Nexti

Label2.Caption = "Сумма первых " + Str(n) + " членов ряда равна " + Str(summ)