UC知道海伦公式计算机VB编程！！！高手都来啊！！>O<!!
来源：百度知道 编辑：UC知道 时间：2024/06/14 10:57:01
做VB程序
带嵌套
已做的给你们借鉴一下哈~
Private Sub Command1_Click()
a = Val(texta.Text)
b = Val(textb.Text)
c = Val(textc.Text)
p = (a + b + c) / 2
s = sqrp(p - a) * (p - b) * (p - c)
If a + b > c Then
End
End
End Sub
拜托看一下啦~有什么错误的麻烦指出来拉~~~>O<!!谢谢！！~~~~在线等·~~
带嵌套
已做的给你们借鉴一下哈~
Private Sub Command1_Click()
a = Val(texta.Text)
b = Val(textb.Text)
c = Val(textc.Text)
p = (a + b + c) / 2
s = sqrp(p - a) * (p - b) * (p - c)
If a + b > c Then
End
End
End Sub
拜托看一下啦~有什么错误的麻烦指出来拉~~~>O<!!谢谢！！~~~~在线等·~~
Private Sub Command1_Click()
a = Val(texta.Text)
b = Val(textb.Text)
c = Val(textc.Text)
p = (a + b + c) / 2
if p>a and p>b and p>c then
s = sqr(p*(p - a) * (p - b) * (p - c) )
else
msgbox "输入的值不能构成三角形！"
exit sub
end if
print s
End Sub