k=o
for i=0 to 7
if (val(text1(i).text)<7) then
k=k+1
end if
next i
label1.caption=k