دو برنامه با ویژوال

با سلام من 3 روز دیگه امتحان دارم خواهشا کمک
یک برنامه می خوام که عملیات دلتا رو انجام بده با تمام مراحل در 3 تکست (حل معادله درجه 2)
و دیگری اگر عدد یک را بدهیم 1 ستاره و اگر عدد 2 را بزنیم 3 ستاره و ... تا n ممنون می شم کمک کنید:46:

سلام دوست من
فعلاً برنامه دوم را برات می زارم تا رو دومی فکر کنم.
بیا اینم دستورات برنامه دوم:

Private Sub Command1_Click()
Dim a, i As Integer
Dim s As String
a = CInt(Me.Text1.Text)
i = 0
s = ""
For i = 1 To a
s = s & "*"
Next
Me.Label1.Caption = s
End Sub

دوست عزیز به این تاپیک سر بزن تا برنامه مربوط به معادله درجه 2 رو پیدا کنی.

کد:

---

http://forum.p30world.com/showthread.php?t=302106

---

مشاوران من گفتم اگه عدد 1 بود 1 ستاره اگه دو بود 3 ستاره اگه 3 بود 5 تا ستاره و..........
این معادله درجه2 کار نمیکنه