Visual Basic - Ayuda con Visual Basic 6.0

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda con Visual Basic 6.0

Publicado por Zahid Gonzalez (1 intervención) el 07/11/2013 01:07:17
Buenas tardes, pues el mi problema es el siguiente tengo un problema con este código, urge ayuda!:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Function Existe(ByVal Matricula As String, Inicio As Integer, Fin As Integer) As Integer
Dim pos As Integer
Dim newInicio As Integer
Dim newFin As Integer
 
If aAlumnos(pos).cMatricula = Matricula Then
 Existe = pos
Else
If Matricula > aAlumnos(posicion.cMatricula) Then
  newInicio = pos + 1
  newFin = Fin
Else
  newInicio = Inicio
  newFin = pos - 1
End If
Existe = Existe(Matricula, newInicio, newFin)
End If
pos = (Inicio + Fin) \ 2
If Inicio <= Fin Then
Else
 Existe = -1
 End If
End Function

El Error Reside en que me lanza un mensaje de: "Calificador No Válido" en la siguiente linea, la zona del error lo señalaré en subrayado:

If Matricula > aAlumnos(posicion.cMatricula) Then

Espero me puedan ayudar, es de urgencia!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder