1x01 - kerület terület

Option Explicit                     'Muszáj megadni minden, a program által bekért értéket.

Sub KorKerTer()

    Const Pi = 3.14159265358979             'Pi nevű konstans a könnyebb és pontosabb használathoz (tizedesvessző helyett pontot kell használni)
    Dim r As Double                 'r nevű változó, aminek az adattípusa Double. Rendkívül pontosan tárolja a megadott számértékeket
    Dim ret(0 To 1) As Double

    r = InputBox("Add meg a kör kerületét!")     'r nevű változó tartalmat kap. Egy szövegbeviteli mező jelenik meg, ahol meg lehet adni egy egész- vagy törtszámot
    ret(0) = 2 * r * Pi                 'A ret nevű tömb nulladik eleme a 2rPi képlettel megkapott kerületérték lesz sok tizedes pontossággal
    ret(1) = r ^ 2 * Pi                 'A ret nevű tömb első eleme az r^2Pi képlettel megkapott területérték lesz sok tizedes pontossággal
    Debug.Print ("A kör kerülete: " & ret(0))     'A kerület kiírása az Immediate ablakba
    Debug.Print ("A kör területe: " & ret(1))     'A terület kiírása az Immediate ablakba

End Sub