作业帮通过InputBox输入三角形边长,根据边长判断三角形类型（等边、等腰、直角）,并计算面积.求VB高手把代码给搞出来!越快越好啊
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/13 06:24:09
通过InputBox输入三角形边长,根据边长判断三角形类型（等边、等腰、直角）,并计算面积.
求VB高手把代码给搞出来!越快越好啊
Dim a!,b!,c!,s!,p!
a = InputBox("请输入第一条边长")
b = InputBox("请输入第二条边长")
c = InputBox("请输入第三条边长")
If a + b
a = InputBox("请输入第一条边长")
b = InputBox("请输入第二条边长")
c = InputBox("请输入第三条边长")
If a + b <= c Or b + c <= a Or c + a <= b Then
Print "这样的三角形不存在"
...
全部展开
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 = 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
和上面的一样，但弄了好长时间不为加分希望你能接受！祝你成功！(*^__^*) 嘻嘻……
收起