Ř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

        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)

        Console.ReadLine()

    End Sub

End Module