Private Sub CommandButton1_Click()
Dim a As Integer, b As Integer, x As Integer, y As Integer
Dim c As Integer, pom As Variant, wartosc As Double

MsgBox "Szukanie największego wspólnego dzielnika" & Chr(13) & _
"Szukanie najmniejszej wspólnej wielokrotności"

'najpiers sprawdza czy podana wartosc jest liczba a jesli tak to czy calkowita
pom = (InputBox("Wprowadź pierwszą liczbę"))
If IsNumeric(pom) Then
If (pom - Int(pom) = 0) And pom > 0 And pom < 32768 Then a = pom Else GoTo blad
Else
GoTo blad
End If

pom = (InputBox("Wprowadź drugą liczbę"))
If IsNumeric(pom) Then
If (pom - Int(pom) = 0) And pom > 0 And pom < 32768 Then b = pom Else GoTo blad
Else
GoTo blad
End If



If a > b Then
c = a
a = b
b = c
End If

x = a
y = b


Do While a <> 0
c = b Mod a
b = a
a = c
Loop
wartosc = CDbl(x) * CDbl(y) / b
MsgBox " Odp: " & "NWD liczb " & x & " i " & y & " jest " & b
MsgBox " Odp: " & "NWW liczb " & x & " i " & y & " jest " & wartosc
Exit Sub

blad:
MsgBox "wprowadzane wartości muszą być liczbami naturalnymi" _
& Chr(13) & "z przedziału domkniętego od 1 do 32767", vbCritical

End Sub

iloczyn = a * b

Private Sub CommandButton1_Click()
Dim a As Integer, b As Integer, x As Integer, y As Integer
Dim c As Integer, pom As Variant

MsgBox "Szukanie największego wspólnego dzielnika" & Chr(13) & _
"Szukanie najmniejszej wspólnej wielokrotności"

'najpiers sprawdza czy podana wartosc jest liczba a jesli tak to czy calkowita
pom = (InputBox("Wprowadź pierwszą liczbę"))
If IsNumeric(pom) Then
If (pom - Int(pom) = 0) Then a = pom Else GoTo blad
Else
GoTo blad
End If

pom = (InputBox("Wprowadź drugą liczbę"))
If IsNumeric(pom) Then
If (pom - Int(pom) = 0) Then b = pom Else GoTo blad
Else
GoTo blad
End If

iloczyn = a * b

If a > b Then
c = a
a = b
b = c
End If

x = a
y = b

Do While a <> 0
c = b Mod a
b = a
a = c
Loop
MsgBox " Odp: " & "NWD liczb " & x & " i " & y & " jest " & b
MsgBox " Odp: " & "NWW liczb " & x & " i " & y & " jest " & ( x*y)/ b
Exit Sub

blad:
MsgBox "wprowadzane wartości muszą być liczbami naturalnymi", vbCritical

End Sub

Private Sub CommandButton1_Click()
Dim a, b, x, y, c, r As Integer
MsgBox "Szukanie największego wspólnego dzielnika" & Chr(13) & "Szukanie najmniejszej wspólnej wielokrotności"
a = CSng(InputBox("Wprowadź pierwszą liczbę"))
b = CSng(InputBox("Wprowadź drugą liczbę"))
iloczyn = a * b ' <---- nowa linia
If a > b Then
c = a
a = b
b = c
End If
x = a
y = b
Do While a <> 0
r = b Mod a
b = a
a = r
Loop
MsgBox " Odp: " & "NWD liczb " & x & " i " & y & " jest " & b
MsgBox " Odp: " & "NWW liczb " & x & " i " & y & " jest " & iloczyn / b ' <---- nowa linia
End Sub

Function nww1(a As Integer, b As Integer) As Long
Dim pom As Long
Dim iloczyn As Long

iloczyn = a * b

Do While (b)
pom = a Mod b
a = b
b = pom
Loop

nww1 = (iloczyn / a)

End Function

Function nwd1(a As Integer, b As Integer) As Long
Dim iloczyn As Long
iloczyn = a * b
nwd1 = iloczyn / nww1(a, b)
End Function

Sub nwd()
Dim ile As Integer, a() As Long, i As Long, j As Long, wynik As Long
Dim czy As Boolean, liczby As String, pom As Variant

'On Error GoTo blad

pom = ((InputBox("podaj ilość liczb, dla których będziesz" & Chr(13) _
& "szukać największego wsólnego dzielnika", , 2)))

'toleruje tylko liczby naturalne
If IsNumeric(pom) And (pom - Int(pom) = 0) Then ile = pom Else GoTo blad

ReDim a(ile - 1)

liczby = ""
For i = 0 To ile - 1
pom = (InputBox("wprowadź " & i + 1 & " liczbę"))
If IsNumeric(pom) And (pom - Int(pom) = 0) Then a(i) = pom Else GoTo blad
liczby = liczby & CStr(a(i)) & ","
Next i

'liczby - sluzy do wyswietenia wartosci w okienku msgbox;pozbywamy sie ostaniego przecinka
liczby = Left(liczby, Len(liczby) - 1)



'domnienanym rozwiazaniem jest 1 ale jak znajdzie wieksza liczbe to podstawia ja za winik
wynik = 1

'zaczyna sprawdzanie od najmniejszej z podanych wartosci , powyzej nie ma co sprawdzac
For i = Application.WorksheetFunction.Min(a) To 2 Step -1
    czy = True
    For j = 0 To ile - 1
        If a(j) Mod i > 0 Then
        czy = False
        Exit For
        End If
    Next j

'jesli wartosc czy nie znienila sie z true na false to znaczy ze dana liczba jest
'dzielnikiem bez reszty wszystkich wprowadzonych wartosci
'mozemy teraz wyjsc z glownej petli bo i tak wiekszego dzielnika nie znajdziemy
If czy = True Then
wynik = i
Exit For
End If

Next i

MsgBox "największy wspólny dzielnik liczb:" & Chr(13) & liczby & " to: " & CStr(wynik)
Exit Sub

blad:
MsgBox "wprowadzane wartości muszą być liczbami naturalnymi", vbCritical

End Sub

Sub nww()
Dim ile As Integer, a() As Long, i As Long, j As Long, wynik As Long
Dim czy As Boolean, liczby As String, max As Long, pom As Variant

On Error GoTo blad

pom = (InputBox("podaj ilość liczb, dla których będziesz" & Chr(13) _
& "szukać najmniejszej wsólnej wielokrotności", , 2))

If IsNumeric(pom) And (pom - Int(pom) = 0) Then ile = pom Else GoTo blad

ReDim a(ile - 1)

liczby = ""
For i = 0 To ile - 1
pom = (InputBox("wprowadź " & i + 1 & " liczbę"))
If IsNumeric(pom) And (pom - Int(pom) = 0) Then a(i) = pom Else GoTo blad
liczby = liczby & CStr(a(i)) & ","
Next i
liczby = Left(liczby, Len(liczby) - 1)


'sprawdzanie zaczyna od najwiekszej z prowadzonych wartosci i bada wszyskie jej wielokrotnosci
max = Application.WorksheetFunction.max(a)
i = 1
Do
    czy = True
    For j = 0 To ile - 1
    If max * i Mod a(j) > 0 Then
    czy = False
    Exit For
    End If
    Next j
    
If czy = True Then
wynik = max * i
Exit Do
End If

i = i + 1
Loop

MsgBox "najmniejszy wspólny dzielnik liczb:" & Chr(13) & liczby & " to: " & CStr(wynik)
Exit Sub

blad:
MsgBox "wprowadzane wartości muszą być liczbami naturalnymi", vbCritical

End Sub