delta=b2-4*a*c
'جعل مربعات الحل للقرأة فقط
TextBox4.ReadOnly = True
TextBox5.ReadOnly = True

على زر حل المعادلة وضع الكود التالي
كود:
Dim a, b, c, x1, x2, delta As Double 'التصريح عن المتحولات التي نريدها
a = Val(TextBox1.Text) 'اعطاء المتحولات القيم من التكست بوكس
b = Val(TextBox2.Text) 'اعطاء المتحولات القيم من التكست بوكس
c = Val(TextBox2.Text) 'اعطاء المتحولات القيم من التكست بوكس
delta = b ^ 2 - 4 * a * c ' حساب الدلتا
If delta > 0 Then 'بداية الجملة الشرطية والشرط الأول
MsgBox("المعادلة لها حلين مختلفين")
x1 = (-b + Math.Sqrt(delta)) / (2 * a)
x2 = (-b - Math.Sqrt(delta)) / (2 * a)
TextBox4.Text = x1
TextBox5.Text = x2
ElseIf delta < 0 Then 'الشرط الثاني
MsgBox("المعادلة مستحيلة الحل")
Else 'اذا لم يتحقق الأول والثاني يتم تنفيذ هذا الشرط
MsgBox("المعادلة له حل مضاعف")
x1 = (-b) / (2 * a)
TextBox4.Text = x1
TextBox5.Text = x1
End If
مسح وضع الكود التالي
كود:
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""