Visual Basic. Теория. Нагина Е.К - 71 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

71
11. Задания для выполнения лабораторных работ
Пример: вычислить среднюю величину вводимых чисел.
Алгоритм задачи следующий :
1. Поместить на экранную форму объекты управления – мет-
ку, текстовое окно и командную кнопку.
2. Изменить имя текстового поля на txtAverage.
3. Изменить свойство Caption метки на Average.
4. Изменить свойство командной кнопки на EnterNumbers
5. Поместить в поле событие Click командной строки код
листинга , который будет использовать созданную панель
ввода для приема чисел от пользователя .
Программа использования переменных для подсчета среднего
значения введенных чисел:
Avgval = 0
Numval = 0 'инициализация переменных avgval, numval,
inptval.
Inptval = 0
Do While Not inptval = 1 'начало цикла. Цикл будет работать до
тех пор, пока значение переменной inptval
не станет = 1.
Inptmsg = “ Input a positive integer or 1 to calculate the varerage”
'задает значение переменной inptmsg, со -
держащей приглашение панели ввода.
Inptval = InptBox (inptmsg, “ Input Values”) 'используется для
вызова функции Input Box (панель ввода) и присваивание по-
лученного значения функции переменной Inptval.
If Val(Inptval) > 0 then 'проверка, что введено число > 0.
Avgval = avgval + Inptval
Numval = numval + 1 'если условие истинно , то суммиру-
ется значение и количество введенных чисел.
End If
Loop 'конец цикла
TxtAverage.Text = avgval / numval 'среднее значение выводится в тексто -
вом окне. Это значение присваивается свойству Text текстового окна. 
                                       71

    11. Заданиядл я вы пол нения л абораторны х работ
    П ример: вы числить средню ю величинувво дим ы х чисел.
    А лго ритм задачи следую щ ий :
           1. П о местить на экранную фо рмуо бъекты управления – мет-
               ку, тексто во е о кно ико мандную кно пку.
           2. И зменить имя тексто во г     о по ля наtxtAverage.
           3. И зменить сво й ство Caption метки наAverage.
           4. И зменить сво й ство ко мандно й кно пки наEnterNumbers
           5. П о местить в по ле со бы тие Click ко мандно й стро ки ко д
               листинг   а, ко то ры й будет испо льзо вать со зданную панель
               вво дадля приемачисело тпо льзо вателя.
           П ро грамма испо льзо вания переменны х для по дсчета среднег       о
           значения введенны х чисел:
           Avgval = 0
           Numval = 0 'иниц иализац ия переменны х avgval, numval,
           inptval.
           Inptval = 0
           Do While Not inptval = 1 'начало ц икла. Ц иклбудетрабо тать до
                                   тех по р, по ка значение переменно й inptval
                                   не станет= 1.
           Inptmsg = “ Input a positive integer or 1 to calculate the varerage”
                                   'задает значение переменно й inptmsg, со -
                                   держ ащ ей приглаш ение панели вво да.
           Inptval = InptBox (inptmsg, “ Input Values”) 'испо льзуется для
           вы зо ва функц ии Input Box (панель вво да) и присваивание по -
           лученно г  о значения функц ии переменно й Inptval.
           If Val(Inptval) > 0 then       'про верка, что введено число > 0.
              Avgval = avgval + Inptval
              Numval = numval + 1 'если усло вие истинно , то сумм иру-
           ется значение и ко личество введенны х чисел.
           End If
           Loop      'ко нец ц икла
TxtAverage.Text = avgval / numval 'среднее значение вы во дится в тексто -
во м о кне. Э то значение присваивается сво й ствуText тексто во г    о о кна.

Страницы