Вычисление максимума, минимума, среднего арифметического, среднего геометрического и среднего гармонического



Создание пользовательской формы организуется следующим образом:

1. Войти в VBAAlt - 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. Войти в VBAAlt - 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; просмотров: 146; Мы поможем в написании вашей работы!






Мы поможем в написании ваших работ!