by Dave Threepwood (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 1st July 2007
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Program to find the most expensive element of a list.
API Declarations
Dim sconto, prezzo, a, b As Integer
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