Erzeuge ein Programm mit dargestellter Oberfläche
und entsprechender Funktionalität.
Die erforderlichen
Formeln lauten:
|
|
|
n = mylog (Kn / K, 1 + p / 100) |
Für die verwendeten Variablen gilt: |
|
Verwende folgende Funktion:
Private Function
mylog(dZahl As Double, dBasis As Double) As Double
mylog =
Log(dZahl) / Log(dBasis)
End Function