Visual Basic - numeros repetidos

Life is soft - evento anual de software empresarial
 
Vista:

numeros repetidos

Publicado por jygc (1 intervención) el 07/09/2002 00:08:51
Hola
Alguien me pudiera ayudar diciendome como puedo sacar cuantas veces se repite un numero en un arreglo o en un List o en algo asi
Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:numeros repetidos

Publicado por Mauro (67 intervenciones) el 07/09/2002 09:08:01
Puedes utilizar la siguiente función para determinar cuantas veces se repite un número de un ListBox:

Private Function ContarNumeros (Numero as long) as long
Dim i as long, x as long
x= -1
For i = 0 to List1.Count-1
if Numero = list1.list(i) then x = x + 1
Next
ContarNumeros = x
End Function

Aclaratoria:
Si ContarNumeros = -1, el numero no se encontró
Si ContarNumeros = 0, el numero se encontró una vez
Si ContarNumeros = n, el numero se repitió n veces.

Suerte.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar