طریقه نوشتن مجموع کامل اعداد اول

[abbasazarpikan]

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

[Dark.Lord]

مجموعه کامل اعداد اول رو حتی با داشتن ابر کامپیوتر هم نمی توانی دست بیاوری چون نا محدود است،
اما می شه برنامه ای نوشت که به عنوان مثال اگر عدد 1000 رو در اون وارد کردی، اعداد اول زیر 1000 رو برات لیست کنه،
نوشتن این برنامه سادست فقط باید به تعریف اعداد اول توجه کنی:
عدد اول عددی است که فقط بر خودش و یک بخش پذیر است،
کافی یه حلقه بزاری و بخش پذیری عدد (یا اعداد) مورد نظر رو چک کنی...
موفق باشی.

[abbasazarpikan]

بزرگوار اشتباه شده بود تو نوشتن .ببخشید
برنامه ای که n عدد رو از ورودی بگیره و مجموع کامل اعداد رو بدست بیاره؟

[AQOUA]

برنامه نياز به يك commandbutton و دو textbox دارد.

Private Sub Command1_Click()

If Text1.Text <> "" Then
For i = 1 To Text1.Text
s = s + i
Next i
Text2.Text = s
End If

End Sub

[abbasazarpikan]

برنامه نياز به يك commandbutton و دو textbox دارد.

Private Sub Command1_Click()

If Text1.Text <> "" Then
For i = 1 To Text1.Text
s = s + i
Next i
Text2.Text = s
End If

End Sub

بزگوار ممنونم ولی می خوام مثلا عدد 28 یا 8 رو زدم مجموع اعداد کاملش رو تویه یه لیست بهم نشون بده ؟