Stuff

Option Strict On
Imports System.Console

Module Module1
    'saattaa toimia, tai saattaa olla toimimatta
    Sub Main()
        Dim luku, luku2, tulos As Double
        Dim lasku As String


        WriteLine("Anna luku")
        luku = CDbl(ReadLine())
        WriteLine("Anna laskutoimitus (+, -, *, /, =)")
        lasku = CStr(ReadLine())
        
        While lasku <> "="
            Select Case lasku
                Case "+"
                    WriteLine("Anna luku")
                    luku2 = CDbl(ReadLine())
                    tulos = tulos + luku + luku2
                    WriteLine("Anna laskutoimitus (+, -, *, /, =)")
                    lasku = CStr(ReadLine())
                    luku = 0
                Case "-"
                    WriteLine("Anna luku")
                    luku2 = CDbl(ReadLine())
                    tulos = tulos + luku - luku2
                    WriteLine("Anna laskutoimitus (+, -, *, /, =)")
                    lasku = CStr(ReadLine())
                    luku = 0
                Case "*"
                    WriteLine("Anna luku")
                    luku2 = CDbl(ReadLine())
                    tulos = tulos + luku * luku2
                    WriteLine("Anna laskutoimitus (+, -, *, /, =)")
                    lasku = CStr(ReadLine())
                    luku = 0
                Case "/"
                    WriteLine("Anna luku")
                    luku2 = CDbl(ReadLine())
                    tulos = tulos + luku / luku2
                    WriteLine("Anna laskutoimitus (+, -, *, /, =)")
                    lasku = CStr(ReadLine())



            End Select
        End While
        If lasku = "=" Then
            WriteLine(tulos)

        End If
        ReadLine()
    End Sub

End Module