Private Sub Command1_Click()Dim i, j, k As IntegerOn Error GoTo error1i = CInt(t1.Text)j = CInt(t2.Text)k = CInt(t3.Text)l1.Caption = "能构成三角形"l2.Caption = ""If (i + j <= k) Or (i + k <= j) Or (j + k <= i) Thenl1.Caption = "不能构成三角形"Exit SubEnd IfIf (i * i + j * j = k * k) Or (i * i + k * k = j * j) Or (j * j + k * k = i * i) Then
l2.Caption = "直角三角形"ElseIf (i = j) And (j = k) Then
l2.Caption = "等边三角形"ElseIf (i = j) Or (j = k) Or (i = k) Then
l2.Caption = "等腰三角形"End IfExit Suberror1:MsgBox "出现错误,请检查输入的是否是数值"Err.ClearEnd Sub\'已在附件中列出附件:c.zip
提问者对答案的评价:
Public Function CheckTriangle(a As Integer, b As Integer, c As Integer) As BooleanIf (a+b)<c or (a+c)<b or (b+c)<a ThenCheckTriangle=TrueElseCheckTriangle=FalseEnd IfEnd Function是否为等腰(等边)三角形只要判断两边(三边)是否相等即可。