Visual Basic.NET - Mostar una palabra letra por letra ascendente y descendente

   
Vista:

Mostar una palabra letra por letra ascendente y descendente

Publicado por sofia camila (1 intervención) el 09/07/2012 01:02:39
Hola a todos, necesito hacer una aplicación de consola que muestre una cadena descompuesta de la siguiente manera:
Hello
hell
hel
he
h
he
hel
hell
hello

es decir ingreso la palabra hello y muestra lo anterior
espero que alguien me pueda ayudar lo mas pronto posible
Sofia
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Mostar una palabra letra por letra ascendente y descendente

Publicado por David (46 intervenciones) el 09/07/2012 19:16:18
Hola Sofia
esta seria una forma de hacerlo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Main()
        Dim i As Integer
        Dim NCadena As String
        Console.WriteLine("Introduzca La Cadena")
        NCadena = Console.ReadLine()
        Console.WriteLine("--------------------")
        i = NCadena.Length
        While i > 1
            Console.WriteLine(NCadena.Substring(0, i))
            i -= 1
        End While
        While i <= NCadena.Length
            Console.WriteLine(NCadena.Substring(0, i))
            i += 1
        End While
        Console.WriteLine("--------------------")
        Console.WriteLine("Listo..")
        Console.ReadLine()    End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar