VB正三角形面积计算公式，小数点后两位数值显示不正常！

来源：蜘蛛抓取(WebSpider) 时间：2018-06-05 15:30 标签： 正三角形面积计算公式
用VB编程，根据输入的3个边长值计算三角形的面积，如果输入值不符合“任意两边之和大于第三边”提示错误_百度知道
用VB编程，根据输入的3个边长值计算三角形的面积，如果输入值不符合“任意两边之和大于第三边”提示错误
我有更好的答案
Public Function Area(a As Double, b As Double, c As Double) As Double
If a + b & c Or a + c & b Or b + c & a Then MSGBOX &要求任意两边之和大于第三边&Exit Functionendif
Dim s As Double
s = 0.5 * (a + b + c)
Area = Sqr(s * a * b * c)End FunctionPrivate Sub Command1_Click()
Me.Caption = Area(3, 4, 5)End Sub
采纳率：50%
来自团队：
为您推荐：
其他类似问题
vb编程的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。vb 数据四舍五入取到小数点后两位_百度知道
vb 数据四舍五入取到小数点后两位
VB 四舍五入怎么做啊
我有更好的答案
a=round(&123.4567& ,2)a的结果为123.46
采纳率：36%
VB 四舍五入有几种方法，例如对于a=123.4567，要求按四舍五入的原则保留两位小数，即a的结果为123.46 ，有以下几种方法：a=round(a ,2)
a=format（a,&##.00&）a=int(a*100+0.5)/100
使用round函数:返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。 例如：round(3.25,1)=3.3 round(4.225,2)=4.23 round(5.395,2)=5.40
Text1.Text = Format(3.125, &0.00&)
其他1条回答
为您推荐：
其他类似问题
您可能关注的内容
四舍五入的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。如何在VB中实现取小数点后几位的数值?_百度知道
如何在VB中实现取小数点后几位的数值?
在计算随机数中,需要取小数点后0,1,2,..,n位,在VB中如何实现?
我有更好的答案
1、打开VB6.0软件，新建一个标准exe工程；2、在设计界面上新建一个Command控件；3、双击Command1控件，进入代码编辑界面，输入代码：Private&Sub&Command1_Click()Dim&res&As&Doubleres&=&Format(1&/&3,&&0.000&)Print&End&Sub4、运行工程，单击按钮，可以看到数据被保留三位小数；5、总结，想要保留几位小数，直接设置即可，如想设置保留5位小数，设置如下：format(1/3,&0.00000&)
采纳率：80%
format(操作数,&0.00&)取两位小数
本回答被提问者和网友采纳
round(x,n)对数值x的第n位小数四舍五入
为您推荐：
其他类似问题
您可能关注的内容
小数点的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB中如何使textbox的计算数值只显示两位有效小数？
[问题点数：20分]
VB中如何使textbox的计算数值只显示两位有效小数？
[问题点数：20分]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2013年12月 VB大版内专家分月排行榜第二2013年3月 VB大版内专家分月排行榜第二2013年1月 VB大版内专家分月排行榜第二2012年9月 VB大版内专家分月排行榜第二2012年8月 VB大版内专家分月排行榜第二2012年7月 VB大版内专家分月排行榜第二2006年7月 VB大版内专家分月排行榜第二2006年5月 VB大版内专家分月排行榜第二
2014年9月 VB大版内专家分月排行榜第三2013年7月 VB大版内专家分月排行榜第三2013年6月 VB大版内专家分月排行榜第三2013年4月 VB大版内专家分月排行榜第三2012年11月 VB大版内专家分月排行榜第三2006年6月 VB大版内专家分月排行榜第三2006年4月 VB大版内专家分月排行榜第三2002年12月 VB大版内专家分月排行榜第三2002年11月 VB大版内专家分月排行榜第三
2013年12月 VB大版内专家分月排行榜第二2013年3月 VB大版内专家分月排行榜第二2013年1月 VB大版内专家分月排行榜第二2012年9月 VB大版内专家分月排行榜第二2012年8月 VB大版内专家分月排行榜第二2012年7月 VB大版内专家分月排行榜第二2006年7月 VB大版内专家分月排行榜第二2006年5月 VB大版内专家分月排行榜第二
2014年9月 VB大版内专家分月排行榜第三2013年7月 VB大版内专家分月排行榜第三2013年6月 VB大版内专家分月排行榜第三2013年4月 VB大版内专家分月排行榜第三2012年11月 VB大版内专家分月排行榜第三2006年6月 VB大版内专家分月排行榜第三2006年4月 VB大版内专家分月排行榜第三2002年12月 VB大版内专家分月排行榜第三2002年11月 VB大版内专家分月排行榜第三
2013年12月 VB大版内专家分月排行榜第二2013年3月 VB大版内专家分月排行榜第二2013年1月 VB大版内专家分月排行榜第二2012年9月 VB大版内专家分月排行榜第二2012年8月 VB大版内专家分月排行榜第二2012年7月 VB大版内专家分月排行榜第二2006年7月 VB大版内专家分月排行榜第二2006年5月 VB大版内专家分月排行榜第二
2014年9月 VB大版内专家分月排行榜第三2013年7月 VB大版内专家分月排行榜第三2013年6月 VB大版内专家分月排行榜第三2013年4月 VB大版内专家分月排行榜第三2012年11月 VB大版内专家分月排行榜第三2006年6月 VB大版内专家分月排行榜第三2006年4月 VB大版内专家分月排行榜第三2002年12月 VB大版内专家分月排行榜第三2002年11月 VB大版内专家分月排行榜第三
匿名用户不能发表回复！|VB求三角形面积_百度知道
VB求三角形面积
给定三角形的3条边长，计算三角形的面积。编写程序，首先判断给出的3条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时介绍程序。
-------------------------------------------------------
请问高手是否可以通过...
我有更好的答案
代码如下。＝＝＝＝＝＝＝＝＝＝＝＝＝＝Private Sub Form_Load()DoDim a As Single, b As Single, c As Single, p As Single, s As Singlea = Val(InputBox(&请输入三角形第1条边长&))If a = -1 Then Exit Dob = Val(InputBox(&请输入三角形第2条边长&))If b = -1 Then Exit Doc = Val(InputBox(&请输入三角形第3条边长&))If c = -1 Then Exit Dop = (a + b + c) / 2If a &= p Or b &= p Or c &= p ThenMsgBox &不能构成三角形&Elses = Sqr(p * (p - a) * (p - b) * (p - c))MsgBox &面积为& & sEnd IfLoopEndEnd Sub
采纳率：64%
设三边长分别为a,b,c。a,b,c满足a+b&c,a+c&b,b+c&a即可为三角形。求面积用海伦公式：S=√[p(p-a)(p-b)(p-c)] （p为三角形半周长，p=(a+b+c)/2 ）弹出框请使用InputBox语句。
Private Sub btnInput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInput.Click
Dim dbl1 As Double = CDbl(InputBox(&请输入第一条边长度：&, , CStr(0)))
Dim dbl2 As Double = CDbl(InputBox(&请输入第二条边长度：&, , CStr(0)))
Dim dbl3 As Double = CDbl(InputBox(&请输入第三条边长度：&, , CStr(0)))
If dbl1 = -1 OrElse dbl2 = -1 OrElse dbl3 = -1 Then Exit Sub
If dbl1 + dbl2 &= dbl3 OrElse dbl2 + dbl3 &= dbl1 OrElse dbl1 + dbl3 &= dbl2 Then
MsgBox(&输入的三边长度无法组成一个三角形！&)
Dim MianJi As Double
Dim P As Double = (dbl1 + dbl2 + dbl3) / 2
MianJi = Math.Sqrt(P * (P - dbl1) * (P - dbl2) * (P - dbl3))
MsgBox(MianJi)
End Sub以上是 Visual Basic 2005 的代码。
为您推荐：
其他类似问题
三角形的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。

我要回帖

更多关于 正三角形面积计算公式 的文章

 

随机推荐