قسمت اول :
ابتدا متغیرهای زیر را تعریف می کنیم...
کد:
dim i as double
dim afrad_kam_10 as integer
dim afrad_bala_10 as integer
dim res_bala_10 as double
dim res_paiin_10 as double
dim tmp as double
قسمت دوم:
کد:
for i=1 to 20
tmp=inputbox("Adad ra bd")
if tmp>=10 then
afrad_bala_10=afrad_bala_10 +1
res_bala_10=res_bala_10 + tmp
else
afrad_kam_10 =afrad_kam_10 +1
res_paiin_10 =res_paiin_10 +tmp
end if
next
قسمت سوم معدل افراد بیشتر از 10
کد:
textbox1.text=res_bala_10/afrad_bala_10
قسمت چهارم : معدل افراد زیر 10
کد:
textbox2.text=res_paiin_10 /afrad_kam_10
خیلی ساده و روان کد ها رو نوشتم
اگر جایی مشکل داشتید بگید تا بیتر و کامل تر توضیح بدم....
