Hola, buenas tengo que realizar un ejercicio que genera 6 números distintos del 1 al 49. El comando del botón es el siguiente:
Private Sub cmd5_Click()

Dim v(1 To 6) As Integer
Dim npos As Integer
Dim numero As Integer

npos = 0
Randomize

While npos < 6
numero = Aleatorio(1, 49)
If Not Presente(numero, v, npos) Then
v(npos + 1) = numero
npos = npos + 1
End If
Wend

Call SacaVectorInt(v)

End Sub

Lo que me falta es completar la función Presente, que dice si un número num se encuentra en un vector v suponiendo que hay n elementos válidos. Si alguien me pudiera ayudar lo agradecería mucho. Un saludo.

no estoy seguro de como se define una funcion, no estoy seguro como se declara una matriz como parametro.
Ademan estas pasando un parametro de más (npos).

Private Function Presente(numero as Integer, v())
Dim Rta as Booelan

For i=0 To Ubound(v)

If v(i) = numero Then

Rta= True
Exit For

End If

Next

Presente = Rta
End Function

Saludos

una correccion en la declaracion de la funcion:

Private Function Presente(numero as Integer, v()) As Boolean

Saludos