En VB, ¿cómo generar aleatoriamente 10 números aleatorios entre 0 y 100 y ordenarlos de pequeño a grande?

Cree un nuevo formulario1, agregue el comando1, agregue la etiqueta1 y establezca la altura de la etiqueta1 ligeramente más alta para mostrar los datos. Agregue la siguiente declaración a la vista de código del formulario.Private Sub Command1_Click() 'Definir variables

Dim a(9) As Integer

Dim i As Integer

Dim r As Integer

Dim t As Integer 'Generar números aleatorios

Aleatorizar

Para i = 0 a 9

a(i ) = CInt(Rnd() * 100)

Siguiente i 'Ordenar

Para i = 0 a 8

Para r = i + 1 a 9

Si a(i) > a(r) Entonces

t = a(i)

a(i) = a(r)

a(r) = t

Finalizar si

Siguiente r

Siguiente i 'Mostrar datos

Label1.Caption = ""

Para i = 0 a 9

Label1.Caption = Label1.Caption + "th" + CStr(i + 1) + "número aleatorio=" + CStr(a ( i)) + vbCrLf

Siguiente i

Fin Sub