Looping 2

kali ini saya akan mencoba membuat program looping 2, hampir sama dengan looping 1, namun algoritmanya adalah pembaginya 4 sisa hasilnya adalah 3.


Buat sebuah form dan component, tampilanya sebagai berikut :



Codenya :

Masukan pada button proses

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 pada Listbox akan menampilkan hasil seperti dibawah ini :


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



Catatan :
ListBox1.Items.Clear() adalah membersihkan nilai yang ada di ListBox1.


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

Posted in: looping,Tugaskuliah-4,visualbasic