جمع اعداد تا عدد n

سلام
خوبین بچه ها یه سوال خیلی ساده داشتم ببخشید دیگه هنوز ویژوالم خوب نشده این بارم لطف کنیذ

جواب سوالمو بگید ممنون میشم ....

تعداد و مجموع ارقام اعداد تا عدد n را محاسبه کنید

Sum=1+2+3+….+n

آسونه:31:
یک تکس باکس بزار تا کاربر بگه تا کدوم عدد میخواد اعداد رو با هم جمع کنه.

کد:

---

    a = Val(Text1.Text)
    For i = 1 To a
        b = b + i
    Next
    Print b

---