Visual Basic/Pętle i instrukcje warunkowe/Rozwiązanie ćwiczenia

Z Wikibooks, biblioteki wolnych podręczników.

Rozwiązanie jest bardzo łatwe - wymaga zmiany zaledwie paru linii kodu.

    Sub Main()
        Dim Wynik As String
        Dim Suma As Short = 0
        Console.WriteLine("+--+--+--+--+--+--+--+--+--+--+")
        For i As Byte = 1 To 10
            For j As Byte = 1 To 10
                Wynik = (i * j).ToString
                Suma = Suma + (i * j)
                If Wynik.Length = 1 Then
                    Console.Write("|" + Wynik + " ")
                Else
                    Console.Write("|" + Wynik + "")
                End If
            Next
            Console.WriteLine("|   (" & Suma & ")")
            Suma = 0
            If i < 10 Then
                Console.WriteLine("+--+--+--+--+--+--+--+--+--+--+")
            End If
        Next
        Console.WriteLine("+--+--+--+--+--+--+--+--+--+--+")
        Console.ReadKey()
    End Sub