在VB中，你可以通过以下步骤来判断三角形的类型：
判断是否能构成三角形
首先检查三条边是否满足三角形不等式，即任意两边之和大于第三边。
判断三角形的类型
等边三角形：三条边都相等。
等腰三角形：有两条边相等。
直角三角形：满足勾股定理，即其中一条边的平方等于另外两条边的平方和。
锐角三角形：所有角都小于90度。
钝角三角形：至少有一个角大于90度。
```vb
Private Sub Command1_Click（）
Dim a As Single, b As Single, c As Single
Dim triangleType As String
' 获取用户输入的三条边长
a = Val（InputBox（"请输入三角形边长a"））
b = Val（InputBox（"请输入三角形边长b"））
c = Val（InputBox（"请输入三角形边长c"））
' 判断是否能构成三角形
If a + b > c And b + c > a And a + c > b Then
' 判断三角形的类型
If a = b And b = c Then
triangleType = "等边三角形"
ElseIf a = b Or b = c Or a = c Then
triangleType = "等腰三角形"
ElseIf a * a + b * b = c * c Or b * b + c * c = a * a Or a * a + c * c = b * b Then
triangleType = "直角三角形"
Else
triangleType = "锐角三角形"
End If
Else
triangleType = "不是三角形"
End If
' 显示结果
Label1.Caption = "三角形类型： " & triangleType
End Sub
```
代码解释：
输入边长
使用`InputBox`函数获取用户输入的三条边长`a`、`b`和`c`。
判断是否能构成三角形
使用`If`语句检查是否满足三角形不等式：`a + b > c And b + c > a And a + c > b`。
判断三角形类型
等边三角形：`a = b And b = c`。
等腰三角形：`a = b Or b = c Or a = c`。
直角三角形：`a * a + b * b = c * c Or b * b + c * c = a * a Or a * a + c * c = b * b`。
锐角三角形：如果上述条件都不满足，则默认为锐角三角形。
显示结果
将判断结果存储在`triangleType`变量中，并在`Label1`中显示。
通过这种方式，你可以有效地判断并显示三角形的类型。