| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3051 人关注过本帖
标题:关于VB判定三角形的问题
取消只看楼主 加入收藏
a192161647
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2016-12-4
收藏
 问题点数:0 回复次数:1 
关于VB判定三角形的问题
程序代码:
Option Explicit

Private Sub Command1_Click()
Dim a, b, c As Integer
a = Text1
b = Text2
c = Text3
If a + b > c And a + c > b And b + c > a Then
If a = b = c Then
L5 = "等边三角形"
ElseIf (a = b And b <> c) Or (a = c And c <> b) Or (b = c And b <> a) Then
L5 = "等腰三角形"
End If
Else
L5 = "不构成三角形"
End If
End Sub

问一下大神们,为什么我输入这样的代码以后,当T1=T2=T3=5的时候,L5显示的是不构成三角形
搜索更多相关主题的帖子: 三角形 
2017-02-04 20:59
a192161647
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2016-12-4
收藏
得分:0 
找到原因了“If a = b = c Then”应该改为“if a=b or b =c or c=a then”
2017-02-04 21:17
快速回复:关于VB判定三角形的问题
数据加载中...
 
   



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

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