1x03 - Oldalhossz

Sub Haromszog()

    Dim szam(0 To 2) As Double                                          'Három változót tároló "szam" nevű tömb létrehozása [szam(0), szam(1), szam(2)], mindegyik változó Double adattípusú
    Dim i As Integer                                                'Egy "i" nevű egész számot tároló változó létrehozása, ami később segít majd
    i = 0                                                   'Az i értéke 0

    Debug.Print ("Adj meg három számot és megtudod, hogy lehetnek-e egy háromszög oldalai.")           'Utasítás kiírása az Immediate ablakba.

    Do While i <= 2                                             'Egy ciklus, ami addig fut, ameddig az i kisebb, vagy egyenlő 2
        szam(i) = InputBox("Add meg a(z) " & i + 1 & ". számot")                       'A szam nevű tömb elemeinek adatokat adunk meg, amit a felhasználó visz be.
                                                        'A ciklus három futása közben a szam nevű tömb három változóját töltjük fel adattal.

        i = i + 1                                               'Az i nevű segédváltozó értékét megnöveljük minden lefutott ciklus után, ezzel elérve, hogy háromszor fusson le
    Loop                                                    'Ciklus vége

    If szam(0) + szam(1) > szam(2) And szam(1) + szam(2) > szam(0) And szam(0) + szam(2) > szam(1) Then     'Ha a háromszög bármely két oldala hosszabb, mint a harmadik, akkor lehet háromszög
        Debug.Print ("A három megadott szám lehet egy háromszög oldalainak hossza")             'A megfelelő futásról értesítés az Immediate ablakba
    Else                                                    'Vagy...
        Debug.Print ("A három megadott szám nem lehet egy háromszög oldalainak hossza")             '...ha nem teljesülnek a feltételek, akkor arról.
    End If

End Sub