Студопедия
МОТОСАФАРИ и МОТОТУРЫ АФРИКА !!!

Авиадвигателестроения Административное право Административное право Беларусии Алгебра Архитектура Безопасность жизнедеятельности Введение в профессию «психолог» Введение в экономику культуры Высшая математика Геология Геоморфология Гидрология и гидрометрии Гидросистемы и гидромашины История Украины Культурология Культурология Логика Маркетинг Машиностроение Медицинская психология Менеджмент Металлы и сварка Методы и средства измерений электрических величин Мировая экономика Начертательная геометрия Основы экономической теории Охрана труда Пожарная тактика Процессы и структуры мышления Профессиональная психология Психология Психология менеджмента Современные фундаментальные и прикладные исследования в приборостроении Социальная психология Социально-философская проблематика Социология Статистика Теоретические основы информатики Теория автоматического регулирования Теория вероятности Транспортное право Туроператор Уголовное право Уголовный процесс Управление современным производством Физика Физические явления Философия Холодильные установки Экология Экономика История экономики Основы экономики Экономика предприятия Экономическая история Экономическая теория Экономический анализ Развитие экономики ЕС Чрезвычайные ситуации ВКонтакте Одноклассники Мой Мир Фейсбук LiveJournal Instagram

End Sub. 6. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму




6. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.

Задача № 8.4

1. Создать новый проект и программу для вычисления наименьшего общего кратного 2-х произвольных чисел. Окно работающего приложения показано на рис. 81.

 
 

2. Записать для кнопки Вычислить программный код:

Dim n1, n2, Nok, M As Double

If Val(Text1.Text)<>0 Or Val(Text2.Text)<>0 Then

n1=Abs(Val(Text1.Text))

n2=Abs(Val(Text2.Text))

M=n1*n2

Do

q=n1 Mod n2

n1=n2: n2=q

Loop While q<>0

Nok=n1

Text3.Text=M/Nok

Else

MsgBox "Следует ввести числа, отличные от нуля!"

Text1.Text=""

Text2.Text=""





Дата добавления: 2015-01-07; просмотров: 738; Опубликованный материал нарушает авторские права? | Защита персональных данных


Не нашли то, что искали? Воспользуйтесь поиском:

Лучшие изречения: На стипендию можно купить что-нибудь, но не больше... 9454 - | 7498 - или читать все...

Читайте также:

 

3.209.10.183 © studopedia.ru Не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования. Есть нарушение авторского права? Напишите нам | Обратная связь.


Генерация страницы за: 0.001 сек.