vb三角形面积代码（三角形面积程序代码）

大家好，小伟今天来为大家解答vb三角形面积代码以下问题，三角形面积程序代码很多人还不知道，现在让我们一起来看看吧！

1、Print "面积："; s;Else;Print "不是三角形";End If;End Su;

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("请。

3、Print "这个三角形的面积是"; s End If

4、c = Val(InputBox("请输入三角形第3条边长"))s = (a + b + c) / 2If a >= s Or b >= s Or c >= s ThenMsgBox "不能构成三角形"Elsearea = Sqr(s * (s - a) * (s - b) * (s - c)) MsgBox "。

5、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 。

本文到此讲解完毕了，希望对大家有帮助。