Информатика для I курса. Часть I. Никифоров С.Н. - 32 стр.

UptoLike

ВУЗ: 

СПбГАСУ | Санкт-Петербург

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

Рубрика: 

62 63
Else
MsgBox "ВВЕДИТЕ A,B,C"
End If
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Некоторые комментарии к программе:
в программе для удобства в Properties в разделе Name объ-
ект TextBox1 переименован в TextBoxA, аналогично TextBox2 –
TextBoxB, TextBox3 – TextBoxC, TextBox4 – TextBoxX1, TextBox5 –
TextBoxX2 и TextBox6 – TextBoxD;
в программе используется функция INumeric(TextBox), про-
веряющая, являются ли данные, помещенные в объекте TextBoxA,
или в объекте TextBoxB, или в
объекте TextBoxC, цифровыми;
в программе обрабатывается ситуация, когда дискриминант
приобретает отрицательное значение, в этом случае объектам
TextBoxX1, TextBoxX2 и Label5 сообщается свойство Visible со
значением False, в результате чего указанные объекты становят-
ся невидимыми, а объекту Label4 присваивается символьная кон-
станта Нет решений (рис. 9.8);
модуль объекта CommandButton2, который в свойстве
Cap-
tion переименован в «Выход», обеспечивает завершение функцио-
нирования объекта UserForm.
9.5. Вычисление максимума, минимума, среднего
арифметического, среднего геометрического
и среднего гармонического
Создание пользовательской формы организуется следующим
образом:
войти в VBA – Alt-F11;
выбрать Insert (вставка);
выбрать UserForm.
Рис. 9.8
Затем на появившуюся «платформу» объекта UserForm с пане-
ли Toolbox (см. рис. 9.4) последовательно переместить:
одинадцать объектов Label;
десять объектов Textbox;
три объекта Frame;
два объекта CommandButton,
расположив их, как показано на рис. 9.9.
В объекте UserForm используются три объекта Frame (рамка)
(см. рис. 9.9), два из которых переименованы в «Исходные дан-
ные» и «Результаты».
Далее открыть модуль, программно поддерживающий объект
CommandButton1 (в свойстве Caption переименованный в «Вы-
числить») объекта UserForm, и написать программу, обеспечи-
вающую организацию взаимодействия выбранных объектов для

Страницы