Visual Basic Programm gesucht...

Was ist den bitte ein kgv und ein ggt??? Da habe ich wohl in Mathe geschlafen. (Naja, ist bei mir auch schon ein paar Jahre her.)

Rieu

KGV oder GGT ermitteln

--------------------------------------------------------------------------------

Aufgabenstellung:
Ich möchte den GGT (größten gemeinsamen Teiler) bzw. das KGV (kleinste gemeinsame Vielfache) zweier ganzer Zahlen ermitteln.

Lösung:
Public Function GGT(Zahl1 As Long, Zahl2 As Long) As Long
Dim Merk As Long
Do While Zahl1 > 0
If Zahl1 < Zahl2 Then
Merk = Zahl1
Zahl1 = Zahl2
Zahl2 = Merk
End If
Zahl1 = Zahl1 - Zahl2
Loop
GGT = Zahl2
End Function

Public Function KGV(Zahl1 As Long, Zahl2 As Long) As Long
Dim Merk As Long
If Zahl1 > Zahl2 Then
Merk = Zahl1
Zahl1 = Zahl2
Zahl2 = Merk
End If
Merk = Zahl2
Do
If Zahl2 Mod Zahl1 = 0 Then Exit Do
Zahl2 = Zahl2 + Merk
Loop
KGV = Zahl2
End Function

Aufruf dann z.B.:

Debug.Print GGT(8652,420)
84

Anmerkung:
Wie immer bei numerischen Operationen sind die Wertebereiche der verwendeten Zahlentypen zu beachten.

Quelle

In deinem Fall also:

Zitat

Public Function GGT(Zahl1 As Long, Zahl2 As Long) As Long
Dim Merk As Long
Do While Zahl1 > 0
If Zahl1 < Zahl2 Then
Merk = Zahl1
Zahl1 = Zahl2
Zahl2 = Merk
End If
Zahl1 = Zahl1 - Zahl2
Loop
GGT = Zahl2
End Function

Public Function KGV(Zahl1 As Long, Zahl2 As Long) As Long
Dim Merk As Long
If Zahl1 > Zahl2 Then
Merk = Zahl1
Zahl1 = Zahl2
Zahl2 = Merk
End If
Merk = Zahl2
Do
If Zahl2 Mod Zahl1 = 0 Then Exit Do
Zahl2 = Zahl2 + Merk
Loop
KGV = Zahl2
End Function

Private Sub Command1_Click()
Label1.Caption = KGV(Text1.Text, Text2.Text)
End Sub

Private Sub Command2_Click()
Label1.Caption = GGT(Text1.Text, Text2.Text)
End Sub

Alles anzeigen

Hat sich aj schwer nach ner Hausaufgabe angehört
Ich mach gerade mein F - Abi in Informatik und da machen wir nie so was *schnief*
Nur so schwule Kreise die auf Command button Click die Frabe ändern..Also nur so Zeugs was garnix bringt

Aber nurnmal so als Hilfestellung: Wenn du Source Codes suchts dann scha doch mal hier vorbei.Die haben eigentlich in jeder Sprache und zu jedem Thema was ..
Gruss
Jan