Ход работы. 8. Сохраните проект (выбрав File – Save frmОкружности.frm и Save Окружности.vbp) в папке 8.2

End Sub

Next

8. Сохраните проект (выбрав File – Save frmОкружности.frm и Save Окружности.vbp) в папке 8.2.

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

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

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

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

Задание 3. Вычисление суммы N чисел ряда 1, 3, 5, 7, ….

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

Разработать приложение, которое вычисляет сумму первых N чисел ряда 1, 3, 5, 7, …. Число N вводится пользователем. Программа должна вывести сумму N чисел, и количество N этих чисел. Примерный внешний вид формы приложения показан на Рис.8.6.

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)

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