大家好,今天小六子来为大家解答以下的问题，关于vb编写三角形面积，VB 编程计算三角形面积这个很多人还不知道，现在让我们一起来看看吧！

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

本文分享完毕，希望对你有所帮助。