Título: Analizar Numeros Publicado por: desnut en 3 Junio 2008, 10:36 am 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. Título: Re: Analizar Numeros Publicado por: Hans el Topo en 3 Junio 2008, 10:50 am poco has buscado
recorre la list contando cuantas veces ha aparecido cada uno y busca los tres que más se han repetido |