您好,今天帅帅来为大家解答以上的问题。vb中计算三角形面积的代码，vb三角形面积代码相信很多小伙伴还不知道,现在让我们一起来看看吧！

1、代码如下。

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条边长")) If a = -1 Then Exit Do b = Val(InputBox("请输入三角形第2条边长")) If b = -1 Then Exit Do c = Val(InputBox("请输入三角形第3条边长")) If c = -1 Then Exit Do p = (a + b + c) / 2 If a >= p Or b >= p Or c >= p Then MsgBox "不能构成三角形" Else s = Sqr(p * (p - a) * (p - b) * (p - c)) MsgBox "面积为" & s End If Loop End End Sub。

本文就为大家分享到这里，希望小伙伴们会喜欢。