BZU PAGES: Find Presentations, Reports, Student's Assignments and Daily Discussion; Bahauddin Zakariya University Multan

BZU PAGES: Find Presentations, Reports, Student's Assignments and Daily Discussion; Bahauddin Zakariya University Multan (http://bzupages.com/)
-   Visual Programming (http://bzupages.com/237-visual-programming/)
-   -   Program to find the Minimum Number in an Array (http://bzupages.com/f237/program-find-minimum-number-array-7186/)

.BZU. 15-12-2009 10:57 PM

Program to find the Minimum Number in an Array
 
Code:

  Module Module1
 
      Sub Main()
          Dim ar As Integer()
  Dim min As Integer
          ar = New Integer() {15, 8, 1, 6, 34, 7, 5, 342, 4, 7}
 
  min = ar(0)
 
          For i = 1 To ar.GetUpperBound(0)
              If ar(i) < min Then
                  min = ar(i)
              End If
          Next
          Console.Write("The Minimum value of the elements of array is: {0}", min)
          Console.ReadLine()
 
      End Sub
 
  End Module



All times are GMT +5. The time now is 10:41 AM.

Powered by vBulletin® Version 3.8.2
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.