VB题目:输入三角形的三边编程求出面积下面是我自己编的,可是好像是错的,大虾帮忙看看(我用了余弦定理)Private Sub Command1_Click()Dim x As Doublea = InputBox("请输入三角形第一边")b = InputBox("请输入
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/17 20:35:09
VB题目:输入三角形的三边编程求出面积下面是我自己编的,可是好像是错的,大虾帮忙看看(我用了余弦定理)Private Sub Command1_Click()Dim x As Doublea = InputBox("请输入三角形第一边")b = InputBox("请输入
VB题目:输入三角形的三边编程求出面积
下面是我自己编的,可是好像是错的,大虾帮忙看看(我用了余弦定理)
Private Sub Command1_Click()
Dim x As Double
a = InputBox("请输入三角形第一边")
b = InputBox("请输入三角形第二边")
c = InputBox("请输入三角形第三边")
If a
VB题目:输入三角形的三边编程求出面积下面是我自己编的,可是好像是错的,大虾帮忙看看(我用了余弦定理)Private Sub Command1_Click()Dim x As Doublea = InputBox("请输入三角形第一边")b = InputBox("请输入
Private Sub Command1_Click()
Dim a#, b#, c#, p#
Me.AutoRedraw = True
a = 3: b = 4: c = 5
Do
a = Val(InputBox("请输入三角形第一条边", "输入", a))
b = Val(InputBox("请输入三角形第二条边", "输入", b))
c = Val(InputBox("请输入三角形第三条边", "输入", c))
If a a Then
p = (a + b + c) / 2 'S= √[p(p - a)(p - b)(p - c)] (海伦公式)(p=(a+b+c)/2))
Print "面积:"; (p * (p - a) * (p - b) * (p - c)) ^ 0.5
Exit Sub
Else
MsgBox "你输入的数据构成不了三角形!", vbQuestion + vbOKOnly, "请检查输入"
End If
Loop
End Sub