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

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

አገባብ:

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

ተለዋዋጮች:

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

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

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

ደረጃ: ዋጋ የሚጨምረበትን ወይንም የሚቀንስበትን ለ ዙር መቁጠሪያ ማሰናጃ: ደረጃ ካልተወሰነ: የ ዙር መቁጠሪያ የሚጨምረው በ 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