Řešení:
Obsah trojúhelníku S ze zadané základny z a výšky v lze vypočítat podle vzorce:

Module Module1

    Sub Main()

        Dim zakladna, vyska, obsah As Double

        Console.Write("Zadejte zakladnu: ")
        zakladna = Console.ReadLine
        Console.Write("Zadejte vysku: ")
        vyska = Console.ReadLine

        If zakladna > 0 And vyska > 0 Then
            obsah = zakladna * vyska / 2
            Console.WriteLine("Obsah trojuhelniku = {0:0.000}", obsah)
        Else
            Console.WriteLine("Spatne zadani")
        End If

        Console.ReadLine()

    End Sub

End Module