TOP

Visual Basic Consola - Repetitiva MIENTRAS 06




06.  Mostrar la serie de los números pares de uno en uno, mientras la pregunta lógica sea si


Imports System.Console
Module Module6
    Dim c As Integer = 0
    Dim resp As String = 0
    Sub Main()
        While (resp.ToUpper <> "SI")
            WriteLine(c * 2)
            c = c + 1
            Write("Desean Continuar (Si/No)? : ")
            resp = 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.