VB判断三角形是等边，等腰还是一般三角形

VB判断三角形是等边，等腰还是一般三角形

你不会是没声明变量吧...在声明部分加上这句看看
Public a As Single, b As Single, c As Single, p As Single
我用你写的，非常正常......

顺便附一份我做的吧~~~都是新手，呵呵，相互借鉴一下吧~~
要自己加上三个文本框和一个命令按钮哦~~

Option Explicit
Public a As胆俯册谎夭荷差捅倡拉 Single, b As Single, c As Single, str As String

Function Max(Number As Single, MinNumber As Single, MaxNumber As Single) As String
Dim d As Single
If MaxNumber <= Number Then
d = MaxNumber: MaxNumber = Number: Number = d
If MaxNumber <= MinNumber Then
d = MaxNumber: MaxNumber = MinNumber: MinNumber = d
End If
End If
'判断边的大小
d = MaxNumber ^ 2 - MinNumber ^ 2 - Number ^ 2
If MaxNumber >= MinNumber + Number Then
str = "不能构成"
ElseIf d < 0 Then
str = "锐角"
ElseIf d = 0 Then
str = "直角"
ElseIf d > 0 Then
str = "钝角"
End If
If MaxNumber = MinNumber Or MinNumber = Number Then
str = "等腰" + str
ElseIf MaxNumber = MinNumber And MinNumber = Number Then
str = "等边"
End If
'判断三边大小关系，及三角形类型
End Function

Private Sub Command1_Click()
Static a As Single, b As Single, c As Single, P As Single, S As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
'输入3边的值
Call Max(a, b, c)
P = (a + b + c) / 2
S = Sqr(P * (P - a) * (P - b) * (P - c))
MsgBox "这个组合为" & str + "三角形，面积为" & S
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Text2.SetFocus
'回车后，焦点跳至文本2
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Text3.SetFocus
End Sub
'回车后，焦点跳至文本3

Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Command1.SetFocus
End Sub
'回车后，焦点跳至命令按钮

问题是什么？