Aplicación Nº 8 (Manejo de cadena)

Escriba una función que reciba como argumento una cadena de caracteres, la devuelva en forma inversa y ordena alfabéticamente sus letras.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cadena As String
        Dim caracter() As Char

        cadena = TextBox1.Text()

        TextBox2.Text = StrReverse(cadena)

        caracter = cadena.ToCharArray()

        For i As Integer = 1 To caracter.Length

            Array.Sort(caracter)

            TextBox3.Text = caracter

        Next

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TextBox1.Text = ""
        Me.TextBox2.Text = ""
        Me.TextBox3.Text = ""
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim respuesta As DialogResult

        respuesta = MessageBox.Show("Desea Continuar", "Seleccione una opcion", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        If (respuesta = Windows.Forms.DialogResult.No) Then
            Me.Close()
        End If
        End
    End Sub

End Class