For...Pernyataan Selanjutnya

Mengulangi pernyataan di antara For...Next memblokir beberapa kali nomor yang ditentukan.

Sintaksis:


For counter=start To end [Step step]
blok pernyataan
[Exit For]
blok pernyataan
Next [counter]

Variabel

Penghitung: Penghitung perulangan awalnya menetapkan nilai di sebelah kanan tanda sama dengan (start). Hanya variabel numerik yang valid. Penghitung perulangan bertambah atau berkurang sesuai dengan variabel Step hingga End dilewati.

Mulai: Variabel angka yang mendefinisikan nilai awal di awal perulangan.

Akhir: Variabel angka yang menentukan nilai terakhir pada akhir perulangan.

Langkah: Menetapkan nilai untuk menambah atau mengurangi penghitung perulangan. Jika Langkah tidak ditentukan, penghitung perulangan bertambah dengan 1. Dalam hal ini, Akhir harus lebih besar dari Mulai. Jika Anda ingin mengurangi Penghitung, Akhir harus kurang dari Mulai, dan Langkah harus diberi nilai negatif.

The Untuk...Selanjutnya loop mengulangi semua pernyataan dalam loop untuk berapa kali yang ditentukan oleh parameter.

Karena variabel penghitung berkurang, LibreOffice Dasa rmemeriksa apakah nilai akhir telah tercapai. Segera setelah penghitung melewati nilai akhir, perulangan secara otomatis berakhir.

Dimungkinkan untuk membuat pernyataan Untuk...Selanjutnya. Jika Anda tidak menentukan variabel mengikuti pernyataan Berikutnya, Berikutnya secara otomatis merujuk ke pernyataan Untuk terbaru.

Jika Anda menetapkan kenaikan 0, pernyataan antara Untuk dan Berikutnya diulang terus menerus.

Saat menghitung mundur variabel penghitung, LibreOffice Dasar memeriksa apakah telah melampaui atau belum melampaui hitungan. Perulangan berakhir ketika Penghitung melebihi Akhir (nilai Langkah positif) atau kurang dari Akhir (nilai Langkah negatif).

Gunakan pernyataan Keluar untuk keluar dari loop tanpa syarat. Pernyataan ini harus berada dalam lingkaran Untuk...Selanjutnya. Gunakan pernyataan Jika...Kemudian untuk menguji kondisi keluar sebagai berikut:

untuk...

statements

If condition = True Then Exit Do

statements

Lanjut

Catatan: Dalam perulangan bersarangFor...Next, jika anda keluar dari perulangan tanpa syarat menggunakan Exit For , hanya satu perulangan yang akan keluar.

Contoh

Contoh berikut menggunakan dua loop bersarang untuk mengurutkan array string dengan 10 elemen ( sEntry () ), yang pertama kali diisi dengan berbagai konten:


Sub ExampleSort
Dim sEntry(9) As String
Dim iCount As Integer
Dim iCount2 As Integer
Dim sTemp As String
    sEntry(0) = "Jono"
    sEntry(1) = "Paiman"
    sEntry(2) = "Kusmoyo"
    sEntry(3) = "Totok"
    sEntry(4) = "Misrun"
    sEntry(5) = "Dadang"
    sEntry(6) = "Caca"
    sEntry(7) = "Susi"
    sEntry(8) = "Edi"
    sEntry(9) = "Desi"
    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