Řešení:
Ze zadané strany krychle a lze objem V, povrch S, stěnovou úhlopříčku u_s a tělesovou úhlopříčku u_t vypočítat podle vzorců:

Module Module1

    Sub Main()

        Dim a, objem, povrch, us, ut As Double

        Console.Write("Zadejte stranu krychle A: ")
        a = Console.ReadLine

        If a > 0 Then
            objem = a ^ 3
            povrch = 6 * a ^ 2
            us = a * 2 ^ (1 / 2)
            ut = a * 3 ^ (1 / 2)
            Console.WriteLine("Objem krychle = {0:0.000}", objem)
            Console.WriteLine("Povrch krychle = {0:0.000}", povrch)
            Console.WriteLine("Stenova uhlopricka = {0:0.000}", us)
            Console.WriteLine("Telesova uhlopricka = {0:0.000}", ut)
        Else
            Console.WriteLine("Spatne zadani")
        End If

        Console.ReadLine()

    End Sub

End Module