通过InputBox输入三角形边长,根据边长判断三角形类型(等边、等腰、直角),并计算面积.求VB高手把代码给搞出来!越快越好啊
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 16:40:06
![通过InputBox输入三角形边长,根据边长判断三角形类型(等边、等腰、直角),并计算面积.求VB高手把代码给搞出来!越快越好啊](/uploads/image/z/13714864-16-4.jpg?t=%E9%80%9A%E8%BF%87InputBox%E8%BE%93%E5%85%A5%E4%B8%89%E8%A7%92%E5%BD%A2%E8%BE%B9%E9%95%BF%2C%E6%A0%B9%E6%8D%AE%E8%BE%B9%E9%95%BF%E5%88%A4%E6%96%AD%E4%B8%89%E8%A7%92%E5%BD%A2%E7%B1%BB%E5%9E%8B%EF%BC%88%E7%AD%89%E8%BE%B9%E3%80%81%E7%AD%89%E8%85%B0%E3%80%81%E7%9B%B4%E8%A7%92%EF%BC%89%2C%E5%B9%B6%E8%AE%A1%E7%AE%97%E9%9D%A2%E7%A7%AF.%E6%B1%82VB%E9%AB%98%E6%89%8B%E6%8A%8A%E4%BB%A3%E7%A0%81%E7%BB%99%E6%90%9E%E5%87%BA%E6%9D%A5%21%E8%B6%8A%E5%BF%AB%E8%B6%8A%E5%A5%BD%E5%95%8A)
通过InputBox输入三角形边长,根据边长判断三角形类型(等边、等腰、直角),并计算面积.求VB高手把代码给搞出来!越快越好啊
通过InputBox输入三角形边长,根据边长判断三角形类型(等边、等腰、直角),并计算面积.
求VB高手把代码给搞出来!越快越好啊
通过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
和上面的一样,但弄了好长时间不为加分希望你能接受!祝你成功!(*^__^*) 嘻嘻……
收起