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!:
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!
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 = posElse
If Matricula > aAlumnos(posicion.cMatricula) Then
newInicio = pos + 1
newFin = FinElse
newInicio = InicionewFin = 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
0