Notes

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:" & "1"))
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