Module Vezérlési_szerkezetek_példa_rutinok

#Region "Feltételes elágazás"

    'Előjel megállapítás (If)
    Function Előjel(ByVal Szám)
        If Szám > 0 Then
            Előjel = "pozitív"
        ElseIf Szám < 0 Then
            Előjel = "Negatív"
        Else
            Előjel = "Nulla"
        End If
    End Function

    'Nap megállapítása számból (if)
    Function MilyenNap_If(ByVal Szám)
        If Szám >= 1 And Szám <= 5 Then
            MilyenNap_If = "Munkanap"
        ElseIf Szám >= 6 And Szám <= 7 Then
            MilyenNap_If = "Pihenőnap"
        Else
            MilyenNap_If = "Ilyen nap nincs"
        End If
    End Function

    'Nap megállapítása számból (Case)
    Function MilyenNap_Case(ByVal Szám)
        Select Case Szám
            Case 1 To 5
                MilyenNap_Case = "Munkanap"
            Case 6, 7
                MilyenNap_Case = "Pihenőnap"
            Case Else
                MilyenNap_Case = "Ilyen nap nincs"
        End Select
    End Function

#End Region

#Region "Ciklusok For"
    'Szorzótábla (For next)
    Function Szorzótábla() As String
        'Szövegesen visszaadjuk a szorzótáblát és kíratjuk az Immediate ablakba
        Dim i, j As Integer
        Dim Eredmény As Integer
        Szorzótábla = ""
        For i = 1 To 10
            For j = 1 To 10
                Eredmény = i * j
                Szorzótábla = Szorzótábla & i & "*" & j & " = " & i * j & vbNewLine
            Next
        Next
    End Function

    'Tömb listázás (For)
    Sub TömbListázó_For()
        Dim Tömb() As String = {"Alma", "Körte", "Barack"}
        Dim i As Integer
        For i = LBound(Tömb) To UBound(Tömb)
            Debug.Print(Tömb(i))
        Next
    End Sub

    'Tömb listázás (Foreach)
    Sub TömbListázó_Foreach()
        Dim Tömb() As String = {"Alma", "Körte", "Barack"}
        Dim TömbElem As String
        For Each TömbElem In Tömb
            Debug.Print(TömbElem)
        Next
    End Sub
#End Region


#Region "Ciklusok do..."
    '10-ig számol do While (előltesztelő)
    Function Számol_doWhile() As Integer
        Dim i As Integer
        i = 0
        Do While i < 10
            i = i + 1
        Loop
        Számol_doWhile = i
    End Function

    '10-ig számol do ... While (hátultesztelő)
    Function Számol_do___While() As Integer
        Dim i As Integer
        i = 0
        Do
            i = i + 1
        Loop While i < 10
        Számol_do___While = i
    End Function

    '10-ig számol doUntil (előltesztelő)
    Function Számol_doUntil() As Integer
        Dim i As Integer
        i = 0
        Do Until i >= 10
            i = i + 1
        Loop
        Számol_doUntil = i
    End Function


    '10-ig számol do ... Until (hátultesztelő)
    Function Számol_do___Until() As Integer
        Dim i As Integer
        i = 0
        Do
            i = i + 1
        Loop Until i >= 10
        Számol_do___Until = i
    End Function

    '10-ig számol do ... Exit do (Ciklusmagból kiugró)
    Function Számol_do() As Integer
        Dim i As Integer
        i = 0
        Do
            i = i + 1
            If i >= 10 Then
                Exit Do
            End If
        Loop
        Számol_do = i
    End Function
#End Region
End Module