وضعیت مثلث

[میثم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 

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.