s=0
for i=0 to 7
s=s+val(text1(i).text)
next i
label1.caption=s/i