• Home
 · 
• Miscellaneous
 · 
• 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.

API Declarations


Dim sconto, prezzo, a, b As Integer



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

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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