|
|||||||
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция |
End Sub. Результат работы программного кода при значении координат x=0.5 и y=0.5 показан на рисунках 10, 11, 12
Результат работы программного кода при значении координат x=0.5 и y=0.5 показан на рисунках 10, 11, 12. Рис. 10. Диалоговое окно ввода координаты x – результат использования функции InputBox("Введите координату x”)
Рис. 11. Диалоговое окно ввода координаты y – результат использования функции InputBox("Введите координату y")
Рис. 12. Результаты работы программного кода в диалоговом окне сообщений (MsgBox)
Протестируйте остальные ветви алгоритма, введя соответствующие значения исходных данных. Теперь рассмотрим пример разработки программного кода того же примера, используя объектно ориентированное программирование, реализуемое средствами языка VBA, используя экранные формы. Форма и расположение на ней элементов управления после задания новых свойств этим элементам представлена на рисунке 13.
Рис. 13. Форма и расположение на ней элементов управления
Программный код Private Sub Cmd_Click() Dim x As Single Dim y As Single Dim strRezultat1 As String Dim strRezultat2 As String x = Val(TxtX.Value) y = Val(TxtY.Value) strRezultat1 = "Точка (" & X & ", " & Y & ") находится" If (x - 2) ^ 2 + (y - 2) ^ 2 <= 1 And y <= 2 Then strRezultat2 = strRezultat1 & "в области B" ElseIf x ^ 2 + y ^ 2 <= 1 Then strRezultat2 = strRezultat1 & "в области A" ElseIf x / -3 + y / 3 <= 1 And x <= 0 And y >= 0 Then strRezultat2 = strRezultat1 & "в области С" Else strRezultat2 = strRezultat1 & "вне областей" End If TxtRezultat2.Value = strRezultat2 Поиск по сайту: |
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.002 сек.) |