درخواست پاسخ به یک سوال ساده (ویژوال)

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

نقل قول:

---

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

یعنی عدد اول رو وارد کنی (دلخواه) بعد با زدن یه دکمه اون رو ثبت کنه .. بعد عدد دوم .. همینطور به ترتیب ( یا اینکه دو تا دوتا جمع کنه تا 20 تا شه)

---

اگه الگوریتم ش هم شد بدید !! ممنون میشم .. در کل یه چیز ساده .
ممنون

دوست عزیز برای اینکار یه دکمه میخوای و یه textbox و این کد رو تو دکمه بذار:

کد:

---

Dim sum As Integer
Dim x As Byte
Private Sub Command1_Click()
sum = Text1.Text + sum
x = x + 1
Text1.Text = ""
If x =20 Then
 MsgBox ("sum =" & sum)
 x = 0
 sum = 0
 End If
End Sub

---

فکر کنم منظورت همین بود.:20:
موفق باشید

فکر کنم تو این کد گفتید که جمعش = 20 شه ولی من میخوام 20 تا عدد رو دونه دونه بدم بهش جمع کنه

الگوریتمش رو نمیتونید بدید ؟ کدشم بدید ممنون میشم تا فردا صبح زود لازم دارم

این هم کدش

کد:

---

    Dim Num(1 To 20) As Integer
    Dim Sum As Integer
    For i = 1 To 20
        Num(i) = InputBox("Enter Number:")
        Sum = Sum + Num(i)
    Next
    Print Sum

---

الگوریتمشم آسونه یک حلقه تکرار و جمع اعداد

دوست عزیز کدی که گذاشته بودم اشکال داشت ویرایش کردم و فکر کنم همونجور که دوستمون گفت اگه از حلقه استفاده کنی راحت تر هستی.
موفق باشید:46:

ممنون . اگه شد الگوریتم ساده شم بنویسید ممنون میشم :)

sum=0
for i=1 to 20
sum=sum+convert.ToInt(textbox1.text)


good luck