Cómo usar VB para escribir código que encuentre texto idéntico en el texto
Private Sub Command1_Click()
Atenuar str como cadena
Atenuar s como cadena
s = Texto1.Text
Para i = 1 A Len(s) - 1
Para j = i 1 A Len(s)
Si Mid(s, i, 1) = Mid(s, j, 1) Entonces str = str amp; Mid(s, i, 1)
Siguiente
Siguiente
Texto2.Text = str
End Sub