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.