Visual Basic/Zmienne i stałe/Rozwiązanie ćwiczenia
Wygląd
(Przekierowano z Visual Basic/Zmienne i stałe/Rozwiązanie Ćwiczenia)
Rozwiązanie
[edytuj]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