Private Function Obst(ByVal index As Integer) As String
Dim strObst(3) As String
strObst(0) = "Apfel"
strObst(1) = "Birne"
strObst(2) = "Melone"
strObst(3) = "Gurke"
Obst = strObst(index)
End Function
Bedenke:
Dim strObst(3) as String ist dasselbe wie strObst(0 To 3) -> 4Elemente
By the way:
Return findet man in C-ähnlichen bzw C-Dialekten als Anweisung um den Funktionswert zurückzugeben.
|