大学vb，输入三个数，判断是不是能构成三角型，若能，求其面积

Posted 2023-03-17

PrivateSubForm_Load（）

Dima，b，cAsSingle

DimpAsSingle

a=Val（InputBox）

b=Val（InputBox）

c=Val（InputBox）

Ifa+b>cAnda+c>aAndb+c>aThen

MsgBox"是一个三角形！"

p=（a+b+c）/2'这里需要用到“海伦公式”

MsgBox"三角形的面积为："&Sqr（p*（p-a）*（p-b）*（p-c））

Else

MsgBox"不是三角形！"

在VB中

以Rem关键字开头，并且Rem关键字与注释内容之间要加一个空格。注释可以是单独的一行，也可以写在其他语句行的后面。如果在其他语句行后使用Rem关键字，则必须使用冒号（：）与语句隔开。使用一个撇号（'）来代替Rem关键字。若使用撇号，则在其他语句行使用时不必加冒号。

以上内容参考：百度百科-Visual Basic

参考技术A '判断是否是三角形。满足是三角形的条件应该是：任意两边之和应该大于第三边（好像是这样的吧 呵呵）。
'例如 三角型的三条边是a，b，c那么必须满足a+b>c 并且 b+c>a 并且 a+c>b 才能是三角形，如果不满足条件就提示“不是三角形”
'已知三角形三边a,b,c，则
'根据海伦公式：p=(a+b+c)/2
'　　 S=√[p(p-a)(p-b)(p-c)]
'----------------------------------------------------------
Private Sub Command1_Click()
a = Val(InputBox("请输入第一条边长"))
b = Val(InputBox("请输入第二条边长"))
c = Val(InputBox("请输入第三条边长"))
If a + b > c And b + c > a And a + c > b Then
p = (a + b + c) / 2
MsgBox "这是一个三角形，它的面积等于：" & Sqr(p * (p - a) * (p - b) * (p - c))
Else
MsgBox "这不是三角形"
End If
End Sub 参考技术B

楼主您好！

已经运行过了，可以的：

Private Sub Form_Load()
Dim a, b, c As Single
Dim p As Single
a = Val(InputBox("请输入三角形的一条边！"))
b = Val(InputBox("请输入三角形的一条边！"))
c = Val(InputBox("请输入三角形的一条边！"))
If a + b > c And a + c > a And b + c > a Then
MsgBox "是一个三角形！"
p = (a + b + c) / 2                  '这里需要用到“海伦公式”
MsgBox "三角形的面积为：" & Sqr(p * (p - a) * (p - b) * (p - c))
Else
MsgBox "不是三角形！"

这个可以根据三角的三边关系和海伦公式即可

参考技术C 书上例题很多，不看书我也不知道，我不是这专业的