Suma ilimitada Curso de Programación Visual Basic

Lección:

Gestión Dinámica de Memoria


Ejercicio:

Suma ilimitada 6


Objetivo:

Cree un programa para permitir que el usuario ingrese una cantidad ilimitada de números. Además, pueden ingresar los siguientes comandos:

"suma", para mostrar la suma de todos los números ingresados hasta ahora.
"view", para mostrar todos los números introducidos.
"fin", para salir del programa.

Este es un ejemplo de ejecución: ¿
Número o comando? 5 ¿
Número o comando? 3 ¿
Número o comando? ver

números introducidos:
5
3 ¿

Número o comando? 6 ¿
Número o comando? suma
Suma = 14 ¿
Número o comando? -7 ¿
Número o comando? fin


Código:

Imports System
Imports System.Collections
Namespace Comands
    Class Program
        Private Shared Sub Main()
            Dim [exit] As Boolean = False
            Dim answer As String
            Dim mylist As ArrayList = New ArrayList()
            Dim total As Integer = 0

            Do
                Console.Write("Number or command? ")
                answer = Console.ReadLine()

                If answer.ToLower() = "view" Then
                    Console.WriteLine("Entered numbers: ")

                    For Each number As Integer In mylist
                        Console.WriteLine(number)
                    Next
                ElseIf answer.ToLower() = "sum" Then
                    Console.WriteLine("Sum: {0}", total)
                ElseIf answer.ToLower() = "end" Then
                    [exit] = True
                Else

                    Try
                        Dim number As Integer = Convert.ToInt32(answer)
                        mylist.Add(number)
                        total += number
                    Catch
                        Console.WriteLine("Command is not recognized by the system")
                    End Try
                End If
            Loop While Not [exit]
        End Sub
    End Class
End Namespace