vb三角形编程输入三条边,判断能否构成三角形.看我的编程是否有问题,
题目
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
答案
算法没问题,按你的代码,调整了一下
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的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- 直角三角形底长15,高13,求斜边长度.谢谢!
- 物理 摩擦力 用什么字母表示
- My uncle promised to buy a nic gift for my birthday ,------beyond my imagination.
- 强调句:what is it that makes them so unhappy? 这个是强调句?是不是强调句的疑问句?怎么辨别?谢谢!
- 高中数学求求扇形中心角的度数(高一下P92_3)
- 电流表和互感器问题
- 在自变量x的取值范围59≤x≤60内,二次函数y=x^2+x+0.5的函数值中整数的个数是多少个?
- 我市某乡A,B两村盛产柑橘,A村有柑橘200吨,B村有柑橘300吨.现将这些柑橘运到C,D两个冷藏仓库,已知C仓库可存储240吨,D仓库可存储260吨;从A村运往C,D两处的费用分别为每吨15元和25
- 为什么说“发现问题比解决问题更重要”?
- 根据提示写词语.都在下面哦!