[مساعدة]

السلام عليكم

تفضل الكود

كود :

Dim n As Integer = Val(InputBox("أدخل عدد صحيح"))

Dim sum As Integer = Enumerable.Range(1, n).Sum

MsgBox(sum)

---

عفوا، لم انتبه لنوع القسم!