本篇文章主要介绍了" VB中函数的用法,计算三角形面积"，主要涉及到方面的内容，对于VBjrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播感兴趣的同学可以参考一下：
Private Sub Command1_Click()Dim x%, y%, z%, s As Single, b As Boolean, h As Sing...
Private Sub Command1_Click()
Dim x%, y%, z%, s As Single, b As Boolean, h As Single
'$ string 字符类型
'% integer 整型
'& long 长整型
'# double 双精度浮点型
'! single 单精度浮点型
x = InputBox("请输入三角形的边长")
y = InputBox("请输入三角形的边长")
z = InputBox("请输入三角形的边长")
b = pd(x, y, z)
h = (x + y + z) / 2
If b Then
s = Sqr(h * (h - x) * (h - y) * (h - z))
Print "三角形面积是"; s
Else
Print "不能构成三角形"
End If
End Sub
Public Function pd(x, y, z) As Boolean
If x > 0 And y > 0 And z > 0 And x + y > z And x + z > y And y + z > x Then
pd = True
Else
pd = False
End If
End Function
以上就介绍了 VB中函数的用法,计算三角形面积，包括了方面的内容，希望对VBjrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播有兴趣的朋友有所帮助。
本文网址链接：http://www.codes51.com/article/detail_4225154.html
