مثال برنامه نویسی (متساوی الساقین)

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

a = Val(InputBox(""))
b = Val(InputBox(""))
c = Val(InputBox(""))
If a = b And b = c Then
    Print "متساوي الاضلاع"
ElseIf a = b And b <> c Then
    Print "متساوي الساقين"
ElseIf b = c And a <> b Then
    Print "متساوي الساقين"

Else

    Print "هیچکدام"
End If