Option Explicit
Dim primo As Integer
Dim secondo As Integer
Dim mcm As Integer
Dim mcd As Integer
Private Sub Cmdcalcola_Click()
primo = Abs(CInt(Txtprimo.Text))
secondo = Abs(CInt(Txtsecondo.Text))
Txtprimo.Text = primo
Txtsecondo.Text = secondo
mcm = primo
Do
mcm = mcm + 1
Loop Until (mcm Mod primo) = 0 And (mcm Mod secondo) = 0
Lblmcm.Caption = CStr(mcm)
mcd = primo
Do
mcd = mcd - 1
Loop Until (primo Mod mcd) = 0 And (secondo Mod mcd) = 0
lblmcd.Caption = CStr(mcd)
mcd = 0
mcm = 0
primo = 0
secondo = 0
End Sub
Private Sub Cmdriavvia_Click()
Txtprimo.Text = ""
Txtsecondo.Text = ""
Lblmcm.Caption = ""
lblmcd.Caption = ""
primo = 0
secondo = 0
mcm = 0
mcd = 0
Cmdcalcola.Enabled = False
End Sub
Private Sub Txtprimo_Change()
If Val(Txtprimo.Text) < 1 Or Val(Txtprimo.Text) > 32000 Then
Txtprimo.Text = ""
End If
If Not IsNumeric(Txtprimo.Text) Then
Txtprimo.Text = ""
End If
If Txtprimo.Text <> "" And Txtsecondo.Text <> "" Then
Cmdcalcola.Enabled = True
End If
End Sub
Private Sub Txtsecondo_Change()
If Val(Txtsecondo.Text) < 1 Or Val(Txtsecondo.Text) > 32000 Then
Txtsecondo.Text = ""
End If
If Not IsNumeric(Txtsecondo.Text) Then
Txtsecondo.Text = ""
End If
If Txtprimo.Text <> "" And Txtsecondo.Text <> "" Then
Cmdcalcola.Enabled = True
End If
End Sub