Private Sub calcolo_incasso_click ()
const n=100 m=2
dim i,h,k,p as integer
dim articoli(1 to k, 1to 2)
dim incasso(1 to h, 1 to 2)
art=val(input box("dammi l'articolo","chiave",10,10))