DİZİ ÖRNEĞİ (Günler,Aylar)

DİZİ  İŞLEME PROJE ÖRNEK KODLAR                                                             İNDİR

Public Class Form1 Dim gunler() As String = {"pazartesi", "salı", "çarşamba", "perşembe", "cuma", "cumaretesi", "pazar"} Dim aylar() As String = {"Oacak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran", "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık"} Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ListBox1.Items.Clear() If RadioButton1.Checked = True Then For i = 0 To 4 ListBox1.Items.Add(gunler(i)) Next End If If RadioButton2.Checked = True Then For i = 5 To 6 ListBox1.Items.Add(gunler(i)) Next End If If RadioButton3.Checked = True Then For i = 0 To 6 ListBox1.Items.Add(gunler(i)) Next End If End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click ListBox1.Items.Clear() For i = 0 To 11 ListBox1.Items.Add(aylar(i)) Next End Sub End Class