Programalama > VISUAL BASIC

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Integer
        a = 1
        ListBox1.Items.Clear()
        For a = 1 To 100

            If a Mod 3 = 0 And a Mod 5 <> 0 Then
                ListBox1.Items.Add(a)
            End If
        Next
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim a As Byte = MsgBox("Çıkacak mısınız ?", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo)
        If a = 6 Then End
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Clear()
    End Sub
End Class