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