1x02 - számok összehasonlítása

Option Explicit

Sub Melyikanagyobb()

Dim i As Integer, j As Integer                      'i és j nevű változó létrehozása, melyek előjeles egész számokat képesek tárolni

i = InputBox("Add meg az első számot: ", "Első szám")           'Adatbekérés: Első szám
j = InputBox("Add meg a második számot: ", "Második szám")      'Adatbekérés: Második szám

If i > j Then                               'Amennyiben az első szám nagyobb...
    Debug.Print ("Az első szám nagyobb, mint a második.")        '...erről visszajelzést küld az Immediate ablakon keresztül
Else                                    'Különben...
    Debug.Print ("A második szám nagyobb, mint az első.")        '...azt írja ki, hogy a második szám nagyobb.

End Sub