Visual Basic Array Examples

Array_v1.vb

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ad(3) As String
        Dim sira As Single
        ad(0) = "erol"
        ad(1) = "ahmet"
        ad(2) = "melek"
        ad(3) = "arda"
        ListBox1.Show()
        ListBox1.Items.Add(ad(InputBox("Sıra No")))
    End Sub
End Class

Array_v2.vb

Public Class Form1
    Private Sub btnResult_Click(sender As Object, e As EventArgs) Handles btnResult.Click

        Dim ders() As String = {"Pascal", "Delphi", "VisualBasic", "C#"}
        lblCodes.Show()
        lblCodes.Items.Add(ders(0))
        lblCodes.Items.Add(ders(1))
        lblCodes.Items.Add(ders(2))
        lblCodes.Items.Add(ders(3))
    End Sub
End Class

Array_v3.vb

Public Class Form1
    Private Sub btnResult_Click(sender As Object, e As EventArgs) Handles btnResult.Click
        Dim isim(3) As String
        Dim a As String
        isim(0) = "Murat"
        isim(1) = "Özer"
        isim(2) = "İsmail"
        isim(3) = "Kemal"
        a = InputBox("Görüntülenecek eleman sayısını gir")
        MessageBox.Show(isim(a - 1))
    End Sub
End Class

Array_v4.vb

Public Class Form1

    Private Sub btnResult_Click(sender As Object, e As EventArgs) Handles btnResult.Click
        Dim ogr(4) As Integer
        Dim ort, notu, i As Integer
        For i = 0 To 5
            ogr(i) = InputBox(i + 1 & " . öğrencinin notunu giriniz.")
            notu += ogr(i)
        Next
        ort = notu / 5
        MsgBox(ort)
    End Sub
End Class

Array_v5.vb

Public Class Form1
    Private Sub btnResult_Click(sender As Object, e As EventArgs) Handles btnResult.Click
        Dim dizi() As String = {"kemal", "hasan", "can"}
        MsgBox("Dizi elemanı= " & dizi(0))
        MsgBox("hasan= " + dizi(1))
        ReDim dizi(4)
        dizi.SetValue("Veli", 4)
        MsgBox("Dziye yeni eklenen eleman ismi= " + dizi(4))
        MsgBox("hasan= " + dizi(1))
    End Sub
End Class

Array_v6.vb

Public Class Form1
    Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
        Dim ders() As String = {"visual basic", "delphi", "c#"}
        Erase ders
        MsgBox("Dizi başarıyla silindi.")

    End Sub
End Class