Foro de elhacker.net

Buenas, me preguntaba por alguna función en la cual tu introduces algunas variables numéricas y la función te devuelve si o no.
La función te devuelve 1 si al menos 2 variables son iguales.
La función te devuelve 0 si todas las variables son diferentes.

Les pongo un ejemplo:
Dim x as integer = 1
Dim y as integer = 7
Dim z as integer = 1

FuncVariablesIguales(x,y,z)

La función me tendría que devolver 1 ya que la x y la z son iguales.

Me podrían ayudar a resolver este problema?
Se que se puede hacer diciendo si este es igual que el otro o igual que el otro... pero cuando hay muchas variable es muy largo.

Gracias

Has un array o predefine una función  para ello, no es complicado

Sabes como se llama?

No es el como se llama xD

Puedes hacer algo así

Function comparar(ParamArray Vals() As Variant)
    Dim i control As Integer
    Dim conteo as integer
    For i = 1 To  UBound(Vals)
        If(Vals[i-1]==Vals[i])
            conteo ++
        Endif
    Next intLoopIndex
    Return conteo
End Function

Con eso puedes hacer (hasta donde creo) pasarle variables tipo integer arbitrariamente

No se visual basic así que solo es una idea

Intenta algo asi pero cambialas con x,z,y

For i = 2 To 16 Step 2
Print cont & "-" & i
cont = cont + 1
Next i
End Sub