Sub Eingabe()
MyArray(0) = "A"
MyArray(1) = "B"
End Sub
Sub Ausgabe()
MsgBox MyArray(1)
End Sub
Sub GolArray()
Dim arrInteger(3) As Integer
Dim intErg As Integer
arrInteger(1) = 1
arrInteger(2) = 2
arrInteger(3) = 3
TestArray
Sub arrInt:=arrInteger
intErg = TestArrayFun(arrInteger, 1)
MsgBox intErg
End Sub
Sub TestArraySub(arrInt() As Integer)
Dim iZaehler As Integer
For iZaehler = LBound(arrInt) To UBound(arrInt())
Debug.Print arrInt(iZaehler)
Next iZaehler
End Sub
Function TestArrayFun(arrInt() As Integer, intIndex As Integer) As Integer
TestArrayFun = arrInt(intIndex) ^ 2
End Function
Gruß
Micha
Function Ton& Lib "kernel32" Alias "Beep" (ByVal dwFrequenz As Long, ByVal dwDauer As Long)
Sub Komposition()
Dim b As Integer, j As Integer, i As Integer
b = 0
For j = 0 To 3
b = 0
For i = 0 To 50
b = b + 10
Ton 100 + b, 100
Next
b = 0
For i = 0 To 50
b = b + 10
Ton 600 - b, 100
Next
Next j
End Sub
Dein von damals geposteter Code war lustig!
Nochmals danke