dim a1 as long ,a2as long ,b1as long,b2 as long
dim c1 as long,c2 as long ,c as long
dim ias long,j as long
c1=20
c2=0
for i=1 to 10 for j=1 to 10 c=2*a-b if c<c1 then c1=c a1=i b1=j end if if c>c2 then c2=c a2=i b2=j end if next j ,j
? "Max C =";c1;":A=" ; a1 ;"B=" ;b1
? "Min C =";c2;":A=" ; a2 ;"B=" ;b2