vb.net çözemediğim sorular

[pirateguy]

Arkadaşlar vb.net dizi ile ilgili konuda çok zorlanıyorum. Kaç gündür sorular ile araştırma yapıyorum ama değil türkçe kaynak yabancı kaynak bile bulamadım. Acaba bu konu hakkında yardımcı olabilir misiniz?
Mesela tek boyutlu dizide herhangi satırda değişiklik yapabiliyorum ama çok boyutlu matrislerde hiçbir bilgi bulamadım.

Spoiler: 10 elemanlı ile başlayan soruyu yaptım:

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim dizi(0 To 9) As Integer
        dizi(0) = 5
        dizi(1) = 10
        dizi(2) = 15
        dizi(3) = 13
        dizi(4) = 15
        dizi(5) = 22
        dizi(6) = 42
        dizi(7) = 21
        dizi(8) = 99
        dizi(9) = 4
        Array.Sort(dizi)
        For sayac As Integer = 0 To 9
        ListBox1.Items.Add(dizi(sayac))
        Next
    End Sub
End Class

Spoiler: Tek boyutlu dizide dizi değeri değiştirme:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim dizi() As Integer = {3, 2, 4, 5, 6, 8}

Array.Resize(dizi, 6)
dizi.SetValue(7, 0)
TextBox1.Text = dizi(0) & "--" & dizi(1) & "--" & dizi(2) & "--" & dizi(3) & "--" & dizi(4) & "--" & dizi(5)

End Sub

Spoiler: Uğraştığım ve saçmaladığım kodlar:

Public Class Form1

Dim dizi(3, 3)
Dim i, j As Integer
Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

TextBox1.Text = ""
For i = 1 To 3
For j = 1 To 3
dizi(i, j) = Val(InputBox("a matrisi" & i & "," & j & ".elemanın değeri:"))
TextBox1.Text = TextBox1.Text & "" & dizi(i, j)
Next j
TextBox1.Text = TextBox1.Text & vbCrLf 'vbCrlf alt satıra atlamak için
Next i

End Sub

Public Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Array.Resize(dizi, 6)
dizi.SetValue(7, 0)
TextBox1.Text = dizi(0) & "--" & dizi(1) & "--" & dizi(2)
End Sub

'Dim dizi(3) As Integer = {1, 4, 9, 7}
' Array.Clear(dizi, 0, 1)
'ListBox1.Items.Add(dizi(0) & "--" & dizi(1) & "--" & dizi(2) & "--" & dizi(3))
End Class

Spoiler: 5*4 boyutundaki ile başlayan sorunun amatörce çözümü:

Public Class Form1
Dim a(5, 4)
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'5 e 4lük bir matris oluşturup textbox içine atama + matrisleri buton ve ınputbox
'ile giriş sağlama
Dim i, j As Integer
TextBox1.Text = ""
For i = 1 To 5
For j = 1 To 4
a(i, j) = Val(InputBox("a matrisi" & i & "," & j & ".elemanın değeri:"))
TextBox1.Text = TextBox1.Text & "--" & a(i, j)
Next j
TextBox1.Text = TextBox1.Text & vbCrLf 'vbCrlf alt satıra atlamak için
Next i
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim i, j As Integer
Dim enk, enk2, enk3, enk4, enk5, enb, enb2, enb3, enb4, enb5,
enbs, enbs2, enbs3, enbs4, enks, enks2, enks3, enks4 As Integer
enk = a(1, 1)
enb = a(1, 1)
enk2 = a(2, 1)
enk3 = a(3, 1)
enk4 = a(4, 1)
enk5 = a(5, 1)
enks = a(1, 1)
enks2 = a(2, 1)
enks3 = a(3, 1)
enks4 = a(4, 1)
enbs = a(1, 1)
'satıdaki küçük büyük sıralamaları
For i = 1 To 1
For j = 1 To 4
If a(i, j) < enk Then
enk = a(i, j)
End If
If a(i, j) > enb Then
enb = a(i, j)
End If
Next
Next
For i = 2 To 2
For j = 1 To 4
If a(i, j) < enk2 Then
enk2 = a(i, j)
End If
If a(i, j) > enb2 Then
enb2 = a(i, j)
End If
Next
Next
For i = 3 To 3
For j = 1 To 4
If a(i, j) < enk3 Then
enk3 = a(i, j)
End If
If a(i, j) > enb3 Then
enb3 = a(i, j)
End If
Next
Next
For i = 4 To 4
For j = 1 To 4
If a(i, j) < enk4 Then
enk4 = a(i, j)
End If
If a(i, j) > enb4 Then
enb4 = a(i, j)
End If
Next
Next
For i = 5 To 5
For j = 1 To 4
If a(i, j) < enk5 Then
enk5 = a(i, j)
End If
If a(i, j) > enb5 Then
enb5 = a(i, j)
End If
Next
Next
'sütündaki büyük küçük sıralamaları
For i = 1 To 5
For j = 1 To 1
If a(i, j) < enks Then
enks = a(i, j)
End If
If a(i, j) > enbs Then
enbs = a(i, j)
End If
Next
Next
For i = 1 To 5
For j = 2 To 2
If a(i, j) < enks2 Then
enks2 = a(i, j)
End If
If a(i, j) > enbs2 Then
enbs2 = a(i, j)
End If
Next
Next
For i = 1 To 5
For j = 3 To 3
If a(i, j) < enks3 Then
enks3 = a(i, j)
End If
If a(i, j) > enbs3 Then
enbs3 = a(i, j)
End If
Next
Next
For i = 1 To 5
For j = 4 To 4
If a(i, j) < enks4 Then
enks4 = a(i, j)
End If
If a(i, j) > enbs4 Then
enbs4 = a(i, j)
End If
Next
Next

'satırdaki küçükler
ListBox1.Items.Add("en kücük eleman: " & enk)
ListBox1.Items.Add("en kücük eleman: " & enk2)
ListBox1.Items.Add("en kücük eleman: " & enk3)
ListBox1.Items.Add("en kücük eleman: " & enk4)
ListBox1.Items.Add("en kücük eleman: " & enk5)
'satırdaki büyükler
ListBox2.Items.Add("en büyük elaman: " & enb)
ListBox2.Items.Add("en büyük elaman: " & enb2)
ListBox2.Items.Add("en büyük elaman: " & enb3)
ListBox2.Items.Add("en büyük elaman: " & enb4)
ListBox2.Items.Add("en büyük elaman: " & enb5)
'sütündaki küçükler
ListBox3.Items.Add("en kücük eleman: " & enks)
ListBox3.Items.Add("en kücük eleman: " & enks2)
ListBox3.Items.Add("en kücük eleman: " & enks3)
ListBox3.Items.Add("en kücük eleman: " & enks4)

'sütundaki büyükler
ListBox4.Items.Add("en büyük eleman: " & enbs)
ListBox4.Items.Add("en büyük eleman: " & enbs2)
ListBox4.Items.Add("en büyük eleman: " & enbs3)
ListBox4.Items.Add("en büyük eleman: " & enbs4)
End Sub
End Class

Bu konularla alakalı makale, video vb. biliyorsanız ve bilgilendirirseniz çok sevinirim.