求用VB编写一个求三角形周长的程序的源码

发布网友发布时间：2023-07-11 19:17

共1个回答

热心网友时间：2024-11-15 23:55

Dim a As Single, b As Single, c As Single
a = Val(Text1): b = Val(Text2): c = Val(Text3)
If ((a + b > c And Abs(a - b) < c) And (b + c > a And Abs(b - c) < a) And (c + a > b And Abs(c - a) < b)) Then
Label4 = "边长=" & (a + b + c)
Else
Label4 = "当前边长不能构成三角形！"
End If追问哎呦不错哟，很认真嘛，虽然和我的要求有一点点差距不过还是给你吧！

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com