Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim NUM As Integer
NUM = TextBox1.Text
Dim digitos(NUM.ToString - 1) As Char
digitos = NUM.ToString
Array.Sort(digitos)
Array.Reverse(digitos)
TextBox2.Text = digitos
End Sub
End Class
No hay comentarios:
Publicar un comentario