حل مسئله 

حل مسئله ویژوال بیسیک به در خواست یکی از دوستان بازدیدکننده

1.)برنامه ای را بنویسید که با استفاده از روش دلتا و گرفتن ضرائب یک معادله در جه 2 ( به فرضی که دلتا بزرگ تر از 0 باشد) و ریشه های معادله را به دست آورید

Private Sub delta_Click()
Dim delta As Single
A = A.Text
B = B.Text
C = C.Text
delta = delta + A
delta = delta + B
delta = delta + C
delta = -B + (((B ^ 2) - 4 * A * C) * (1 / 2)) / 2 * A
delta = -B - (((B ^ 2) - 4 * A * C) * (1 / 2)) / 2 * A
Label1.Caption = delta
End Sub