سوال آسون زود لطفاً جواب بدین

سلام.
برای برنامه های زیر کد میخوام لطفاً:

1-برنامه ای که مجموع اعداد 1 تا 100 را محاسبه و چاپ کند.(با استفاده از 7 روش حلقه ها)
2-برنامه ای که مجموع اعداد ا تا N را محاسبه و چاپ کند.(با استفاده از 7 روش حلقه ها)
3-*مهم*-->برنامه ای که تعدادی نمره را گرفته و میانگین و مجموع آنها را محاسبه و چاپ کند شرط خروج از حلقه -1 باشد.(با استفاده از 6روش حلقه ها یعنی بدون حلقه for باشه ) چون حلقه ی for به این سوال امکانپذیر نیست

**این سوالات مربوط به کتاب نیست و من برای نمره گرفتن تلاش و سوال نمیکنم***

--->>>اگه زود جواب بدین ممنون میشم<<<-----

لطفاً جواب بدین من چند دقیقه دیگه باید برم
لطفاًًً

من وقت ندارم میخوام برم لطفاً جواب بدین
*منتظر هستم*

کسی جواب نمیده؟؟؟"

از این که دیر جواب دادم معذرت میخوام، این چند روز زیاد وقت نداشتم به این جا سر بزنم، البته دیگه خیلی کمتر میام ... شاید هفته ای دو سه بار.

نقل قول:

---

1-برنامه ای که مجموع اعداد 1 تا 100 را محاسبه و چاپ کند.(با استفاده از 7 روش حلقه ها)
2-برنامه ای که مجموع اعداد ا تا N را محاسبه و چاپ کند.(با استفاده از 7 روش حلقه ها)

---

دوست عزیز، قبلا سوالی مشابه این سوال کرده بودی .... یعنی تو دنبال یکی هستی که با 7 روش حلقه ها برات این مسئله رو بنویسه ؟ پس خودت میخوای چی کار کنی ؟ تو اگه بدونی با حلقه ی فور چه جوری این کار رو کنی، با اون حلقه ها هم یاد میگیری.
لطفا هیچ موقع اینجوری از کسی نخوا برات مسئله حل کنه، خودت هم باید تلاش کنی. :20:

نقل قول:

---

3-*مهم*-->برنامه ای که تعدادی نمره را گرفته و میانگین و مجموع آنها را محاسبه و چاپ کند شرط خروج از حلقه -1 باشد.(با استفاده از 6روش حلقه ها یعنی بدون حلقه for باشه ) چون حلقه ی for به این سوال امکانپذیر نیست

---

به نظر من بهترین روش برای نوشتن همچین مسئله ای حلقه ی For هست.
این سوال هم مثل سوال قبلی، ما که نمیتونیم هر شش تاش رو برات بنویسم. ما شاید یه کیش رو بهت بگیم بقیه رو باید خودت پیدا کنی، شاید دلیل این که کسی به تاپیکت جواب نمیده همین درخواستت هست.

به هر حال، نمیدونم کد های زیر به دردت میخوره یا نه، ولی مسئله ی اول که خیلی راحته و توسط حلقه ی فور این جوری میشه :

کد:

---

Private Sub Form_Paint()
Dim result As Integer
For i = 1 To 100
result = result + i
Next i
Print result
End Sub

---

سوال دوم رو هم با توجه به مثال بالا و فقط با تعریف یک متغیر میتونی درست کنی.

سوال سوم با استفاده از روش فور :

کد:

---

Private Sub Form_Load()
Dim mark As Integer
Dim result As Integer
For i = 1 To 10
mark = InputBox("Enter " & i & "nums")
result = result + i
Next i
Print result / 10
End Sub

---

با توجه به کد بالا و کمی تفکر میتونی خودت از طریق اون حلقه ها هم بنویسی.

و دوباره معذرت میخوام، چون الان از مدرسه اومدم و خیلی خستم :19: واسه همین کد هارو تست نکردم.
امیدوارم درست کار کنن. :46:

نه بابا اصلاً به تاپک من نگاه نیکنن چه برسه به جواب دادن