Red de conocimiento informático - Problemas con los teléfonos móviles - Utilice la programación vba para generar 10 números cualesquiera en orden ascendente

Utilice la programación vba para generar 10 números cualesquiera en orden ascendente

Sub?Generar un rango de números aleatorios de menor a mayor()

Dim?i?As?Integer,?x?As?Integer,?k?As?Integer

i ?=?1

Dim?d?As?Object

¿Set?d?=?CreateObject("Scripting.Dictionary")?Definir y crear un objeto de diccionario

Aleatorización

x?=?Int((Rnd?*?100)?+?1)?' Generar aleatoriamente el primer número entero entre

d.Add ?x, ?i?'Asigna los valores generados al diccionario

'El siguiente bucle generará los 9 números aleatorios restantes y los asignará al diccionario d (en este momento, estos 10 números aleatorios no se repetir)

¿Hacer?Mientras?i?

x ?=?Int((Rnd?*?100)?+?1)

Si?No?d.existe(x)?Entonces

i?=?i?+?1

d.Agregar?x,?i

End?If

Bucle

'El siguiente bucle genera los 10 números aleatorios que se han generado, en orden descendente, que se pueden ver en la ventana Inmediato

Do

k?=?Application.WorksheetFunction.Min(d.keys)

Debug.Print?k

d.Remove?(k)

i?=?i?-?1

¿Bucle hasta?

上篇: ¿En qué carpeta se encuentra el controlador de win7? 下篇: Identificar elementos duplicados. Escribe una función que acepte una lista como argumento.

Artículos populares