Pertemuan 4

Pada pertemuan 4 kali ini adalah membuat form seperti berikut :

kode yang diberikan sebagai berikut :


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