题目
vb三角形编程输入三条边,判断能否构成三角形.看我的编程是否有问题,
Dim A=Val(InputBox("请输入a") ) B=Val(InputBox("请输入b") ) C=Val(InputBox("请输入c") ) Ifa+ b >c and a+c >b and b+c>a then print a ,b,c,"能构成三角形" Else print a,b,c,"不能构成三角形" If a =b or b=c or a=c print"等腰三角 形" if a=b=c print "等边三角形" end if end sub
Dim A=Val(InputBox("请输入a") ) B=Val(InputBox("请输入b") ) C=Val(InputBox("请输入c") ) Ifa+ b >c and a+c >b and b+c>a then print a ,b,c,"能构成三角形" Else print a,b,c,"不能构成三角形" If a =b or b=c or a=c print"等腰三角 形" if a=b=c print "等边三角形" end if end sub
提问时间:2020-07-21
答案
算法没问题,按你的代码,调整了一下
Private Sub Command1_Click()
Dim a!,b!,c!
a = Val(InputBox("请输入a"))
b = Val(InputBox("请输入b"))
c = Val(InputBox("请输入c"))
If a + b > c And a + c > b And b + c > a Then
Print a,b,c,"能构成三角形"
If a = b Or b = c Or a = c Then Print "等腰三角形"
If a = b = c Then Print "等边三角形"
Else
Print a,b,c,"不能构成三角形"
End If
End Sub
Private Sub Command1_Click()
Dim a!,b!,c!
a = Val(InputBox("请输入a"))
b = Val(InputBox("请输入b"))
c = Val(InputBox("请输入c"))
If a + b > c And a + c > b And b + c > a Then
Print a,b,c,"能构成三角形"
If a = b Or b = c Or a = c Then Print "等腰三角形"
If a = b = c Then Print "等边三角形"
Else
Print a,b,c,"不能构成三角形"
End If
End Sub
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1怎么在CAD图纸上测量出来直线长度?
- 2I have some problem (finish) my homework
- 3So do I 和Me too 有什么区别?
- 4已知方程x2-3x+1=0的两根是x1,x2;则:x12+x22=_,1/x1+1/x2=_.
- 5某市出租车的收费标准为:3千米以内(含3千米)收费5元,3千米以上每增加1千米 (不足1千米按1千米计
- 6某工厂用如图甲所示的长方形和正方形纸板,做成如图乙所示的竖式与横式两种长方体形状的无盖纸盒.现有正方形纸板120张,长方形纸板若干张,恰好全部用于做这两种纸盒共100个.问需
- 7关于作家萧红的事情
- 8应用罗必塔法则求极限
- 9选词填空 试 拭 ( )飞 ( )卷 ( )探 ( )目以待 ( )泪 ( )想
- 10化简sinx+ sin2x/2+ sin3x/3
热门考点
- 1直角三角形底长15,高13,求斜边长度.谢谢!
- 2物理 摩擦力 用什么字母表示
- 3My uncle promised to buy a nic gift for my birthday ,------beyond my imagination.
- 4强调句:what is it that makes them so unhappy? 这个是强调句?是不是强调句的疑问句?怎么辨别?谢谢!
- 5高中数学求求扇形中心角的度数(高一下P92_3)
- 6电流表和互感器问题
- 7在自变量x的取值范围59≤x≤60内,二次函数y=x^2+x+0.5的函数值中整数的个数是多少个?
- 8我市某乡A,B两村盛产柑橘,A村有柑橘200吨,B村有柑橘300吨.现将这些柑橘运到C,D两个冷藏仓库,已知C仓库可存储240吨,D仓库可存储260吨;从A村运往C,D两处的费用分别为每吨15元和25
- 9为什么说“发现问题比解决问题更重要”?
- 10根据提示写词语.都在下面哦!