Rectifico:
Publicado por Maria (1 intervención) el 26/11/2004 20:41:19
For i = UBound (arrNotas)To LBound (arrNotas) -1
For j = UBound (arrNotas)To LBound (arrNotas) -1
If arrNotas ( j , x ) > arrNotas ( j + 1 , x)
aux = arrNotas ( j , x )
arrNotas ( j , x ) = arrNotas ( j + 1 , x )
arrNotas ( j + 1 , x ) = aux
End if
Next j
Next i
For j = UBound (arrNotas)To LBound (arrNotas) -1
If arrNotas ( j , x ) > arrNotas ( j + 1 , x)
aux = arrNotas ( j , x )
arrNotas ( j , x ) = arrNotas ( j + 1 , x )
arrNotas ( j + 1 , x ) = aux
End if
Next j
Next i
Valora esta pregunta
0