• 0

[VB .NET]Finding Min and Max


Question

5 answers to this question

Recommended Posts

  • 0
  weenur said:

ArrayList.Sort()

dim min as Integer = ArrayList[0]

dim max as Integer = ArrayList[ArrayList.Count - 1]

That's like an O(nlgn) operation. Not very efficient. The most efficient really is just looping through the array once. I'm that very well versed with vb.net so I can't just type the code here, but basically:

1. Set the variables min and max as integers to the first value of the array (position 0).

2. loop through the array. for each element, if it is larger than max, set max = that value. if it is smaller than min, set min = that value

3. when the loop ends, max and min will be the values you are looking for.

  • 0
  Post-It Note said:

That's like an O(nlgn) operation. Not very efficient. The most efficient really is just looping through the array once. I'm that very well versed with vb.net so I can't just type the code here, but basically:

1. Set the variables min and max as integers to the first value of the array (position 0).

2. loop through the array. for each element, if it is larger than max, set max = that value. if it is smaller than min, set min = that value

3. when the loop ends, max and min will be the values you are looking for.

Mistook 'efficient' for simple.

  • 0

Here is how i would do it with looping....

Hope this helps...

Module Module1

	Sub Main()

		Dim numList As New ArrayList

		numList.Add(1)
		numList.Add(5)
		numList.Add(3)
		numList.Add(15)
		numList.Add(25)
		numList.Add(5)

		Console.WriteLine("Maximum: " + DetermineMax(numList).ToString())
		Console.WriteLine("Mininum: " + DetermineMin(numList).ToString())

		Console.ReadKey()

	End Sub

	Public Function DetermineMax(ByVal itemList As ArrayList)

		Dim max As Integer = Nothing

		For i As Integer = 0 To (itemList.Count - 1)
			If i = 0 Then
				max = itemList(i)
			Else
				If itemList(i) > max Then max = itemList(i)
			End If
		Next

		DetermineMax = max

	End Function

	Public Function DetermineMin(ByVal itemList As ArrayList)

		Dim min As Integer = Nothing

		For i As Integer = 0 To (itemList.Count - 1)
			If i = 0 Then
				min = itemList(i)
			Else
				If itemList(i) < min Then min = itemList(i)
			End If
		Next

		DetermineMin = min

	End Function

End Module

This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.
  • Posts

    • In my experience I have used a paid programme I can recommend people try the full featured trial version of . It is Ez Cd Extractor . It is so complete when it came to burning cds and I loved the simplicity of importing a saved playlist file to make any kind of CD audio to share with family and friends to mail out . Piece of cake . and the intergrated CD Text editor is kind of amazing to see the edited text on a car cd player actually read . amazing . I missed thinking about this topic an ancient version of Roxio suite that had all these soft-wares built in I loved the functionality of it . I had a complete box with full key. too bad I threw all that away lol Another software to check out is DB power amps free Cd Writer progamme if you want to try a professional solution . You'll have to find out how to install it properly with the codecs you have your files music for . You can always opt out for Windows Media Player legacy to burn audio discs . G'day everyone ! I bought on ebay a week or two ago a brand new HP slot loading drive DVD writer it is amazing . Make sure you look at ebay for a portable slot loading HP dvd writer hopefullly if you spot one brand new like i did BUY IT and enjoy your dvd movies , cd burning remotely . I highly recommend ! So nice in black and slot loading ! Cheers !
    • "What's that? Microsoft recommends Intel CPUs? My next computer must have Intel then." - Nobody
    • Apple warns Australia against joining EU in mandating iPhone app sideloading by David Uzondu Apple has issued a warning to Australia, essentially telling the country not to follow the European Union's lead in making iPhone app sideloading a requirement. This communication comes as the Australian federal government considers new rules that could force Apple to open up its iOS ecosystem, much like what happened in Europe with recent legislation. Since iOS 17.4 and iPadOS 18, users in the EU have been able to get apps from outside the official App Store, a direct consequence of the DMA designating Apple as a "gatekeeper". The Australian government floated a proposal in a paper released late last year. The paper suggested "designating" digital platforms like Apple's App Store. Being designated this way means these platforms would have to follow new rules intended to keep them from limiting competition. The government pointed to Apple's in-app payment system, which usually comes with a commission, and the lack of sideloading as likely targets for regulation. Right now, apps like Netflix and Spotify can't let users subscribe through their iOS apps without giving Apple a big cut, and they're not even allowed to tell users where to find a better deal. Apple, in its response to this Australian paper, stated that Australia should not use the EU's Digital Markets Act "as a blueprint". The company's core argument is that the changes mandated by the EU's DMA, which came into full effect in March 2024, introduce serious security and privacy risks for users. Apple claims that allowing sideloading and alternative app stores effectively opens the door for malware, fraud, scams, and other harmful content. The tech company also highlighted specific concerns from its European experience, alleging that its compliance there has led to users being able to install pornography apps and apps that facilitate copyright infringement, things its curated App Store aims to prevent. Apple maintains that its current review process is vital for user protection, and that its often criticized 30% commission applies mainly to the highest earning apps, with most developers paying a lower 15% rate or nothing. It is worth noting that Apple's implementation of DMA requirements in the EU, which includes a "Core Technology Fee" for apps distributed outside its store, has already drawn scrutiny from European Commission officials who question if these measures truly comply with the DMA's idea of keeping the market fair. The Australian government has not yet detailed its next steps in this process, and the Treasury still needs to publish the full submissions to its proposal paper, including Apple's complete arguments. Source: The Guardian
    • Oh the Chinese crybabies who couldn't accept the fact that they lost GOTY to Astro Bot? Not interested
    • Download this SQL Essentials For Dummies eBook (worth $10) for free by Steven Parker FOR DUMMIES is a trademark of John Wiley & Sons, Inc. A right-to-the-point guide on all the key topics of SQL programming SQL Essentials For Dummies is your quick reference to all the core concepts of SQL—a valuable common standard language used in relational databases. This useful guide is straightforward—with no excess review, wordy explanations, or fluff—so you get what you need, fast. Great for a brush-up on the basics or as an everyday desk reference, this book is one you can rely on. Strengthen your understanding of the basics of SQL Review what you've already learned or pick up key skills Use SQL to create, manipulate, and control relational databases Jog your memory on the essentials as you work and get clear answers to your questions Perfect for supplementing classroom learning, reviewing for a certification, and staying knowledgeable on the job, SQL Essentials For Dummies is the convenient, direct, and digestible reference you've been looking for. Claim your complimentary eBook worth $10 for free, before the offer ends on June 17. How to get it Please ensure you read the terms and conditions to claim this offer. Complete and verifiable information is required in order to receive this free offer. If you have previously made use of these free offers, you will not need to re-register. While supplies last! Download the SQL Essentials For Dummies eBook (worth $10) for free Offered by Wiley, view other free resources The below offers are also available for free for a limited time: Winxvideo AI V3.0 Lifetime License for PC ($69.95 Value) FREE – Expires 6/8 Aiarty Image Enhancer for PC/Mac ($85 Value) FREE – Expires 6/8 Solutions Architect's Handbook, Third Edition ($42.99 Value) FREE – Expires 6/10 AI and Innovation ($21 Value) FREE – Expires 6/11 Unruly: Fighting Back when Politics, AI, and Law Upend [...] ($18 Value) FREE - Expires 6/17 SQL Essentials For Dummies ($10 Value) FREE – Expires 6/17 Continuous Testing, Quality, Security, and Feedback ($27.99 Value) FREE – Expires 6/18 VideoProc Converter AI v7.5 for FREE (worth $78.90) – Expires 6/18 Macxvideo AI ($39.95 Value) Free for a Limited Time – Expires 6/22 The Ultimate Linux Newbie Guide – Featured Free content Python Notes for Professionals – Featured Free content Learn Linux in 5 Days – Featured Free content Quick Reference Guide for Cybersecurity – Featured Free content We post these because we earn commission on each lead so as not to rely solely on advertising, which many of our readers block. It all helps toward paying staff reporters, servers and hosting costs. Other ways to support Neowin The above deal not doing it for you, but still want to help? Check out the links below. Check out our partner software in the Neowin Store Buy a T-shirt at Neowin's Threadsquad Subscribe to Neowin - for $14 a year, or $28 a year for an ad-free experience Disclosure: An account at Neowin Deals is required to participate in any deals powered by our affiliate, StackCommerce. For a full description of StackCommerce's privacy guidelines, go here. Neowin benefits from shared revenue of each sale made through the branded deals site.
  • Recent Achievements

    • One Month Later
      EdwardFranciscoVilla earned a badge
      One Month Later
    • One Month Later
      MoyaM earned a badge
      One Month Later
    • One Month Later
      qology earned a badge
      One Month Later
    • One Year In
      Frinco90 earned a badge
      One Year In
    • Apprentice
      Frinco90 went up a rank
      Apprentice
  • Popular Contributors

    1. 1
      +primortal
      449
    2. 2
      +FloatingFatMan
      247
    3. 3
      snowy owl
      235
    4. 4
      ATLien_0
      199
    5. 5
      Xenon
      145
  • Tell a friend

    Love Neowin? Tell a friend!