حل مسایل ریاضی در (۴)vb

برنامه ای بنویسید که اندازه سه ضلع یک مثلث را از ورودی دریافت نموده ، تشخیص دهد سهضلع دریافتشده می تواند اضلاع یک مثلث قائم الزاویه باشد یا خیر ؟

Private Sub Command1_Click()

a = Val(InputBox(""))

b = Val(InputBox(""))

c = Val(InputBox(""))

If c = (a ^ 2 + b ^ 2) ^ 0.5 Then

  MsgBox  "rectangular Triangle"

Else

  MsgBox  "No rectangular Triangle"

End If

End Sub