ASP源码.NET源码PHP源码JSP源码JAVA源码DELPHI源码PB源码VC源码VB源码Android源码
当前位置:首页 >> 网络编程 >> VB教程 >> VB中函数的用法,计算三角形面积

VB中函数的用法,计算三角形面积

来源:网络整理     时间:2017-03-17     关键词:

本篇文章主要介绍了" VB中函数的用法,计算三角形面积",主要涉及到方面的内容,对于VB教程感兴趣的同学可以参考一下: 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中函数的用法,计算三角形面积,包括了方面的内容,希望对VB教程有兴趣的朋友有所帮助。

本文网址链接:http://www.codes51.com/article/detail_4225154.html

相关图片

相关文章