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

با عرض پوزش تغییری در کد ایجاد شده که باعث زیباتر شدنِ کار و کاربرپسندانه تر شدن آن شده است.

توجه : نام labelها و textboxها و commandها را با توجه به کد انتخاب کنید و قسمتی که به زبانِ خاصّی نوشته شده همان فارسی است که اگر از سایت ما setup را دانلود کرده باشید؛ در نمایش به صورت فارسی در می آید .

Option Explicit

Private Sub cmd1_Click()
Dim a, b, c, d, e, f, x, y As Double
a = Val(t1.Text)
b = Val(t2.Text)
c = Val(t3.Text)
d = Val(t4.Text)
e = Val(t5.Text)
f = Val(t6.Text)
If a = 0 Or b = 0 Or c = 0 Or d = 0 Or e = 0 Or f = 0 Then
l7.Caption = "ها را از عدد پر کنيدtextbox لطفا همه ي"
ElseIf (a / d = b / e) And (b / e = c / f) Then
l7.Caption = "اين دستگاه بي شمار جواب دارد"
l5.Caption = ""
l6.Caption = ""
ElseIf (a / d = b / e) And (b / e <> c / f) Then
l7.Caption = "اين دستگاه جواب ندارد"
l5.Caption = ""
l6.Caption = ""
Else
x = (e * c - b * f) / (a * e - b * d)
y = (c - a * x) / b
l7.Caption = ""
l5.Caption = x
l6.Caption = y
End If
End Sub

Private Sub cmdclean_Click()
t1.Text = ""
t2.Text = ""
t3.Text = ""
t4.Text = ""
t5.Text = ""
t6.Text = ""
l5.Caption = ""
l6.Caption = ""
l7.Caption = ""
End Sub

Private Sub cmdrestart_Click()
End
End Sub