Function Range(ByVal i As System.Array, ByVal Start%, ByVal End%) As System.Array

           If [End] < Start Then Return i

           Dim Data([End] - Start)

           For e = Start To [End]

               Data(e) = i(e)

           Next

           Return Data

End Function

แกล้งโปรแกรม หุหุ

public System.Array Range(System.Array i, System.Object Start, System.Object End)

{

if (End < Start) return i;

[] Data = new[];

for (e = Start; e <= End; e++) {

Data(e) = i(e);

}

return Data;

}

My support