looping

Menampilkan bilangan yang sisa hasil baginya 0 jika pembaginya 4 & 7 dari 1 s.d 100

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

Dim g, h,i, j As Integer
i = 4
j = 7

ListBox1.Items.Clear()

For h = 1 To Val(TextBox1.Text)

If h Mod 1 = 0 Then

ListBox1.Items.Add(i)
i = h

End If 
if h mod j then
ListBox1.Items.Add(i)
j = h
end If

Next

End Sub

Menampilkan bilangan  yang sisa  hasilnya 3 apabila pembaginya 4 dari 1 s.d 100.

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 = 4 To Val(TextBox1.Text)

If i Mod 4 = 3 Then

ListBox1.Items.Add(i)

End If

Next

End Sub

End Class

Note :

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