Visual Basic - arreglos fijos

Life is soft - evento anual de software empresarial
 
Vista:

arreglos fijos

Publicado por amiga (10 intervenciones) el 10/11/2005 06:02:04
Hola que tal? necesito hacer un programa que determina si en una lista de nombres se encuentra el nombre a buscar y en que posicion esta, tengo algo como esto pero no me quiere tomar en cuenta los nombres ¡me podrias ayudar? gracias es urgente. debo usar arreglos fijos.

Dim pal(5) As Integer

Private Sub Command1_Click()
pal(0) = araceli
pal(1) = samuel
pal(2) = raquel
pal(3) = elias
pal(4) = jocelyn

For i = 0 To 5
If Text1.Text = pal(i) Then
Label1.Caption = "tu palabra si exite y esta en la posicion"; i
Else
Label1.Caption = "ese nombre no existe"
End If
Next i

End Sub
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

RE:arreglos fijos

Publicado por ivan (463 intervenciones) el 10/11/2005 16:47:29
No se si lo que pusiste sea solo un ejemplo o así quieres que funcione, ya que declaras el Array tipo INTEGER y desconozco si "araceli", "samuel".... y el resto son variables INTEGER o se te olvidó ponerle las comillas.

Creo que con estas correciones puede funcionar....

Dim pal(5) As String
Private Sub Command1_Click()
pal(0) = "araceli"
pal(1) = "samuel"
pal(2) = "raquel"
pal(3) = "elias"
pal(4) = "jocelyn"
For i = 0 To 5
If Text1.Text = pal(i) Then
Label1.Caption = "tu palabra si exite y esta en la posicion"; i
Else
Label1.Caption = "ese nombre no existe"
End If
Next i
End Sub

Espero sea lo que buscabas, Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar