Microsoft Office Tutorials and References
In Depth Information
5.3.2 Übergabe von Parametern
x=5
y=12
Cells(1, 1).Value = x
Cells(1, 2).Value = y
TauscheKopie x, y
Cells(2, 1).Value = x
Cells(2, 2).Value = y
TauscheReferenz x, y
Cells(3, 1).Value = x
Cells(3, 2).Value = y
End Sub
Sub TauscheKopie(ByVal a As Integer, ByVal b As Integer)
Dim c As Integer
c=a
a=b
b=c
End Sub
Sub TauscheReferenz(ByRef a As Integer, ByRef b As Integer)
Dim c As Integer
c=a
a=b
b=c
End Sub
Das Ergebnis:
Abbildung 5.8
Übergabe per Wert, Übergabe per Referenz
Zur Erläuterung:
In der Prozedur Uebergabe() werden zwei Integer -Variablen mit
Startwerten belegt. Anschließend werden die Prozeduren Tausche-
Kopie() und TauscheReferenz() aufgerufen. Schließlich werden die
neuen Werte der beiden Variablen ausgegeben.
Search JabSto ::




Custom Search