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


0