Red de conocimiento informático - Problemas con los teléfonos móviles - Problema de VB, use un método aleatorio para generar cuatro números enteros positivos de cuatro dígitos, luego compare los tamaños y muéstrelos en el formulario en orden de mayor a menor.

Problema de VB, use un método aleatorio para generar cuatro números enteros positivos de cuatro dígitos, luego compare los tamaños y muéstrelos en el formulario en orden de mayor a menor.

sub form_click() privado

atenuar a(3) como entero, i, j

para i=0 a 3

a(i)=int(rnd * 9000) 1000

imprimir a(i);

siguiente

imprimir

para i =0 a 3

para j=0 a i

si a(i)gt; a(j) entonces t=a(i):a(i)=a( j): a(j)=t

siguiente

siguiente

para i=0 a 3

imprimir a(i) ;

siguiente

fin del sub