وضعیت مثلث

[میثم66]

برنامه ای بنویسید که 3 عدد را به عنوان اضلاع مثلث دریافت کند و از نظر متساوی الساقین و قائم الزاویه و متساوی الاضلاع بودن بررسی کند؟
من برنامه رو نوشتم ولی نمیدونم کجاش ایراد داره که آخری رو بررسی نمی کنه

Sub mosallas()
a = Cells(1, 1)
b = Cells(2, 1)
c = Cells(3, 1)
If a = b Or a = c Or b = c Then
MsgBox "متساوي الساقين"
Else
MsgBox "متساوي الساقين نيست"
If a ^ 2 = b ^ 2 + c ^ 2 Or b ^ 2 = a ^ 2 + c ^ 2 Or c ^ 2 = a ^ 2 + b ^ 2 Then
MsgBox "قائم الزاويه"
Else
MsgBox "قائم الزاويه نيست"
If (a = b And b = c) Then
MsgBox "متساوي الاضلاع"
Else
MsgBox "متساوي الاضلاع نيست"
End If
End If
End If
End Sub 

[میثم66]

کسی میدونه ایرادش کجاست؟

[misammisam]

ساختار if که نوشتی غلطه ، با if میشه گفت این حالت میشه یا نمیشه ولی شما الان 6 تا بله و خیر دارید
باید اینطوری بزنی ( تو یه دکمه قرارش دادم )

Private Sub CommandButton1_Click()
a = Cells(1, 1)
b = Cells(2, 1)
c = Cells(3, 1)

If a = b Or a = c Or b = c Then
MsgBox "ãÊÓÇæí ÇáÓÇÞíä"
Else
MsgBox "ãÊÓÇæí ÇáÓÇÞíä äíÓÊ"
End If

If a ^ 2 = b ^ 2 + c ^ 2 Or b ^ 2 = a ^ 2 + c ^ 2 Or c ^ 2 = a ^ 2 + b ^ 2 Then
MsgBox "ÞÇÆã ÇáÒÇæíå"
Else
MsgBox "ÞÇÆã ÇáÒÇæíå äíÓÊ"
End If

If (a = b And b = c) Then
MsgBox "ãÊÓÇæí ÇáÇÖáÇÚ"
Else
MsgBox "ãÊÓÇæí ÇáÇÖáÇÚ äíÓÊ"
End If
End Sub