Membuat Looping Lagi . . .

Mari kita membuat looping lagi.... langakhnya hampir sama tapi disini kita akan menampilkan hasil 0 jika pembaginya 4 dan7 dari bilangan 1 - 100.

Kita buat formnya :

Dan sintaknya adalah.......

Public Class Form1

Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.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

Dan hasilnya adalah.......

Selamat Mencoba.....