Analizar Numeros

Iniciado por desnut, 3 Junio 2008, 10:36 AM

0 Miembros y 1 Visitante están viendo este tema.

desnut

Buenas, a todos. Estoy intentando hacer un programa que genere numeros aleatorios.
De momento e conseguido que genere numeros aleatorios con el codigo expuesto en este post y ahora me interesaria que el programa comparara los numeros y dijera cual es el primer numero que sale repetido mas veces, cual es el segundo numero que sale mas veces despues del primero y cual es el 3r numero repetido que sale mas veces.

de momento esto es lo mas aproximado.

Private Sub Command1_Click()
    Dim num As Integer
    Math.Randomize
    num = ((36 - 0) * Rnd)
    Text1.Text = num
    List1.AddItem Text1.Text
End Sub

Cuando genera los numeros los apunta en el listbox, la cuestion seria que sacara los 3 resultados de los numeros que mas veces se repiten en 3 texbox distintos por ejemplo,
No hace falta decir que he buscado por el tito google y por todas partes y no e encontrado nada, gracias de antemano wink.

Hans el Topo

poco has buscado

recorre la list contando cuantas veces ha aparecido cada uno y busca los tres que más se han repetido