A.Sub fl(By Val()As Integer)
B.Sub fl(n() As Integer)As Integer
C.Functionn fl(fl As Integer)As Integer
D.Function fl(ByVal f As Integer)