Masih Tentang Pengulangan For

Jum'at, 4 Maret 2011

Pertemuan ke iv

Pengulangan dengan menggunakan For tetapi dengnan menggunakan ListBok lebih dari 1, maka contoh programnya adalah sebagai berikut:

Source Code :

Public Class Form4

    Dim j As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ListBox1.Items.Clear()

        For j = 2 To Val(TextBox1.Text)

            ListBox1.Items.Add("*" + j.ToString + "." + (j + 1).ToString)

        Next

        ListBox2.Items.Clear()

        For j = 1 To Val(TextBox1.Text)

            If j Mod 4 <> 0 Then

                ListBox2.Items.Add(j)

            End If

        Next

        ListBox3.Items.Clear()

        For j = 1 To Val(TextBox1.Text)

            If j Mod 3 = 2 Then

                ListBox3.Items.Add(j)

            End If

        Next

    End Sub

End Class

Catatan :

•     Langkah pertamanya sama dengan program sebelumnya yang berbeda hanya desain dan 

                      source codenya saja.