vb三角形面积代码实现（vb三角形面积代码）

欢迎来到乐天的小课堂。今天，我们来一起一下VB语言中计算三角形面积的代码实现。

我们要知道三角形面积的计算公式是：area = Sqr(s (s - a) (s - b) (s - c))。其中，s是半周长，等于三角形三边之和的一半，即 s = (a + b + c) / 2。

下面是一段VB语言的代码，用于计算三角形的面积。这段代码会在窗体加载时执行，通过输入对话框获取三角形的三条边长，然后进行计算。

```vb

Private Sub Form_Load()

Dim a As Single, b As Single, c As Single, p As Single, s As Single, area 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

End Sub

```

这段代码首先通过InputBox获取用户输入的三角形三条边长，然后计算半周长。接着判断这三条边是否能构成三角形（任意两边之和大于第三边）。如果可以构成三角形，就使用公式计算面积并输出；如果不能构成三角形，就输出提示信息。

希望这段分享对大家有所帮助，让大家更加了解VB语言在解决实际问题中的应用。