海伦公式计算机VB编程
答案:3 悬赏:60 手机版
解决时间 2021-02-20 11:04
- 提问者网友：情歌越听越心酸
- 2021-02-20 07:43
海伦公式计算机VB编程
最佳答案
- 五星知识达人网友：逐風
- 2021-02-20 08:25
新建一工程，新建窗体，通过某种方法让用户输入a、b、c三个值（InputBox、文本输入之类的……），分别储存在a、b、c三个变量中，之后代码如下：
p=(a+b+c)/2
S=Sqrt(p*(p-a)*(p-b)*(p-c))
MsgBox "面积为" & S & "。"
p=(a+b+c)/2
S=Sqrt(p*(p-a)*(p-b)*(p-c))
MsgBox "面积为" & S & "。"
全部回答
- 1楼网友：往事埋风中
- 2021-02-20 11:02
Private Sub Form_Click()
Dim a%, b%, c%, p%, s%
a = Val(InputBox("请输入a的值"))
b = Val(InputBox("请输入b的值"))
c = Val(InputBox("请输入c的值"))
If a + b > c And a + c > b And b + c > a Then
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
Print s
End If
- 2楼网友：妄饮晩冬酒
- 2021-02-20 09:28
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
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯