"
For i = hi to lo step -1
Response.Write "
"& vec(i,0) & "
"
For j = 1 to Ubound(vec,2)
Response.Write "
"& vec(i,j) & "
"
Next
Response.Write "
"
Next
Response.Write "
"
End Sub 'PrintArray
Randomize
Dim x(19,5),z,y
Const col =1
For z = 0 to 19
For y = 0 to 5
x(z,y) = int(Rnd*1000)
If (Rnd < 0.5) then x(z,y) = x(z,y)-1000
Next
Next
Call QuickSort(clas,0,19,col)
Call PrintArray(clas,0,19,col)
%>
<%if estaimprimiendo<>1 then%>