Ausgabe teilweise falsch
09.09.2003 13:14:54
Heinz Nolle
ich habe ein Problem mit der Ausgabe der Ergebnisse. Die Ausgabe der einzelnen Werte in den Spalten (Eingabe: 10) ist bis 720 korrekt, dann wirds konfus, aber das Endergebnis stimmt wieder.
Weiß vielleicht jemand woran das liegen könnte? Danke.
Heinz
----------------------------------
Private Sub CmdOK_Click()
Dim n As Integer
Dim Mldg, Fehler, Titel
Mldg = "Geben Sie 'n' ein: "
Fehler = "Keine Eingaben über 12!"
Titel = "Fakultät"
n = InputBox(Mldg, Titel, 1)
Do While n > 12
Beep
n = InputBox(Fehler, Titel, 1)
Loop
MsgBox "Fakultät(" & n & ") = " & Format(Fakultaet(n), "##,###")
FakAnzeigen(n)
End Sub
---------------------------------------------
Public Function Fakultaet(n As Integer)
Dim i As Integer
Dim Fakul As Long
i = 1: Fakul = 1
Do While i <= n
Fakul = Fakul * i
i = i + 1
Loop
Fakultaet = Fakul
End Function
-------------------------------------
Public Sub FakAnzeigen(n As Integer)
Dim i As Integer
i = 1
Do While i <= n
Worksheets(1).Cells(i, 4).Value = Format(Fakultaet(i), "##,###")
i = i + 1
Loop
End Sub