Función para saber si alguna variable es igual a otra

[juanlulete]

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

[engel lex]

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

[juanlulete]

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

Sabes como se llama?

[engel lex]

No es el como se llama xD

Puedes hacer algo así

Código (vb) [Seleccionar] Expandir

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

[R3Z]

Intenta algo asi pero cambialas con x,z,y

Código (vb) [Seleccionar] Expandir

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