Microsoft Office Tutorials and References
In Depth Information
5.3.4 Optionale Parameter
und einmal mit vier Parametern. Sie berechnet jeweils die Summe der
├╝bergebenen Parameter und liefert diese zur├╝ck.
Sub OptionaleParameter()
Dim a As Double, b As Double, c As Double, d As Double
a=4
b=7.5
c = 10.5
d=9
MsgBox Addiere(a, b, c, d)
MsgBox Addiere(a, b, c)
MsgBox Addiere(a, b)
' MsgBox Addiere(a)
End Sub
Function Addiere(x As Double, y As Double, _
OptionalzAsDouble=0,Optionalq_
As Double = 0) As Double
Addiere=x+y+z+q
End Function
Das Ergebnis der ersten Addition:
Abbildung 5.10
Addition: 31 = 4 + 7,5 + 10,5 + 9
Das zweite Ergebnis:
Abbildung 5.11
Addition: 22 = 4 + 7,5 + 10,5
Search JabSto ::




Custom Search