trier un array

Option Explicit
'Script by Mitch
'Version 15 June, 2015

Call Test()
Sub Test()
	Dim obj,srfs,i
	obj = Rhino.GetObject("Select a polysurface", 16)
	srfs = Rhino.ExplodePolysurfaces(obj, False)
	
	Dim area,areas(),ub,report,sortedSrfs
	ub = Ubound(srfs)
	report = "Original values:" & vbNewline
	ReDim areas(ub)
	
	For i=0 To ub
		Call Rhino.ObjectName(srfs(i), "Surface_" & Cstr(i))
		area = Rhino.SurfaceArea(srfs(i))
		areas(i) = area(0)
		report = report & (Rhino.ObjectName(srfs(i)) & " Area=" & Cstr(areas(i))) & vbNewLine 
	Next
	
	'sort surfaces by area values
	sortedSrfs = KVSort(srfs, areas)
	
	report = report & vbNewLine & "Sorted values:" & vbNewline
	For i=0 To ub
		area = Rhino.SurfaceArea(sortedSrfs(i))
		report = report & (Rhino.ObjectName(sortedSrfs(i)) & " Area=" & Cstr(area(0))) & vbNewLine
	Next
	Call Rhino.DeleteObjects(srfs)
	Call Rhino.TextOut(report)
End Sub

Function KVSort(ByVal arrK, ByVal arrV)	
	'"Gnome" sort - sorts Keys (objects - arrK) by Values (numbers - arrV)
	' by default lowest value will be first in output array
	Dim arrVTemp,arrKTemp,i,j
	i = 1 : j = 2
	Do While i <= Ubound(arrV)
		If arrV(i - 1) <= arrV(i) Then  'For highest value first, change to >=
			i = j : j = j + 1 
		Else
			arrVTemp = arrV(i): arrKTemp = arrK(i)
			arrV(i) = arrV(i - 1): arrK(i) = arrK(i - 1)
			arrV(i - 1) = arrVTemp : arrK(i - 1) = arrKTemp
			i = i - 1
			If i = 0 Then
				i = j : j = j + 1
			End If
		End If		
	Loop
	KVSort = arrK 'output is array of sorted keys
End Function

import rhinoscriptsyntax as rs

obj=rs.GetObject("Select a polysurface", 16)
srfs=rs.ExplodePolysurfaces(obj)
face_areas=[]
report="Original areas \n"
for i, srfID in enumerate(srfs):
    rs.ObjectName(srfID,"Surface_{}".format(i))
    name=rs.ObjectName(srfID)
    area=rs.SurfaceArea(srfID)
    face_areas.append((area[0],name,srfID))
    report+="{} area={}\n".format(name,area[0])
#face_areas is now a list of triples of (area, name and object ID)
#sort by the first element (area)
face_areas.sort()
report+="\nSorted areas \n"
for elem in face_areas:
    report+="{} area={}\n".format(elem[1],elem[0])
rs.DeleteObjects(srfs)
rs.MessageBox(report)