VB.NET tutorial-max min elements


VB.NET OOP example

Min and Max elements

Step 5: Showing the minimum and maximum items

To find the minimum item of the circularly linked list, you need to compare each item of the list by allowing a min variable to point to the first item of the list then starting to compare its data with its next item. If the data of its next item is less than the data of the min, simply allow the min to catch the next item.

 

'Find the min item
Public Overrides Function findmin() As ListNode
  Dim t, min As ListNode
  min = pfirst

  If (Not IsNothing(pfirst)) Then 'not an empty circularly linked list
     t = pfirst.nextlk
     While Not Object.Equals(t, pfirst)
          If (min.val > t.val) Then
              min = t
          End If
          t = t.nextlk
      End While
       Return min
  Else
      Return Nothing 'empty circularly linked list
   End If

End Function

 

Finding the maximum item of the circularly linked list can be done similarly as finding the minimum item. You need to compare each item of the list by allowing a max variable to point to the first item of the list then starting to compare its data with its next item. If the data of its next item is greater than the data of the max, simply allow the max to catch the next item.


'Find the max item
Public Overrides Function findmax() As ListNode
  Dim t, max As ListNode
  max = pfirst

  If (Not IsNothing(pfirst)) Then 'not circularly linked list
       t = pfirst.nextlk
      While Not Object.Equals(t, pfirst)
          If (max.val < t.val) Then
              max = t
          End If
          t = t.nextlk
      End While
      Return max
  Else
     Return Nothing 'empty circularly linked list
  End If

End Function




Comments

CAPTCHA image




This website intents to provide free and high quality tutorials, examples, exercises and solutions, questions and answers of programming and scripting languages:
C, C++, C#, Java, VB.NET, Python, VBA,PHP & Mysql, SQL, JSP, ASP.NET,HTML, CSS, JQuery, JavaScript and other applications such as MS Excel, MS Access, and MS Word. However, we don't guarantee all things of the web are accurate. If you find any error, please report it then we will take actions to correct it as soon as possible.