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
Cita de: engel lex en 27 Junio 2015, 17:29 PM
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