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
人气:293 ℃ 时间:2020-01-29 06:05:19
解答
算法没问题,按你的代码,调整了一下
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
推荐
- VB编程.输入三角形三条边a,b,c的值判断能否构成三角形.若能,显示三角形的类型:等边三角形 等腰三角形 等腰直角三角形 直角三角形 任意三角形,若不能,显示不能构成三角形
- VB:编程计算三角形面积
- VB题目:输入三角形的三边编程求出面积
- VB编程:从键盘输入三角形的三边,判断能否构成三角形:如果能构成三角形,则计算其面积
- VB编程 输入三角形三条边长啊,a,b,c的值,根据其数值,判断是否构成三角形.
- 高中作文应该如何写呢?
- 人教版四年级下册语文书上的七圆地的日积月累的意思 【{
- The students should read English every morning.
猜你喜欢