مشکل در حلقه زدن

[C0NN3CT0R]

سلام به همه دوستان عزیز و گرامی.
بنده تازه شروع کردم برنامه نویسی ویژوال رو. به اجبار(به دلیل کنکور و درس)
الان می خوام یک برنامه بنویسم که تعدادی عدد مثبت بگیره و جمع کنشون و میانگین آنها را چاپ کنه.
و با وارد شدن عدد صفر حلقه به پایان برسه.
کسی می تونه برام این برنامه رو بنویسه.:لبخند:
سورس یک برنامه هم می خوام که خروجی رو به این صورت بده.
*
**
***
****
*****
******

[arenaw]

سلام

اولی:

dim sum&,inp&
inp = inputbox("")
do while inp <> 0
i = i + 1
sum = sum + inp
inp = inputbox("")
loop
msgbox (sum / i)

دومی:

dim str$
for i = 1 to 6
str = str & "*"
print str
next

[MohammadGh2011]

سلام عليکم
سوال اولتون رو من اينطوري نوشتم.(اون طوري که ميخوايد نيست)
اول يه Inputbox باز ميشه که شما بايد تعداد اون عدد رو که ميخوايد جمع و ميانگينش رو بنويسيد بايد بنويسيد
و بعد به تعداد اون عددي که اول نوشتيد بايد عدد وارد کنيد.
x = InputBox("teadad adad ra vared konid")
For i = 1 To Val(x)
s = InputBox("adad ra vared konid")
d = d + Val(s)
Next i
Print "=sum" & d
Print "=avg" & d / Val(x)
سعي کنيد براي هر سوالتون يک تاپيک ايجاد کنيد.
موفق باشيد

[C0NN3CT0R]

arenaw عزیز در مورد این کد کمی توضیح میدی
dim sum&,inp&
inp = inputbox("")
do while inp <> 0
i = i + 1
sum = sum + inp
inp = inputbox("")
loop
msgbox (sum / i)

مثلا در مورد این سه خط توضیح بدی.
i = i + 1
sum = sum + inp
inp = inputbox("")
یا یکی دیگه توضیح بده لطفا ، اینو می دونم که گفته شده مقدار i رو برابر با جمع i + 1 قرار بده.
اما می خوام بدونم کار این i تو برنامه چی هستش.
و.... خلاصه از اول برنامه رو توضیح بده که چطوری نوشته شده.

[MohammadGh2011]

سلام عليکم
arenaw عزيز تالار رو ترک کردند به خاطر همين با اجازه، من توضيح ميدم.
در خط اول ما دو متغير تعريف کرديم به نام هاي Sum,Inp (شما اسم هاي اين متغير رو ميتونيد تغيير بديد ولي بايد تو برنامه هاتون به جاي اين متغيرها از اون متغيري استفاده کنيد که اسمش چيز ديگه اي است.)
در خط دوم ما متغير Inp را برابر با Inputbox کرديم يعني يک جعبه ي متني باز شود.
و در خط سوم گفتيم که کدهاي خط 4-5-6-7-8 را انجام بده تا زمانی که کاربر عدد صفر را وارد کرد.یعنی اگه عدد صفر رو وارد کرد دیگه حلقه انجام نشه.
در خط چهارم هم يک متغير داريم به نام I گفتيم که به I يه دونه اضافه کن
در خط پنجم ما متغير Sum را برابر با Sum بعلاوه ي اون جعبه ي متني (inputbox)بکن
دستور Loop هم که يعني Do While را ببند و دستور داخل Do While تمام شده است
و در آخر هم ميانگين را نشان بده.

البته شما بعد از دستور msgbox (sum / i) کد زير را هم اضافه کن که جمع اعداد را هم به شما نشان دهد که جنابarenaw فکر کنم يادشون رفته بزاره.
MsgBox "جمع اعداد برابر است با " & sum
موفق باشيد