Tugas Visual Basic (Net) Proses Looping

Menampilkan Bilangan yang sisa hasilnya 3, jika pembaginya 4

Public Class Form1

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

        Dim i As Integer

        ListBox1.Items.Clear()

        For i = 1 To Val(TextBox1.Text)

            If i Mod 4 = 3 Then

                ListBox1.Items.Add(i)

            End If

        Next

    End Sub

    End Class

Maka setelah dijalankan Hasilnya adalah 3 7 11 15 19 23 27 31 35 39 43 47 51 55 59 63 67 71 75 79 83 87 91 95 99

Menampilkan Bilangan yang habis dibagi 4

Public Class Form1

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

        Dim i As Integer

        ListBox1.Items.Clear()

        For i = 1 To Val(TextBox1.Text)

            If (i Mod 4 = 0) Then

                ListBox1.Items.Add(i)

            End If

        Next

    End Sub

End Class

Maka setelah dijalankan Hasilnya adalah 4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100

Menampilkan Bilangan yang habis dibagi 7

Public Class Form1

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

        Dim i As Integer

        ListBox1.Items.Clear()

        For i = 1 To Val(TextBox1.Text)

            If (i Mod 7 = 0) Then

                ListBox1.Items.Add(i)

            End If

        Next

    End Sub

End Class

Maka setelah dijalankan Hasilnya adalah 7 14 21 28 35 42 49 56 63 70 77 84 91 98

Menampilkan bilangan yang habis dibagi 7 dan habis dibagi 4

Public Class Form1

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

        Dim i As Integer

        ListBox1.Items.Clear()

        For i = 1 To Val(TextBox1.Text)

            If (i Mod 7 = 0) And (i Mod 4 = 0) Then

                ListBox1.Items.Add(i)

            End If

        Next

    End Sub

End Class

Maka setelah dijalankan hasilnya adalah 28 56 84

Keterangan :

ListBox1.Items.Clear() artinya untuk membersihkan nilai yang ada di ListBox1.

For I = 1 To Val (TextBox1.Text) artinya untuk looping dari 1 sampai nilai di ListBox1