View Single Post
  #1  
Old 10-12-2009, 11:34 PM
taha khan's Avatar
taha khan taha khan is offline
Toddler

 
Join Date: Oct 2007
Location: Mumtaaz Abad Multan
Age: 34
Posts: 22
Class Roll Number: 07-06
taha khan will become famous soon enough
Send a message via Yahoo to taha khan
Default Finding Minimum element in two dimensional array

Finding Minimum element in two dimensional array
Code:
 
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

Reply With Quote