Hallo,
Für die Schule muss ich ein Programm schreiben, das das kleinste gemeinsame Vielfache von zwei Zahlen berechnet. Kann mir da einer helfen? WIe geht das?
Sean

Du musst einer der Algorithmen implementieren.
Wiki: kgV

Na ja, hab's jetzt so gelöst:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Dim f1 As Integer Dim f2 As Integer Private Sub Command1_Click()     If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then         If Text1.Text = 0 Or Text2.Text = 0 Then             MsgBox ("Das kgV kann nur mit ganzen Zahlen ungleich 0 gebildet werden")             Exit Sub         Else             f1 = CInt(Text1.Text)             f2 = CInt(Text2.Text)         End If     Else         MsgBox ("Es müssen ganze Zahlen für beide Zahlen eingesetzt werden")         Exit Sub     End If kgv = f1 * f2     While kgv Mod f1 <> 0 Or kgv Mod f2 <> 0         If kgv = 0 Then             kgv = f1 * f2         Else             kgv = kgv - 1         End If     Wend Text3.Text = kgv End Sub

Sieht doch schon ganz gut aus. Du sollest es nur ein wenig lesbar schreiben

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Private Sub Command1_Click()     Dim f1 As Integer     Dim f2 As Integer    If Not IsNumeric(Text1.Text) Or Not IsNumeric(Text2.Text) Then         MsgBox ("Es müssen ganze Zahlen für beide Zahlen eingesetzt werden")         Exit Sub   End If     f1 = CInt(Text1.Text)   f2 = CInt(Text2.Text)     If f1 = 0 Or f2 = 0 Then       MsgBox ("Das kgV kann nur mit ganzen Zahlen ungleich 0 gebildet werden")       Exit Sub    End if       kgv = f1 * f2         While kgv Mod f1 <> 0 Or kgv Mod f2 <> 0         If kgv = 0 Then             kgv = f1 * f2         Else             kgv = kgv - 1         End If     Wend       Text3.Text = CStr(kgv)   End Sub

Sauberer wär es generell, wenn du dafür eine Funktion schreiben würdest.

Text3.Text = CStr( fKGV(CInt(Text1.Text),CInt(Text2.Text))