03/12/2009, 15:02
|
| | | Fecha de Ingreso: diciembre-2009
Mensajes: 1
Antigüedad: 14 años, 11 meses Puntos: 0 | |
| funcion len
q onda a tods!
tngo una duda
con repcto a mi trabajo.
no c q me falló en la lógica pro el chist s q solo me arroja l primer msgbox
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim caracteres As String
Dim TamañoCadena As Integer
Dim i As Integer
caracteres = pantalla.Text
TamañoCadena = Len(caracteres)
For i = 1 To Len(MiCadena)
If caracteres = Mid(MiCadena, i, TamañoCadena) Then
MsgBox("se encontró lo buscado")
Exit Sub
End If
Next i
MsgBox("no se encontró lo buscado") |