Option Explicit
Sub fakultaeten()
' Programm bildet die Fakultaet einer einzugebenden Zahl
' Dateiname: fakultaeten
Dim fakultaet As Integer
Dim bisZu As Integer
Dim i As Integer
' Gib Programmbeschreibung aus
MsgBox ("Berechnung der Fakultät der Zahl, die Sie eingeben!")
'Lies die Zahl, deren Fakultät berechnet werden soll, ei
bisZu = InputBox("Geben Sie nun die Zahl ein, deren Fakultät " & _
"berechnet werden soll!")
' initialisiere fakultaet mit 1
fakultaet = 1
' Berechnung der fakultaet
For i = 1 To bisZu
fakultaet = fakultaet * i
Next i
' Gib Ergebnis in einem Fenster aus
MsgBox (" " & bisZu & "! = " & fakultaet)
End Sub