Pages

jueves, 24 de enero de 2013

Mostrar apellidos en orden inverso al ingresado Codigo Fuente en Visual Basic

Problema
Hacer un programa o algoritmo que registre 10 apellidos y que los muestre en forma inversa al orden con el que fueron ingresados.

Codigo Fuente en Visual Basic
Public Class Form1
    Dim con As Integer = 0
    Dim cad As String = ""
    Dim entrada As String = ""
    Dim Ape(9) As String
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        If (con <> 10) Then
            Ape(con) = TextBox1.Text
            Button1.Text = "Ingresar " + Trim(con)
            entrada = entrada + Ape(con) & vbCrLf
            TextBox2.Text = entrada
            con = con + 1
        Else
            cad = ""
            For j As Integer = 9 To 0 Step -1
                cad = cad + " " + Ape(j) & vbCrLf
            Next j
            TextBox3.Text = cad
        End If
    End Sub
End Class

0 comentarios:

Publicar un comentario