TOP

Visual Basic Consola - Repetitiva MIENTRAS 09




09.  Cada vez que se pulse la tecla C, deberá mostrar la siguiente secuencia gráfica:

*
**
***
****
*****

Si se pulsa cualquier otra tecla el programa termina.


Imports System.Console
Module Module9
    Dim TECLA As String = ""
    Dim c, a As Integer
    Sub Main()
        c = 1
        While (TECLA.ToUpper <> "C")
            a = 1
            While (a < c)
                Write("*")
                a = a + 1
            End While
            c = c + 1
            WriteLine()
            Write("Tecla... ")
            TECLA = ReadLine()
        End While
        ReadLine()
    End Sub
End Module

share_facebook

DAME UN ME GUSTA - SI VALORAS ESTE CÓDIGO



0 comentarios:

Publicar un comentario

Danos tu opinión o déjanos tu ejercicio! - Algoritmos, pseudocódigo y lo pasamos a Visual Basic consola.