| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 434 人关注过本帖
标题:编程问题
只看楼主 加入收藏
yfasj
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2006-4-22
收藏
 问题点数:0 回复次数:4 
编程问题
输入三角形三条边a,b,c的值,根据数值,判断能否构成三角形,若能还要显示三角形的性质,等边,等腰,直角,任意。
这是我编的程序:
我知道问题出现在判断能否构成三角形上,“If a + b > c Or b + c > a Or a + c > b Then
Print "能构成三角形 "
Else
Print "不能构成三角形"”
这样编永远都是能构成三角形,请高手指点如何修改!
感谢
Private Sub Form_click()
Dim a!, b!, c!
a = InputBox("输入边长a")
b = InputBox("输入边长b")
c = InputBox("输入边长c")
If a + b > c Or b + c > a Or a + c > b Then
Print "能构成三角形"
If a * a + b * b = c * c Or b * b + c * c = a * a Or a * a + c * c = b * b Then
Print "直角三角形"
ElseIf a = b And b = c Then
Print "等边三角形"
ElseIf a = b And b <> c Or b = c And a <> b Then
Print "等腰三角形"
Else
Print "任意三角形"
End If
Else
Print "不能构成三角形"
End If
End Sub
2006-06-23 18:36
穆扬
Rank: 1
等 级:禁止发言
帖 子:1910
专家分:0
注 册:2006-6-1
收藏
得分:0 
提示: 作者被禁止或删除 内容自动屏蔽

2006-06-23 21:07
穆扬
Rank: 1
等 级:禁止发言
帖 子:1910
专家分:0
注 册:2006-6-1
收藏
得分:0 
提示: 作者被禁止或删除 内容自动屏蔽

2006-06-23 21:08
xu2000
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:51
帖 子:3890
专家分:56
注 册:2006-4-8
收藏
得分:0 
If a + b &gt; c And b + c &gt; a And a + c &gt; b Then

我会拿出我全部的钱财,以保你衣食无忧。我会献出我所有的智慧,以助你一帆风顺。我会想到所有的笑语,以令你展眉开颜。我会挤出最长的时间,以使你终生幸福。        [本人原创的结婚宣言]
2006-06-23 21:14
yfasj
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2006-4-22
收藏
得分:0 
谢谢!!
2006-06-24 10:38
快速回复:编程问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.038633 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved