Menghitung Nilai Sisa Hasil Bagi

Pada Kesempatan kali ini saya akan membuat perhitungan bilangan yang dapat habis di bagi 9 dan 27 serta menampilkan bilangan sisa hasil bagi 3 dari pembagi 2 dari bilangan 1 sampai 100. Adapun yang pertama dilakukan adalah buat Form utama seperti di bawah ini

Gambar 1 . Form Utama
Kemudian untuk Button Proses 1 berikut adalah Sourcodenya :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, y, z As Integer
x = 9
y = 27

For z = 1 To Val(TextBox1.Text)
If z Mod x = 0 Then
If z Mod y = 0 Then
ListBox1.Items.Add(z)
End If

End If
Next
End Sub
Setelah Button Proses 1 selesai kemudian di lanjutkan dengan Button Proses 2 berikut Sourcodenya :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim a As Integer
ListBox1.Items.Clear()
For a = 1 To Val(TextBox1.Text)
If a Mod 2 = 1 Then
ListBox1.Items.Add(a)
End If
Next
End Sub

Untuk hasil dari Form dan Code yang di buat sebagai berikut di bawah ini