در خواست برنامه

سلام

من چند تا برنامه ساده ریاضی به زبان Visual Basic میخوام

مثل جمع کردن عدد 1 تا 100

پیدا کردن جوابهای معادله

برای برادرم میخوام تازه میخواد شروع کنه.........

کسی نبود؟؟

جمع 1 تا 100

کد:

---

Dim a As Integer
For i = 1 To 100
  a = a + i
Next i
Print a

---

حل معادله ی درجه ی 2

کد:

---

a = Text1.Text
b = Text2.Text
c = Text3.Text
d = (b ^ 2) - (4 * a * c)
d1 = Sqr(d)
a1 = (-b - d1) / (2 * a)
a2 = (-b + d1) / (2 * a)

Print a1
Print a2

---

برنامه اول درسته ولی برنامه دوم یکم ایراد داره که باید کنترل بشه که تقریبا به صورت زیر میشه درش آورد:

کد:

---

a = Text1.Text
b = Text2.Text
c = Text3.Text

d = (b ^ 2) - (4 * a * c)

if d<0 then
  print "جواب ندارد"
end if

if d = 0 then
  print str(-b)/(2*a)
end if

if d > 0 then
  print str((-b+(d^0.5))/(2*a))
  print str((-b-(d^0.5))/(2*a))
end if

---