tutorialswb

TutorialsWB hadir sebagai wadah bagi teman-teman yang ingin "Belajar PHP Dasar". Sehingga kami yakin bahwa TutorialsWB akan menjadi Pusat "Belajar Bahasa Pemrograman PHP" Disamping PHP website ini menyediakan berbagai tips dan trik Blogger. Kami menerima Pemasangan iklan banner atau artikel.

Hubungi Saya

Visual Basic 2010 Perulangan For next Genap Ganjil





Perulangan For next Genap Ganjil VB 2010

 Public Class Form6



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        End

    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim angka As Integer

        For angka = TextBox1.Text To TextBox2.Text

            If angka Mod 2 = 0 Then

                ListBox1.Items.Add(angka)

            ElseIf angka Mod 2 = 1 Then

                ListBox2.Items.Add(angka)

            End If



        Next

    End Sub

End Class 




Baca Juga