'Visual Basic 2010 Herhalingen met Do Until ... Loop Basisstructuren van Algoritmes
Module DoLoopExercise3
    Sub Main()
        Dim number, result As Integer
        Dim operatorSymbol As String
        '
        result = Console.ReadLine()
        operatorSymbol = Console.ReadLine()
        Do Until operatorSymbol = "="
            number = Console.ReadLine()
            If operatorSymbol = "+" Then
                result = result + number
            Else
                If operatorSymbol = "-" Then
                    result = result - number
                End If
            End If
            operatorSymbol = Console.ReadLine()
        Loop
        Console.WriteLine(result)
        '
        Console.ReadLine()
    End Sub
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.