Program to find the most expensive element of a list.

by Dave Threepwood (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 1^st July 2007
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

API Declarations
Dim sconto, prezzo, a, b As Integer

Rate Program to find the most expensive element of a list.



articolo = InputBox("Inserire l'articolo", "ARTICOLO")
prezzo = Val(InputBox("Inserire il prezzo", "PREZZO"))
sconto = Val(InputBox("Inserire la percentuale di sconto", "SCONTO"))
risposta = InputBox("Continuare?(s/n)", "CONTINUARE?", "s")
Loop Until risposta = "n"
a = 0
If prezzo > a Then
lblrisultato.Caption = "L'articolo più costoso è " + articolo + ", il suo prezzo è " + CStr(prezzo) + " e il suo sconto è " + CStr(sconto)
Else: lblrisultato.Caption = " "
End If

Download this snippet Add to My Saved Code

Program to find the most expensive element of a list. Comments

No comments have been posted about Program to find the most expensive element of a list.. Why not be the first to post a comment about Program to find the most expensive element of a list..

Program to find the most expensive element of a list.

Program to find the most expensive element of a list. Comments

Post your comment

Difficulty