VB:根据给定三条边得边长来判定图形的类型,若是三角形,则同时计算出为何种三角形,以及三角形面积这是我设计的程序Private Sub Command1_Click()Dim a As Single,b As Single,c As Singlea = Text1.Textb = Text2.T
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/01 03:07:11
VB:根据给定三条边得边长来判定图形的类型,若是三角形,则同时计算出为何种三角形,以及三角形面积这是我设计的程序Private Sub Command1_Click()Dim a As Single,b As Single,c As Singlea = Text1.Textb = Text2.T
VB:根据给定三条边得边长来判定图形的类型,若是三角形,则同时计算出为何种三角形,以及三角形面积
这是我设计的程序
Private Sub Command1_Click()
Dim a As Single,b As Single,c As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
length = a And b And c
If a > 0 And b > 0 And c > 0 And a + b > c And b + c > a And a + c > b Then
Text4.Text = "是"
Select Case length
Case Is > 0 And a ^ 2 + b ^ 2 = c ^ 2,a ^ 2 + c ^ 2 = b ^ 2,b ^ 2 + c ^ 2 = a ^ 2,b ^ 2 + a ^ 2 = c ^ 2,c ^ 2 + a ^ 2 = b ^ 2,b ^ 2 + b ^ 2 = a ^ 2
Text5.Text = "直角三角形"
Case Is > 0 And a ^ 2 + b ^ 2 > c ^ 2,a ^ 2 + c ^ 2 > b ^ 2,b ^ 2 + c ^ 2 > a ^ 2
Text5.Text = "锐角三角形"
Case Is > 0 And a ^ 2 + b ^ 2 < c ^ 2,a ^ 2 + c ^ 2 < b ^ 2,b ^ 2 + c ^ 2 < a ^ 2
Text5.Text = "钝角三角形"
Case Else
Text5.Text = ""
End Select
ElseIf a 0 And a + b 0 And a + b > c And b + c > a And a + c > b Then
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
Text6.Text = s
End If
End Sub
但是关于三角形的形状总是谁在前就判断是谁,错误,
VB:根据给定三条边得边长来判定图形的类型,若是三角形,则同时计算出为何种三角形,以及三角形面积这是我设计的程序Private Sub Command1_Click()Dim a As Single,b As Single,c As Singlea = Text1.Textb = Text2.T
Private Sub CommandButton1_Click()
Dim a!,b!,c!,p!,s!,tmp
a = Val(text1.Text) '转换为数字
b = Val(text2.Text)
c = Val(text3.Text)
'先从小到大排序 abc,利于后面判断
If a > b Then tmp = a:a = b:b = tmp
If a > c Then tmp = a:a = c:c = tmp
If b > c Then tmp = b:b = c:c = tmp
If a c ^ 2 Then
text5.Text = "锐角三角形"
Else
text5.Text = "钝角三角形"
End If
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
text6.Text = s
End If
End Sub