Visual Basic/Zmienne i stałe/Rozwiązanie ćwiczenia

Rozwiązanie

Problemem było odwrócenie funkcji CInt i metody ToString, przez co dodawane były łańcuchy znaków, a nie liczby.

    Sub Main()
        Dim Pierwsza, Druga As String
        Dim Wynik As Integer
        Const JEDYNKA As Byte = 1
        Console.Write("Pierwsza liczba: ")
        Pierwsza = Console.ReadLine
        Console.WriteLine()
        Console.Write("Druga liczba: ")
        Druga = Console.ReadLine
        Console.WriteLine()
        Wynik = CInt(Druga) + CInt(Pierwsza) + JEDYNKA
        Console.WriteLine("Wynik z dodawania podanych liczb i dodaniu do tego 1: " + Wynik.ToString + ".")
        Console.ReadKey()
    End Sub