TOP

Visual Basic Consola - Repetitiva MIENTRAS 05




05.  Ingrese varios números enteros y muestre la cantidad de números ingresados y la suma de los mismos. Realice esta acción hasta que el usuario ingrese la palabra FIN.


Imports System.Console
Module Module5
    Dim cont, num, suma As Double
    Dim resp As String = 0
    Sub Main()
        While (resp.ToUpper <> "FIN")
            suma = suma + CDbl(resp)
            Write("INGRESE NÚMERO : ")
            resp = ReadLine()
            cont = cont + 1
        End While
        WriteLine("Cantidad de Numeros Ingresados : " & cont - 1)
        WriteLine("Suma total : " & suma)
        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.