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

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

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

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

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

Private Sub Command1_Click()

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

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

summ = 0

For i = 1 To n

summ = summ + a

a = a + 2

Next i

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