Question

输入三边长判断三角形形状的vb程序怎么写

Answer 1

Dim a!, b!, c!, s!, p!
a = InputBox("请输入第一条边长")
b = InputBox("请输入第二条边长")
c = InputBox("请输入第三条边长")
If a + b <= c Or b + c <= a Or c + a <= b Then
Print "这样的三角形不存在"
Else
If a = b Or b = c Or c = a Then
Print "这是一个等腰三角形"
End If
If a = b and b= c Then
Print "这是一个等边三角形"
End If
If a ^ 2 + b ^ 2 = c ^ 2 Or b ^ 2 + c ^ 2 = a ^ 2 Or c ^ 2 + a ^ 2 = b ^ 2 Then
Print "这是一个直角三角形"
End If
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
Print
Print "这个三角形的面积是"; s
End If

Answer 2

给出一个大致的方法
接受三边长，可用inputbox 或文本框
得到最长边
选判断 正负（可忽略）
其次判断两条短边的和是否大于长边
最后比较最长边和另处短边的平方和比较
大于 钝角 等于 直角 小于 锐角

Answer 3

Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, tmp As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
'先排个序，方便比较
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 + b < c Or a <= 0 Or b <= 0 Or c <= 0 Then Print "您这个不是三角形": Exit Sub
If a ^ 2 + b ^ 2 = c ^ 2 Then Print "直角三角形"
If a ^ 2 + b ^ 2 > c ^ 2 Then Print "锐角三角形"
If a ^ 2 + b ^ 2 < c ^ 2 Then Print "钝角三角形"
End Sub