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,"能构成
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/22 11:33:42
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,"能构成
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
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,"能构成
算法没问题,按你的代码,调整了一下
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