Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
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-28; Прочитано: 156 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!