10/19/2015 Visual Basic 2008 Tutorial_Lesson 11Looping
Visual Basic 2008 Tutorial
Pelajaran 11: Looping
[Pelajaran 10] << [Depan] >> [Pelajaran 12]
Visual Basic 2008 memungkinkan prosedur harus diulang sebanyak selama
prosesor dan dukungan memorycould. Hal ini umumnya disebut looping.
Perulangan diperlukan bila kita perlu memproses sesuatu berulangulang
sampai kondisi tertentu terpenuhi. Sebagai contoh, kita dapat merancang
sebuah program yang menambahkan serangkaian nomor sampai jumlahnya
melebihi nilai tertentu, atau program yang meminta pengguna untuk
memasukkan data berulang kali sampai ia / dia kata 'Finish'.
Dalam Visual Basic 2008, ada tiga jenis Loops, mereka adalah untuk .....
lingkaran Selanjutnya, Do lingkaran. dan Sementara ..... End while. Kami
akan memeriksa struktur dari masingmasing loop dalam rincian serta
menunjukkan mereka dengan contohcontoh.
11.1 Untuk .... Berikutnya loop
Formatnya adalah:
Untuk counter = startNumber ke endNumber (increment Langkah)
Satu atau pernyataan VB lebih
Berikutnya
Kadangkadang pengguna mungkin ingin keluar dari lingkaran sebelum proses
berulangulang seluruh dijalankan, perintah untuk digunakan adalah Exit
Untuk. Untuk keluar Untuk ... .Selanjutnya loop, Anda dapat menempatkan Exit
Untuk pernyataan dalam loop; dan biasanya digunakan bersamasama dengan
... Jika ..Then ... pernyataan. Untuk penerapannya, Anda dapat lihat contoh 11,1
d.
[Link] 1/5
10/19/2015 Visual Basic 2008 Tutorial_Lesson 11Looping
Contoh 11.1 a
Dim counter Integer
Untuk counter = 1 sampai 10
[Link] (counter)
Berikutnya
* Program ini akan memasukkan nomor 1 sampai 10 ke dalam kotak daftar.
Contoh 11.1b
Dim counter, jumlah As Integer
Untuk counter = 1 sampai 100 langkah 10
sum + = kontra
[Link] (sum)
Berikutnya
* Program ini akan menghitung jumlah angka sebagai berikut:
sum = 0 + 10 + 20 + 30 + 40 + ......
Misalnya 11.1C
Dim counter, jumlah As Integer
sum = 1000
Untuk counter = 100 Untuk 5 Langkah 5
sum = kontra
[Link] (sum)
Berikutnya
* Perhatikan selisih yang bisa Program [Link] akan menghitung
pengurangan tersebut sebagai berikut: 10001009590 ..........
[Link] 2/5
10/19/2015 Visual Basic 2008 Tutorial_Lesson 11Looping
Misalnya 11.1d
Dim n sebagai Integer
Untuk n = 1 sampai 10
Jika n> 6 maka
Keluar Untuk
Berakhir jika
Lain
[Link] (n)
Berikutnya
Berakhir jika
Berikutnya
Proses ini akan berhenti ketika n lebih besar dari 6.
11.2 Do loop
Format yang
a) Apakah Sementara kondisi
Blok dari satu atau lebih pernyataan VB
Putaran
b) Apakah
Blok dari satu atau lebih pernyataan VB
Lingkaran Sementara kondisi
c) Jangan Sampai kondisi
Blok dari satu atau lebih pernyataan VB
Putaran
d) Apakah
Blok dari satu atau lebih pernyataan VB
Lingkaran Sampai kondisi
* Keluar Loop
[Link] 3/5
10/19/2015 Visual Basic 2008 Tutorial_Lesson 11Looping
Kadang kita perlu keluar untuk keluar loop sebelum waktunya karena kondisi
tertentu terpenuhi. Sintaks untuk digunakan dikenal sebagai Exit Do. Mari kita
memeriksa contoh berikut
Contoh 11.2 (a)
Apakah saat kontra <= 1000
[Link] = kontra
meja + = 1
Putaran
* Contoh di atas akan terus menambahkan sampai counter> 1000.
Contoh di atas dapat ditulis ulang sebagai
Melakukan
[Link] = kontra
meja + = 1
Loop sampai kontra> 1000
Contoh 11.2 (b)
11.3 Sementara ... End Sementara loop
Struktur Sementara ... END Sementara sangat mirip dengan Do loop.
dibutuhkan format berikut:
Sementara kondisi
Laporan
Akhir Sementara
Loop di atas berarti bahwa sementara kondisi ini tidak terpenuhi, loop akan
terus. Loop akan berakhir ketika kondisi terpenuhi.
Contoh 11.3
Private Sub Button1_Click (ByVal sender As [Link], ByVal e As
[Link]) Menangani [Link]
Dim sum, n As Integer
Dim sum, n As Integer
Sementara n <> 100
n+1=
sum = sum + n
[Link] (n & vbTab & sum)
Akhir Sementara
[Link] 4/5
10/19/2015 Visual Basic 2008 Tutorial_Lesson 11Looping
End Sub
[Pelajaran 10] << [Depan] >> [Pelajaran 12]
Hak Cipta ® [Link] Voon Kiong Hubungi:
admin@[Link] Kebijakan Privasi]
[Link] 5/5