dim a(0 to 9) as doubledim min as doubledim max as doubledim i as long for i = 0 to 9a(i) = inext imin = a(0)max = a(0)for i = 1 to 9if min > a(i) then min = a(i)end ifif max < a(i)then max=a(i)end ifnext idebug.print "min=" & mindebug.print "max=" & max