请问一下在VB里面计算三角形面积的代码是什么?
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 05:30:57
请问一下在VB里面计算三角形面积的代码是什么?
三角形面积的计算公式是 area = Sqr(s * (s - a) * (s - b) * (s - c)) ,其中,s = (a + b + c) / 2
Private Sub Form_Load()
Do
Dim a As Single,b As Single,c As Single,p As Single,s As Single
a = Val(InputBox("请输入三角形第1条边长"))
b = Val(InputBox("请输入三角形第2条边长"))
c = Val(InputBox("请输入三角形第3条边长"))
s = (a + b + c) / 2
If a >= s Or b >= s Or c >= s Then
MsgBox "不能构成三角形"
Else
area = Sqr(s * (s - a) * (s - b) * (s - c))
MsgBox "面积为" & area
End If
Loop
End
End Su
Private Sub Form_Load()
Do
Dim a As Single,b As Single,c As Single,p As Single,s As Single
a = Val(InputBox("请输入三角形第1条边长"))
b = Val(InputBox("请输入三角形第2条边长"))
c = Val(InputBox("请输入三角形第3条边长"))
s = (a + b + c) / 2
If a >= s Or b >= s Or c >= s Then
MsgBox "不能构成三角形"
Else
area = Sqr(s * (s - a) * (s - b) * (s - c))
MsgBox "面积为" & area
End If
Loop
End
End Su
请问一下在VB里面计算三角形面积的代码是什么?
计算圆的面积 VB代码,
VB:编程计算三角形面积
从键盘上输入三角形的三边,并判断任意两边之和是否大于第三边,然后计算其周长和面积 VB代码
vb实现计算三角形面积根据三角形的坐标
VB中,log(X)如何计算,代码是什么,其中X是大于0的自然数
根据海伦公式由三角形的三边长度a、b、c可以计算三角形面积.用C语言来做的,请问我的代码那里有错?
vb计算1!+3!+*****+(2n+1)!的代码
VBA程序设计代码,设计一个函数,通过输入三角形的三个边长,计算三角形的面积,要求函数在标准模块中添加
VB求三角形面积,结果老是为零,帮忙看以下代码.
计算三角形的面积?请问怎么算?
VB中如何在2-200中产生10个随机数,且如何计算其中素数的和?求代码