ይዞታዎች
ማውጫ 🔎︎

# ለ...የሚቀጥለው አረፍተ ነገር

አረፍተ ነገር መድገሚያ ለ...የሚቀጥለው ክፍል በ ተወሰነውን ቁጥር ጊዜ ልክ

## አገባብ:

    ለ መቁጠሪያ=መጀመሪያ እስከ መጨረሻ [ደረጃ ደረጃ]
    መግለጫ መከልከያ
    [መውጫ ከ]
    መግለጫ መከልከያ
    ይቀጥሉ [መቁጠሪያ]

## ተለዋዋጮች:

መቁጠሪያ: ዙር መቁጠሪያ በ መጀመሪያ የ ተመደበው ዋጋ በ ቀኝ በኩል ነው ከ እኩል ምልክት (መጀመሪያ) አጠገብ: ዋጋ የሚኖረው ተለዋዋጭ ቁጥር ብቻ ነው: ዙር መቁጠሪያ ይጨምራል ወይንም ይቀንሳል እንደ ተለዋዋጭ ደረጃ አይነት መጨረሻው እስኪደርስ ድረስ

መጀመሪያ: ተለዋዋጭ ቁጥር የሚገልጽ የ መጀመሪያ ዋጋ በ ዙር መጀመሪያ ላይ

መጨረሻ: ተለዋዋጭ ቁጥር የሚገልጽ የ መጨረሻ ዋጋ በ ዙር መጨረሻ ላይ

ደረጃ: ዋጋ የሚጨምረበትን ወይንም የሚቀንስበትን ለ ዙር መቁጠሪያ ማሰናጃ: ደረጃ ካልተወሰነ: የ ዙር መቁጠሪያ የሚጨምረው በ 1. ነው: ስለዚህ መጨረሻው ከ መጀመሪያው መብለጥ አለበት: እርስዎ መቁጠሪያውን መቀነስ ከ ፈለጉ: መጨረሻው ማነስ አለበት ከ መጀመሪያው: እና ደረጃ መመደብ አለበት አሉታዊ ዋጋ

የ ለ...የሚቀጥለው ዙር ይደግማል ሁሉንም አረፍተ ነገር በ ዙር ውስጥ ለ ተወሰነው ቁጥር ያህል ጊዜ በ ደንቡ እንደ ተወሰነው መጠን

የ መቁጠሪያ ተለዋዋጭ በሚቀንስ ጊዜ LibreOffice Basic መጨረሻው ዋጋ ላይ ደርሶ እንደሆን ይመረምራል: መቁጠሪያው መጨረሻ ዋጋ ላይ ሲደርስ: ራሱ በራሱ ይጨርሳል

መታቀፍ ይቻላል ለ...የሚቀጥለው አረፍተ ነገር: እርስዎ ካልወሰኑ ተለዋዋጭ የሚከተለውን የሚቀጥለው አረፍተ ነገር: የሚቀጥለው ራሱ በራሱ የ ቅርብ ጊዜ ያመሳክራል ለ አረፍተ ነገር

እርስዎ ከወሰነ መጨመሪያ በ 0, አረፍተ ነገር ለ እናየሚቀጥለው በ ተከታታይ ይደጋገማል

የ መቁጠሪያ ተለዋዋጭ በሚቆጥር ጊዜ LibreOffice Basic ይመረምራል ተርፎ የሚፈሰውን ወይንም የሚጎድለውን: ዙር የሚጨርሰው መቁጠሪያው መጨረሻውን ሲያልፍ ነው (አዎንታዊ ደረጃ ዋጋ) ወይንም ከ መጨረሻ የሚጎድለውን (አሉታዊ ደረጃ ዋጋ).

ይጠቀሙ የ መውጫ ከ አረፍተ ነገር መውጫ ዙር ገደብ የለውም: ይህ አረፍተ ነገር መሆን አለበት በ ለ...የሚቀጥለው ዙር መካከል: ይጠቀሙ የ ከሆነ...ከዛ አረፍተ ነገር ለ መሞከር የ መውጫ ሁኔታ እንደሚከተለው

ለ...

አረፍተ ነገሮች

ከሆነ ሁኔታው = እውነት ከዛ ከ መስሪያ መውጫ

አረፍተ ነገሮች

የሚቀጥለው

ማስታወሻ: በታቀፈ ውስጥ ለ...የሚቀጥለው ዙር: እርስዎ ከ ወጡ ከ ዙር ያለ ምንም ገደብ በ መውጫ ከ ከ አንድ ዙር ብቻ ይወጣል

## ለምሳሌ

የሚቀጥለው ምሳሌ የሚጠቀመው ሁለት የታቀፈ ዙሮች ነው ለ መለየት የ ሀረገ መለያ በ 10 አካላቶች ( sማስገቢያ() ), ውስጥ በ መጀመሪያ የ ተሞሉ በ ተለያዩ ሁኔታዎች ውስጥ:

    Sub ExampleSort
    Dim sEntry(9) As String
    Dim iCount As Integer
    Dim iCount2 As Integer
    Dim sTemp As String
        sEntry(0) = "Jerry"
        sEntry(1) = "Patty"
        sEntry(2) = "Kurt"
        sEntry(3) = "Thomas"
        sEntry(4) = "Michael"
        sEntry(5) = "David"
        sEntry(6) = "Cathy"
        sEntry(7) = "Susie"
        sEntry(8) = "Edward"
        sEntry(9) = "Christine"
        For iCount = 0 To 9
            For iCount2 = iCount + 1 To 9
                If sEntry(iCount) > sEntry(iCount2) Then
                    sTemp = sEntry(iCount)
                    sEntry(iCount) = sEntry(iCount2)
                    sEntry(iCount2) = sTemp
                End If
            Next iCount2
        Next iCount
        For iCount = 0 To 9
            Print sEntry(iCount)
        Next iCount
    End Sub