VB:根据给定三条边得边长来判定图形的类型,若是三角形,则同时计算出为何种三角形,以及三角形面积这是我设计的程序Private Sub Command1_Click()Dim a As Single,b As Single,c As Singlea = Text1.Textb = Text2.T
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/26 06:18:25
![VB:根据给定三条边得边长来判定图形的类型,若是三角形,则同时计算出为何种三角形,以及三角形面积这是我设计的程序Private Sub Command1_Click()Dim a As Single,b As Single,c As Singlea = Text1.Textb = Text2.T](/uploads/image/z/10212410-2-0.jpg?t=VB%EF%BC%9A%E6%A0%B9%E6%8D%AE%E7%BB%99%E5%AE%9A%E4%B8%89%E6%9D%A1%E8%BE%B9%E5%BE%97%E8%BE%B9%E9%95%BF%E6%9D%A5%E5%88%A4%E5%AE%9A%E5%9B%BE%E5%BD%A2%E7%9A%84%E7%B1%BB%E5%9E%8B%2C%E8%8B%A5%E6%98%AF%E4%B8%89%E8%A7%92%E5%BD%A2%2C%E5%88%99%E5%90%8C%E6%97%B6%E8%AE%A1%E7%AE%97%E5%87%BA%E4%B8%BA%E4%BD%95%E7%A7%8D%E4%B8%89%E8%A7%92%E5%BD%A2%2C%E4%BB%A5%E5%8F%8A%E4%B8%89%E8%A7%92%E5%BD%A2%E9%9D%A2%E7%A7%AF%E8%BF%99%E6%98%AF%E6%88%91%E8%AE%BE%E8%AE%A1%E7%9A%84%E7%A8%8B%E5%BA%8FPrivate+Sub+Command1_Click%28%29Dim+a+As+Single%2Cb+As+Single%2Cc+As+Singlea+%3D+Text1.Textb+%3D+Text2.T)
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