نوع مثلث

[aleas2]

سلام خسته نباشيد دوستان كسي ميدونه چطور ميشه برنامه اي نوشت كه اضلاع يك مثلث بگيره و نوع مثلث از لحاظ متساوي الساقين متساوي الاضلاع قائمه مشخص كنه؟ اگر ممكنه كد تو فايل تكست يا همينجا تايپ كنين ممنون ميشم

[SlowCode]

If Text1 = Text2 = Text3 Then
MsgBox "مثلث متساوي الاضلاع": Exit Sub
ElseIf Text1 = Text2 Or Text1 = Text3 Or Text2 = Text3 Then
MsgBox "مثلث متساوي الساقين"
ElseIf Text1 = Val(Text2) + Val(Text3) / 2 Or Text2 = Val(Text1) + Val(Text3) / 2 Or Text3 = Val(Text1) + Val(Text2) / 2 Then
MsgBox "مثلث قائم الزاويه"
Else
MsgBox "مثلث معمولي"
End If