Programación VB: Dados 3 números xyz, compare sus tamaños y ordénelos de modo que x>y>z

dim a(3)' define la matriz a, a(1) almacena el valor máximo y a(3) el valor mínimo

a(1)=x

si y>a(1) entonces

a(2)=a(1)

a(1)=y

otro

a(2)=y

endif

si z>a(1) entonces

a(3)=a(1)

a(1)=z

si no, si z>a(2) entonces

a(3)=a(2)

a(2)=z

else

a(3)=z

endif

x=a(1)

y=a(2)

z=a(3)