Методические рекомендации для лабораторно-практических работ по ЕН. 02 Информационные технологии в профессиональной деятельности

br/>3. Для кнопки «Очистить» запишите следующий программный код
Private Sub CommandButton2Click()
TextBox1 " "
TextBox2 " "
TextBox3 " "
End Sub
4. Запустите проект и проверьте его на выполнение.
Упражнение 3. Создание сложной формы для вычисления выбранного арифметического действия к выделенным числам.
1. В редакторе VBA разработать пользовательскую форму, показанную на рисунке 43, где для изображения:
чисел используется элемент Список (ListBox);
Вычислить, Отмена – элемент Кнопка (CommandButton);
Операция – элемент Рамка (Frame);
Сумма, Произведение, Среднее - элемент Переключатель (OptionButton);
Результат - элемент Надпись (Label );
для отображения вычисляемого значения – элемент TextBox (Текстовое поле).
2. На кнопку «Вычислить» введите следующую программу:
Private Sub CommandButton1Click()
Dim i As Integer
Dim n As Integer
Dim Сумма As Double
Dim Произведение As Double
Dim Среднее As Double
Dim Результат As Double
If OptionButton1. Value True Then
Сумма 0
With ListBox1
For i 0 To . ListCount - 1
If . Selected(i) True Then
Сумма Сумма . List(i)
End If
Next i
End With
Результат Сумма
End If
If OptionButton2. Value True Then
Произведение 1
With ListBox1
For i 0 To . ListCount - 1
If . Selected(i) True Then
Произведение Произведение . List(i)
End If
Next i
End With
Результат Произведение
End If
If OptionButton3. Value True Then
Среднее 0
n 0
With ListBox1
For i 0 To . ListCount - 1
If . Selected(i) True Then
n n 1
Среднее Среднее . List(i)
End If
Next i
End With