tugas vb 1

Dari soal di bawah ini dibuatkan program aplikasi dengan menggunakan vb

1. Menampilkan bilangan yang yang habis dibagi 9 dan 27

2. menampilkan bilangan yang sisa hasil baginya 3 dari pembagi 2

Dengan menggunakan Visual studio kita tuliskan coding sbb

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For a = 1 To Val(TextBox1.Text)
If a Mod 9 = 0 And a Mod 27 = 0 Then
ListBox1.Items.Add(a)
End If
Next
End Sub

Private Sub Button1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button1.KeyPress

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
For a = 1 To Val(TextBox1.Text)
If a Mod 2 = 3 Then
ListBox2.Items.Add(a)
End If
Next
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class

dari coding diatas tampilanya sebagai berikut