Testar Array: o ABC da programacao

[catarina_-_ 0]

Ole pessoal

Gostaria de ler toda uma array e ir testando com o valor de uma varialvel, mas meus conhecimentos ralos em programacao nao estou conseguindo.

Ao testar a variavel "juntar" com a array "times" nao retorna

 

Dim times(4)
    times(0) = "ixt"
    times(1) = "cxl"
    times(2) = "ixt"
    times(3) = "txi"

teste1 = "c"
teste2 = "l"
juntar = teste1 & "x" & teste2

For p = 0 To 4
    If times(p) = juntar Then
    Cells(25, 12).Value = "funcionou"
    Else
    Cells(25, 12).Value = "nao funcionou"
    End If
Next p

.

.

Obrigado a todos.

[scorpio 7]

Coloque um MsgBox "Funcionou" e outro MsgBox "Não Funcionou".

 

O item que está certo, é o de indice 1, mas os proximos não são corretos, então vai sobrepor o "funcionou".

 

Quando estiver dentro de um for, pode parar a execução do mesmo com Exit For

Exemplo:

For p = 0 To 4
    If times(p) = juntar Then
    Cells(25, 12).Value = "funcionou"
    Exit For
    Else
    Cells(25, 12).Value = "nao funcionou"
    End If
Next p

 

Abraços!!!

[Claudio Neto 3]

Só alertando, você colocou p de 0 a 4, só que seu array está indo de 0 a 3, então quando p for igual a 4 dará erro.

De resto siga a dica do scorpio.