vb选择结构

写了一个函数，用来判断是否是三角形以及返回三角形的类型。你在应用程序里面调用这个函数就应该没有问题了。

Private Function makeTriangle(ByVal a As Double, ByVal b As Double, ByVal c As Double, ByRef TriangelType As Short) As Boolean

'可以从小到大排列三条边,使得a<=b<=c

'TriangelType表示三角形的类型0=等腰；1=等边；2=等腰直角；3=直角

Dim IsTriangle As Boolean = False 'IsTriangel判断是否是三角形

Dim IsRangle As Boolean = False '该变量用来判断是否是直角

If a + b >c Then IsTriangle = True

If IsTriangle Then

If a = b Then '等腰三角形

TriangelType = 0

If b = c Then TriangelType = 1 '等边三角形

End If

If a * a + b * b = c * c Then IsRangle = True

End If

If IsRangle Then

If TriangelType = 0 Then

TriangelType = 2 '等腰直角三角形

Else

TriangelType = 3 '直角三角形

End If

End If

Return IsTriangle

End Function

通常叫做缩进格式！！！

If <条件1> Then

If <条件2> Then

.....

Else

......

End if

Else

If <条件2> Then

.....

Else

......

End if

End If

---