چند تا برنامه ی آسون ولی مهم

سلام من 4 سوال دارم که فکر کنم خیلی آسونن لطف کنید زود برنامه هاشونو بنویسید خیلی مهمن:

1-برنامه ای که مجموع مربعات اعداد 1 تا 10 را محاسبه کند.(با استفاده از حلقه for
2-برنامه ای که عدد n را بگیرد و حاصل عبارت زیر را چاپ کند.(با استفاده از حلقه for
F=1*2*3 ...*n

3-برنامه ای که تعداد عدد صحیح از ورودی گرفته و تعداد اعداد زوج و فرد را جداگانه چاپ کند.(با استفاده از حلقه for

4-برنامه ای که 50 اسم از ورودی بگیرد و تعداد افرادی را که نامشان ali است، نمایش دهد..(با استفاده از حلقه for

یکی تو رو خدا جواب بده!

سوالات چقدر شبيه برنامه سازي 1 هست :18:
----------------------------------------------------------------------------------------------------------------------------

نقل قول:

---

برنامه ای که 50 اسم از ورودی بگیرد و تعداد افرادی را که نامشان ali است، نمایش دهد.

---

کد:

---

Private Sub Form_Load()
Dim mynames As String
Dim counter As Integer
For i = 1 To 10
mynames = InputBox("Please enter names :")
If mynames = LCase("ALI") Then
counter = counter + 1
End If
Next i
MsgBox counter
End Sub

---

نقل قول:

---

برنامه ای که تعداد عدد صحیح از ورودی گرفته و تعداد اعداد زوج و فرد را جداگانه چاپ کند.

---

کد:

---

Dim mynum As Integer
Dim counter As Integer
Dim othercounter As Integer
For i = 1 To 10
mynum = InputBox("please enter number :")
If mynum Mod 2 = 0 Then
counter = counter + 1
Else
othercounter = othercounter + 1
End If
Next i
MsgBox "ZOJ :" & counter
MsgBox "FARD :" & othercounter

---

چند دقيقه ديگه فرصت بدي بقيه ش هم بهت ميگم.

نقل قول:

---

2-برنامه ای که عدد n را بگیرد و حاصل عبارت زیر را چاپ کند.(با استفاده از حلقه for
F=1*2*3 ...*n

---

کد:

---

Private Sub Form_Load()
Dim mynum As Integer
Dim answer As Integer
answer = 1
mynum = InputBox("Enter number")
For i = 1 To mynum
answer = answer * i
Next i
MsgBox answer
End Sub

---

اينم اون يكيش ...
آخريش هم الان واست ميزارم.

نقل قول:

---

1-برنامه ای که مجموع مربعات اعداد 1 تا 10 را محاسبه کند.(با استفاده از حلقه for

---

کد:

---

Private Sub Form_Paint()
Dim pow As Integer
For i = 1 To 10
pow = i ^ 2
answer = answer + pow
Next i
Print answer
End Sub

---

از اين كه پست هام رو پشت سر هم زدم معذرت ميخوام، اگه توضيح هم خواستي بگو.

سلام آقا مجید ازت خیلی خیلیییییییییییییییییییییی یییی ممنون خیلی گُلی

بله سوالهای برنامه سازی 1 هستن

خیلی ممنون جواب دادین

eroor میده؟

ممنون درست شد