2015-05-14
202
1. Расположите на форме одну командную кнопку, два текстовых поля и две метки (рис. 8.3).
Рис.8.3
2. Установите значения свойства Name:
ü для формы — frmЦикл;
ü для кнопки — cmdЦикл;
ü для первого текстового поля — txtЧисла;
ü для второго текстового поля — txtСреднее;
ü для первого текстового поля установите значение свойства MultiLine —True и значение свойства ScrollBars —2 (Vertical).
Свойство MultiLine, равное True, для текстового поля с именем txtЧисла указывает на то, что текст данного поля разбит на строки, между которыми стоят символы перехода на новую строку и возврата к левому краю текста (коды ASCII этих символов 13 и 10).
Все остальные свойства, определяющие внешний вид проекта, установите по собственному усмотрению.
3. Составьте программный код проекта:
Private Sub CmdЦикл_Click()
Dim N As Integer, i As Integer 'Количество чисел, счетчик цикла
Dim sum As Single, sr As Single 'Сумма, среднее значение
