p=1
for i=0 to 7
p=p*val(text1(i).text)
next i
label1.caption=p/i