TugasVB

Pada kesempatan kali ini akan kita bahas mengenai suatu program untuk menampilkan suatu bilangan dengan menggunakan perintah For. Dapat kita lihat di atas tampilan programnya.
Kemudian akan kita jelaskan bagian code programnya sebagai berikut :

Public Class Form1
Untuk Button Proses 1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer >>> Membuat variabel i dengan tipe data integer
ListBox1.Items.Clear() >>> Menghapus data yang ada di ListBox1
For i = 1 To Val(TextBox1.Text) >>> Untuk i bernilai 1 hingga batas bilangan yang dimasukkan di TextBox1
If i Mod 7 = 0 Then >>> jika nilai i dibagi 7 memiliki sisa 0 kemudian lakukan penghitungan
If i Mod 4 = 0 Then >>> jika nilai i dibagi 4 memiliki sisa 0 kemudian
ListBox1.Items.Add(i) >>> cetak/tampilkan bilangan tersebut di ListBox1
End If
End If
Next
End Sub


Untuk Button Proses 2
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i As Integer >>> Membuat variabel i dengan tipe data integer
ListBox2.Items.Clear() >>> Menghapus data yang ada di ListBox2
For i = 1 To Val(TextBox1.Text) >>> Untuk i bernilai 1 hingga batas bilangan yang dimasukkan di TextBox1
If i Mod 4 = 3 Then >>> jika nilai i dibagi 4 memiliki sisa 3 kemudian
ListBox2.Items.Add(i) >>> cetak/tampilkan bilangan tersebut di ListBox2
End If
Next
End Sub
End Class

Dari program di atas, jika dijalankan akan ditampilkan sebagai berikut:










Untuk Proses 1 jika nilai batasan bilangan 100 maka bilangan yang habis dibagi 7 dan 4 akan ditampilkan bilangan 28, 56, dan 84.
Untuk Proses 2 jika nilai batasan bilangan 100 maka bilangan yang jika dibagi 4 memiliki sisa bagi 3 akan ditampilkan bilangan 3, 7, 11, 15, 19, 23, 27, dan seterusnya.