Voici les logiciels de la catégorie Math:
(Pour pouvoir exécuter les logiciels ci-dessous sur votre ordinateur, suivez ce tutoriel ici.)
Combien ça coute
Public Sub bok_Click() Dim lasomme As Integer Dim lecombien As Integer Dim lereste As Integer Dim lesdecimales As Float lasomme = vsomme.Value lecombien = lasomme Div 200 l1.Text = lecombien lereste = lasomme Mod 200 lasomme = lereste lesdecimales = vsomme.Value - (lecombien * 200) lecombien = lasomme Div 100 l2.Text = lecombien lereste = lasomme Mod 100 lasomme = lereste lesdecimales = lesdecimales - (lecombien * 100) lecombien = lasomme Div 50 l3.Text = lecombien lereste = lasomme Mod 50 lasomme = lereste lesdecimales = lesdecimales - (lecombien * 50) lecombien = lasomme Div 20 l4.Text = lecombien lereste = lasomme Mod 20 lasomme = lereste lesdecimales = lesdecimales - (lecombien * 20) lecombien = lasomme Div 10 l5.Text = lecombien lereste = lasomme Mod 10 lasomme = lereste lesdecimales = lesdecimales - (lecombien * 10) lecombien = lasomme Div 5 l6.Text = lecombien lereste = lasomme Mod 5 lasomme = lereste lesdecimales = lesdecimales - (lecombien * 5) lecombien = lasomme Div 2 l7.Text = lecombien lereste = lasomme Mod 2 lasomme = lereste lesdecimales = lesdecimales - (lecombien * 2) lecombien = lasomme Div 1 l8.Text = lecombien lereste = lasomme Mod 1 lasomme = lereste lesdecimales = lesdecimales - lecombien lasomme = lesdecimales * 100 lecombien = lasomme Div 50 l9.Text = lecombien lereste = lasomme Mod 50 lasomme = lereste lecombien = lasomme Div 20 l10.Text = lecombien lereste = lasomme Mod 20 lasomme = lereste lecombien = lasomme Div 10 l11.Text = lecombien lereste = lasomme Mod 10 lasomme = lereste lecombien = lasomme Div 5 l12.Text = lecombien lereste = lasomme Mod 5 lasomme = lereste lecombien = lasomme Div 2 l13.Text = lecombien lereste = lasomme Mod 2 lasomme = lereste lecombien = lasomme Div 1 l14.Text = lecombien lereste = lasomme Mod 1 lasomme = lereste End