Вычисление максимума, минимума, среднего арифметического, среднего геометрического и среднего гармонического
Создание пользовательской формы организуется следующим образом:
1. Войти в VBA – Alt - F 11;
2. Выбрать Insert (вставка);
3. Выбрать UserForm .
Затем на появившуюся “платформу” объекта UserForm с панели Toolbox, рис. 9.4, последовательно переместить:
одинадцать объектов Label;
десять объектов Textbox;
триобъекта Frame;
два объекта CommandButton ,
расположив их, как показано на рис. 9.9.
.
Рис. 9.9.
В объекте UserForm используются три объекта Frame (рамка), рис. 9.9, два из которых переименованы в “Исходные данные” и “Результаты”.
Далее открыть модуль, программно поддерживающий объект CommandButton 1 (в свойстве Caption переименованный в “Вычислить”), объекта UserForm и написать программу, обеспечивающую организацию взаимодействия выбранных объектов для получения результатов при вычислении максимального, минимального значений из пяти введенных чисел, а также вычисления среднего арифметического, среднего геометрического и среднего гармонического значений.
Программа Вычисление максимума, минимума, среднего арифметического, среднего геометрического и среднего гармонического
Private Sub CommandButton1_Click()
If Not IsNumeric(TextBox1) Or Not IsNumeric(TextBox2) Or Not IsNumeric(TextBox3) Or Not IsNumeric(TextBox4) Or Not IsNumeric(TextBox5) Then
MsgBox "Исходные данные введены неверно или не полностью!", , "Введите числа"
Exit Sub
End If
A = CDbl(TextBox1)
B = CDbl(TextBox2)
C = CDbl(TextBox3)
D = CDbl(TextBox4)
E = CDbl(TextBox5)
TextBox6 = Application.WorksheetFunction.Max(A, B, C, D, E)
|
|
|
TextBox7 = Application.WorksheetFunction.Min(A, B, C, D, E)
TextBox8 = Application.WorksheetFunction.Average(A, B, C, D, E)
TextBox9 = (A * B * C * D * E) ^ (1 / 5)
If A <> 0 And B <> 0 And C <> 0 And D <> 0 And E <> 0 Then
TextBox10.Visible = True
Label11.Visible =
TextBox10 = 5 / (1 / A + 1 / B + 1 / C + 1 / D + 1 / E)
Else
TextBox10.Visible = False
Label11.Visible = True
End If
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Некоторые комментарии к программе:
– В программе используется функция INumeric ( TextBox ) проверяющая являются ли данные, помещенные в объекте TextBox 1 или вобъекте TextBox 2 или в объекте TextBox 3 или вобъекте TextBox 4 или вобъекте TextBox 5 цифровыми;
– В программе используется функция CDbl ( TextBox ), обеспечивающая преобразование данных объектов TextBox 1, TextBox 2, TextBox 3, TextBox 4 и TextBox 5 в цифровые;
– В программе используются функции вычисления максимума Max ( A , B , C , D , E ), минимума Min ( A , B , C , D , E ) и среднего арифметического значения Average ( A , B , C , D , E ) для пяти введенных чисел A , B , C , D , E;
– В программе при вычислении среднего гармонического обрабатывается ситуация невозможности деления на ноль, при этом в объект TextBox 10 выводится результат вычисления среднего гармонического, а объект Label 11 делается невидимым за счет сообщения ему через свойство Visible значения False, в противном случае – наоборот: невидимым делается объект TextBox 10, а объекту Label 11 через свойство Caption передается значение “Числа должны быть отличны от нуля!”, рис. 9.10;
|
|
|
Рис. 9.10.
– Модуль объекта CommandButton 2, который в свойстве Caption переименован в “Выход”,обеспечивает завершение функционирования объекта UserForm .
Использование объекта ScrollBar (полоса прокрутки)
Создание пользовательской формы организуется следующим образом:
1. Войти в VBA – Alt - F 11;
2. Выбрать Insert (вставка);
3. Выбрать UserForm .
Затем на появившуюся “платформу” объекта UserForm с панели Toolbox, рис. 9.4, последовательно переместить:
триобъекта Textbox;
триобъекта ScrollBar;
один объект CommandButton ,
расположив их, как показано на рис. 9.11.
Далее войти в VBA (Alt-F11), выбрать объект UserForm . Затем,выбрав сначала, например, объект ScrollBar 1, написать соответствующую программу, обеспечивающую организацию взаимодействия выбранных объектов для изменения цвета объект UserForm в зависимости от состояний объектов ScrollBar 1, ScrollBar 2 и ScrollBar 3.
И так для каждого из семи объектов объекта UserForm .
Рис. 9.11.
Дата добавления: 2019-03-09; просмотров: 207; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!