vb.net episode 4

tanggal 4-Maret 2011

Pada pertemuan 4 kali ini adalah membuat form dengan manampilkan pada listbox1 bilangan yang 2,*2,3,*3 dst…lalu yang ke dua bilangan yang tidak habis di bagi 4,lalu yang ke tiga bilangan yang di bagi 3,Dengan sisa hasil bagi 2:

 buat desain seperti berikut:

[ mohon maaf terjadi kesalahan ]

Nah tinggal isi syntaxnya deh,,,,double click di button trus tulis yang ada di bawah,

Public Class Form2

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Integer
        For a = 1 To Val(TextBox1.Text)
            ListBox1.Items.Add("*" + a.ToString)
            ListBox1.Items.Add(a + 1)
            If a Mod 4 <> 0 Then
                ListBox2.Items.Add(a)
            End If
            If a Mod 3 = 2 Then
                ListBox3.Items.Add(a)
            End If
        Next
    End Sub
End Class


untuk melihat gambar yang lebih jelas silahkan klik disini

_____Semoga bermanfaat_____