... qui lit 20 valeurs réelles et qui détermine la
moyenne de valeurs strictement positives et la moyenne de valeurs strictement négatives. On
n'utilise qu’un seul ‘Textbox’????
TextBox1.SelectionStart = TextBox1.GetFirstCharIndexFromLine(varLigne)
dim i as integer = 0 dim n as integer = 0 dim p as integer = 0 dim ne(10) as integer ne(0) = 1 ne(1) = -1 ne(2) = 0 ne(3) = 2 ' etc... ' ... n(10) = 5 for i = 0 to 10 if ne(i) < 0 then n = n + ne(i) if ne(i) > 0 then p = p + ne(i) next i msgbox(Total positif " & p & vblf & "Total négatif " & n)