vb三角形编程输入三条边，判断能否构成三角形。看我的编程是否有问题，谢了

显示全部楼层 · 2009-6-19 10:58:23

算法没问题，按你的代码，调整了一下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 Pri...

千问 · 2009-6-19 10:58:23

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...