高中求三角形面积的程序
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/05/23 19:55:35
高中求三角形面积的程序
Public Function Area(a As Double,b As Double,c As Double) As Double
If a + b < c Or a + c < b Or b + c < a Then Exit Function
Dim s As Double
s = 0.5 * (a + b + c)
a = s - a
b = s - b
c = s - c
Area = Sqr(s * a * b * c)
End Function
Private Sub Command1_Click()
Me.Caption = Area(3,4,5)
End Sub
再问: 能不能麻烦你用简单的,我还是新手,想从基础开始起,比如:if···then else、a=text1。text、b=text2.text等等这样的
再答: Public Function Area(a As Double, b As Double, c As Double) As Double If a + b < c Or a + c < b Or b + c < a Then Exit Function Dim s As Double s = 0.5 * (a + b + c) a = s - a b = s - b c = s - c Area = Sqr(s * a * b * c) End Function Private Sub Command1_Click() MSGBOX Area(Val(Text1), Val(Text2), Val(Text3)) End Sub
再问: Private Sub Command1_Click() a = Text1.Text b = Text2.Text c = Text3.Text Text4.Text = s p = (a + b + c) / 2 If a + b < c Or a + c < b Or b + c < a Then Print "不能构成三角形" Else s = Sqr(p * (p - a) * (p - b) * (p - c)) End If End Sub能麻烦你帮我看下哪里错了吗,为什么我老是得不出结果?
再答: Private Sub Command1_Click() a = Text1.Text b = Text2.Text c = Text3.Text Text4.Text = s p = (a + b + c) / 2 If a + b < c Or a + c < b Or b + c < a Then Print "不能构成三角形" Else s = Sqr(p * (p - a) * (p - b) * (p - c)) End If MSGBOX S End Sub
If a + b < c Or a + c < b Or b + c < a Then Exit Function
Dim s As Double
s = 0.5 * (a + b + c)
a = s - a
b = s - b
c = s - c
Area = Sqr(s * a * b * c)
End Function
Private Sub Command1_Click()
Me.Caption = Area(3,4,5)
End Sub
再问: 能不能麻烦你用简单的,我还是新手,想从基础开始起,比如:if···then else、a=text1。text、b=text2.text等等这样的
再答: Public Function Area(a As Double, b As Double, c As Double) As Double If a + b < c Or a + c < b Or b + c < a Then Exit Function Dim s As Double s = 0.5 * (a + b + c) a = s - a b = s - b c = s - c Area = Sqr(s * a * b * c) End Function Private Sub Command1_Click() MSGBOX Area(Val(Text1), Val(Text2), Val(Text3)) End Sub
再问: Private Sub Command1_Click() a = Text1.Text b = Text2.Text c = Text3.Text Text4.Text = s p = (a + b + c) / 2 If a + b < c Or a + c < b Or b + c < a Then Print "不能构成三角形" Else s = Sqr(p * (p - a) * (p - b) * (p - c)) End If End Sub能麻烦你帮我看下哪里错了吗,为什么我老是得不出结果?
再答: Private Sub Command1_Click() a = Text1.Text b = Text2.Text c = Text3.Text Text4.Text = s p = (a + b + c) / 2 If a + b < c Or a + c < b Or b + c < a Then Print "不能构成三角形" Else s = Sqr(p * (p - a) * (p - b) * (p - c)) End If MSGBOX S End Sub
一道求三角形面积的程序题,
一个求三角形面积的程序
一个求三角形面积的C程序求解释
用c语言编写一个求三角形面积的程序
输入三角形的三边,怎样用C语言编写求三角形面积的程序?
求大神写个输入三角形的三边求面积的C语言程序
这个C语言程序是求三角形面积的,其中有个错误求大神指出
已知一个正三角形的周长为P,求这个三角形的面积 设计一个程序
求三角形面积定义两个带参宏,一个用来求s,另一个用来求area.编写程序,在程序中用带参宏的宏名来求面积
求大神来给一道关于“求解三角形面积和周长”程序题目的详细步骤.
求C++大神帮我解决个关于三角形面积的程序.
求VB小程序!设计一个VB小程序,给定三角形任意两边的长度,和夹角的度数,求三角形的面积.S=absinα