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=""