在Vb中,.编写程序,首先判断给出的3条边能否构成三角形,如可以,计算并输出该三角形的面积,输入0结束程序在Vb中,给定三角形的3条边,计算三角形的面积.编写程序,首先判断给出的3条边能否构
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/15 07:03:36
![在Vb中,.编写程序,首先判断给出的3条边能否构成三角形,如可以,计算并输出该三角形的面积,输入0结束程序在Vb中,给定三角形的3条边,计算三角形的面积.编写程序,首先判断给出的3条边能否构](/uploads/image/z/2092735-55-5.jpg?t=%E5%9C%A8Vb%E4%B8%AD%2C.%E7%BC%96%E5%86%99%E7%A8%8B%E5%BA%8F%2C%E9%A6%96%E5%85%88%E5%88%A4%E6%96%AD%E7%BB%99%E5%87%BA%E7%9A%843%E6%9D%A1%E8%BE%B9%E8%83%BD%E5%90%A6%E6%9E%84%E6%88%90%E4%B8%89%E8%A7%92%E5%BD%A2%2C%E5%A6%82%E5%8F%AF%E4%BB%A5%2C%E8%AE%A1%E7%AE%97%E5%B9%B6%E8%BE%93%E5%87%BA%E8%AF%A5%E4%B8%89%E8%A7%92%E5%BD%A2%E7%9A%84%E9%9D%A2%E7%A7%AF%2C%E8%BE%93%E5%85%A50%E7%BB%93%E6%9D%9F%E7%A8%8B%E5%BA%8F%E5%9C%A8Vb%E4%B8%AD%2C%E7%BB%99%E5%AE%9A%E4%B8%89%E8%A7%92%E5%BD%A2%E7%9A%843%E6%9D%A1%E8%BE%B9%2C%E8%AE%A1%E7%AE%97%E4%B8%89%E8%A7%92%E5%BD%A2%E7%9A%84%E9%9D%A2%E7%A7%AF.%E7%BC%96%E5%86%99%E7%A8%8B%E5%BA%8F%2C%E9%A6%96%E5%85%88%E5%88%A4%E6%96%AD%E7%BB%99%E5%87%BA%E7%9A%843%E6%9D%A1%E8%BE%B9%E8%83%BD%E5%90%A6%E6%9E%84)
在Vb中,.编写程序,首先判断给出的3条边能否构成三角形,如可以,计算并输出该三角形的面积,输入0结束程序在Vb中,给定三角形的3条边,计算三角形的面积.编写程序,首先判断给出的3条边能否构
在Vb中,.编写程序,首先判断给出的3条边能否构成三角形,如可以,计算并输出该三角形的面积,输入0结束程序
在Vb中,给定三角形的3条边,计算三角形的面积.编写程序,首先判断给出的3条边能否构成三角形,如可以构成,则计算并输出该三角形的面积,否则要求重新输入.当输入-1时结束程序
在Vb中,.编写程序,首先判断给出的3条边能否构成三角形,如可以,计算并输出该三角形的面积,输入0结束程序在Vb中,给定三角形的3条边,计算三角形的面积.编写程序,首先判断给出的3条边能否构
Sub abc() '输入三角形三个边长,计算其面积
Dim a,b,c,s
Do
s = InputBox("请输入三角形的三个边长,用半角逗号分隔." & Chr(13) & "输入 -1 时结束程序.")
If Val(s) = -1 Then Exit Do
a = Val(s)
s = Mid(s,InStr(s,",") + 1)
b = Val(s)
c = Val(Mid(s,InStr(s,",") + 1))
If a + b > c And a + c > b And b + c > a Then
MsgBox "三边长度分别为:" & a & " " & b & " " & c & Chr(13) & "三角形的面积为:" & Sqr((a + b + c) * (a + b - c) * (a + c - b) * (b + c - a)) / 4
Else
MsgBox "你输入的数据有误,不能组成三角形,请重新输入!"
End If
Loop
End Sub
'以上代码能满足你的要求 .第三边长度与第二边相同时可省略,等边三角形可只输入一个边长.