Public Class frmChapa
    Private Sub btCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCalcular.Click
        'declaro la cadena de caracteres
        Dim texto As String
 
        'declaro las variables de control
        Dim x As Integer
        Dim y As Integer
 
        'declaro variable que almacena cada caracter de la cadena
        Dim caracter As Char
 
        'variable que me va a ir contando cada vez que encuentre un caracter repetido
        Dim CaracterRepetido As Integer
 
        'le asigno a la variable texto los datos ingresados por el usuario en la caja de texto
        texto = Me.txtCalcular.Text
 
        'controlo si la caja de texto no esta vacia
        If Me.txtCalcular.Text.Length = 0 Then
            MessageBox.Show("Ingrese la cadena de caracteres", "Calcular", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Else
            'Uso dos estructuras repetitivas para controlar, tomo el primer caracter y los controlo con todos los demas, luego paso
            'al segundo y asi sucesivamente, al encontrar uno lo cuenta...
            CaracterRepetido = 0
            For x = 0 To texto.Length - 1
                caracter = texto.Chars(x)
                For y = 0 To texto.Length - 1
                    If y <> x Then
                        If caracter = texto.Chars(y) Then
                            CaracterRepetido = CaracterRepetido + 1
                        End If
                    End If
                Next
            Next
            'por ultimo si el contador es igual a 0 quiere decir que no encontro ninguna caracter repetido sino si encontro caracteres 
            'repetidos y manda el msj
            If CaracterRepetido <> 0 Then
                MessageBox.Show("Se encontraron caracteres repetidos", "Control de caracteres", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                MessageBox.Show("No se encontraron caracteres repetidos", "Control de caracteres", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        End If
        CaracterRepetido = 0
    End Sub
End Class
 

UHVibGljIENsYXNzIGZybUNoYXBhCiAgICBQcml2YXRlIFN1YiBidENhbGN1bGFyX0NsaWNrKEJ5VmFsIHNlbmRlciBBcyBTeXN0ZW0uT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5FdmVudEFyZ3MpIEhhbmRsZXMgYnRDYWxjdWxhci5DbGljawogICAgICAgICdkZWNsYXJvIGxhIGNhZGVuYSBkZSBjYXJhY3RlcmVzCiAgICAgICAgRGltIHRleHRvIEFzIFN0cmluZwoKICAgICAgICAnZGVjbGFybyBsYXMgdmFyaWFibGVzIGRlIGNvbnRyb2wKICAgICAgICBEaW0geCBBcyBJbnRlZ2VyCiAgICAgICAgRGltIHkgQXMgSW50ZWdlcgoKICAgICAgICAnZGVjbGFybyB2YXJpYWJsZSBxdWUgYWxtYWNlbmEgY2FkYSBjYXJhY3RlciBkZSBsYSBjYWRlbmEKICAgICAgICBEaW0gY2FyYWN0ZXIgQXMgQ2hhcgoKICAgICAgICAndmFyaWFibGUgcXVlIG1lIHZhIGEgaXIgY29udGFuZG8gY2FkYSB2ZXogcXVlIGVuY3VlbnRyZSB1biBjYXJhY3RlciByZXBldGlkbwogICAgICAgIERpbSBDYXJhY3RlclJlcGV0aWRvIEFzIEludGVnZXIKCiAgICAgICAgJ2xlIGFzaWdubyBhIGxhIHZhcmlhYmxlIHRleHRvIGxvcyBkYXRvcyBpbmdyZXNhZG9zIHBvciBlbCB1c3VhcmlvIGVuIGxhIGNhamEgZGUgdGV4dG8KICAgICAgICB0ZXh0byA9IE1lLnR4dENhbGN1bGFyLlRleHQKCiAgICAgICAgJ2NvbnRyb2xvIHNpIGxhIGNhamEgZGUgdGV4dG8gbm8gZXN0YSB2YWNpYQogICAgICAgIElmIE1lLnR4dENhbGN1bGFyLlRleHQuTGVuZ3RoID0gMCBUaGVuCiAgICAgICAgICAgIE1lc3NhZ2VCb3guU2hvdygiSW5ncmVzZSBsYSBjYWRlbmEgZGUgY2FyYWN0ZXJlcyIsICJDYWxjdWxhciIsIE1lc3NhZ2VCb3hCdXR0b25zLk9LLCBNZXNzYWdlQm94SWNvbi5XYXJuaW5nKQogICAgICAgIEVsc2UKICAgICAgICAgICAgJ1VzbyBkb3MgZXN0cnVjdHVyYXMgcmVwZXRpdGl2YXMgcGFyYSBjb250cm9sYXIsIHRvbW8gZWwgcHJpbWVyIGNhcmFjdGVyIHkgbG9zIGNvbnRyb2xvIGNvbiB0b2RvcyBsb3MgZGVtYXMsIGx1ZWdvIHBhc28KICAgICAgICAgICAgJ2FsIHNlZ3VuZG8geSBhc2kgc3VjZXNpdmFtZW50ZSwgYWwgZW5jb250cmFyIHVubyBsbyBjdWVudGEuLi4KICAgICAgICAgICAgQ2FyYWN0ZXJSZXBldGlkbyA9IDAKICAgICAgICAgICAgRm9yIHggPSAwIFRvIHRleHRvLkxlbmd0aCAtIDEKICAgICAgICAgICAgICAgIGNhcmFjdGVyID0gdGV4dG8uQ2hhcnMoeCkKICAgICAgICAgICAgICAgIEZvciB5ID0gMCBUbyB0ZXh0by5MZW5ndGggLSAxCiAgICAgICAgICAgICAgICAgICAgSWYgeSA8PiB4IFRoZW4KICAgICAgICAgICAgICAgICAgICAgICAgSWYgY2FyYWN0ZXIgPSB0ZXh0by5DaGFycyh5KSBUaGVuCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBDYXJhY3RlclJlcGV0aWRvID0gQ2FyYWN0ZXJSZXBldGlkbyArIDEKICAgICAgICAgICAgICAgICAgICAgICAgRW5kIElmCiAgICAgICAgICAgICAgICAgICAgRW5kIElmCiAgICAgICAgICAgICAgICBOZXh0CiAgICAgICAgICAgIE5leHQKICAgICAgICAgICAgJ3BvciB1bHRpbW8gc2kgZWwgY29udGFkb3IgZXMgaWd1YWwgYSAwIHF1aWVyZSBkZWNpciBxdWUgbm8gZW5jb250cm8gbmluZ3VuYSBjYXJhY3RlciByZXBldGlkbyBzaW5vIHNpIGVuY29udHJvIGNhcmFjdGVyZXMgCiAgICAgICAgICAgICdyZXBldGlkb3MgeSBtYW5kYSBlbCBtc2oKICAgICAgICAgICAgSWYgQ2FyYWN0ZXJSZXBldGlkbyA8PiAwIFRoZW4KICAgICAgICAgICAgICAgIE1lc3NhZ2VCb3guU2hvdygiU2UgZW5jb250cmFyb24gY2FyYWN0ZXJlcyByZXBldGlkb3MiLCAiQ29udHJvbCBkZSBjYXJhY3RlcmVzIiwgTWVzc2FnZUJveEJ1dHRvbnMuT0ssIE1lc3NhZ2VCb3hJY29uLkluZm9ybWF0aW9uKQogICAgICAgICAgICBFbHNlCiAgICAgICAgICAgICAgICBNZXNzYWdlQm94LlNob3coIk5vIHNlIGVuY29udHJhcm9uIGNhcmFjdGVyZXMgcmVwZXRpZG9zIiwgIkNvbnRyb2wgZGUgY2FyYWN0ZXJlcyIsIE1lc3NhZ2VCb3hCdXR0b25zLk9LLCBNZXNzYWdlQm94SWNvbi5JbmZvcm1hdGlvbikKICAgICAgICAgICAgRW5kIElmCiAgICAgICAgRW5kIElmCiAgICAgICAgQ2FyYWN0ZXJSZXBldGlkbyA9IDAKICAgIEVuZCBTdWIKRW5kIENsYXNzCg==