
10-12-2009, 11:34 PM
|
 | Toddler | |
Join Date: Oct 2007 Location: Mumtaaz Abad Multan Age: 22
Posts: 22
Thanks: 1
Thanked 10 Times in 8 Posts
Class Roll Number: 07-06 Time Spent Online: 13 Hours 20 Minutes 51 Seconds | |
Finding Minimum element in two dimensional array Finding Minimum element in two dimensional array |  | | | Module Matmin Sub Main() Dim i, j, min As Integer Dim Matrix1 As Integer(,) = New Integer(2, 3) {} Dim Matrix2 As Integer(,) = New Integer(2, 3) {} For i = 0 To 1 For j = 0 To 2 Console.Write("Enter an element") Matrix1(i, j) = Console.ReadLine Next Next Console.Write("Minimum element of Matrix 1 is " & vbCrLf) min = Matrix1(0, 0) For i = 0 To 1 For j = 0 To 2 If Matrix1(i, j) < min Then min = Matrix1(i, j) End If Next Next Console.Write(min) End Sub End Module | | |  | | | |