درباره کلاس ها

یک سوال یک کلاس ایجاد کنید که زمانی که کاربر دو عدد میدهد مجموع اعداد مابین آن ها را نشان دهد و اسم این تابه هم که می سازید summbetween باشه بعنوان مثال کاربر اعداد 2و5 را وارد می کند و دستگاه باید 2+3+4+5=14 را نشان بدهد بعد از این که کلاس رو ساختید در یک فرم آن را استفاده کنید

سلام دوست عزیز برنامه که گفتی رو نوشتم به این صورته که توی کلاست دستورات زیر رو وارد کن
PublicClass middlesum
Function jam(ByVal a AsInteger, ByVal b AsInteger)
Dim f AsInteger



For i AsInteger = a + 1 To b - 1
f += i
Next i
Return f
EndFunction
EndClass
حالا توی فرمت دو تا تکس باکس بزار و یه دکمه و یه lable
دستورات زیر رو تو کد دکمه وارد کن:
Dim a AsNew middlesum
Label1.Text = a.jam(TextBox1.Text, TextBox2.Text)چ


حالا اگه به طور مثال عدد 5 و 8 رو وارد کنی
lable عدد جمع مابینشون رو نشون میده که میشه 13
اگرم میخوای دو عددی هم که وارد میکنی جزو اعداد مابین حساب بشن و اونارم با اعداد مابین جمع بزنه کافیه تو classet اینجوری دستورو وارد کنی:
PublicClass middlesum
Function jam(ByVal a AsInteger, ByVal b AsInteger)
Dim f AsInteger



For i AsInteger = a To b
f += i
Next i
Return f
EndFunction
EndClass