| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 574 人关注过本帖
标题:合格与不合格判断问题
只看楼主 加入收藏
sncelpl
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2006-6-28
结帖率:100%
收藏
已结贴  问题点数:2 回复次数:17 
合格与不合格判断问题
If Text4.Text >= "2%" Or Text8 >= "2%" Or Text12 >= "2%" Or Text16 >= "2%" Or Text20 >= "2%" Then
Text51.Text = "不合格"
Else
Text51.Text = "合格"
End If
超过9%就不对了。10%显示是合格。请问是怎么回事?没有%就正常
搜索更多相关主题的帖子: 判断 Text If Then 显示 
2022-04-24 10:46
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:331
帖 子:4782
专家分:29553
注 册:2008-10-15
收藏
得分:1 
字符串的问题,仔细看一下书上的字符串如何比较大小的说明吧

按ASCII码来比较,从第一字符开始比较,如果相同,继续比较下一个字符,直到发现不相同 或到字符串最后为止。

授人于鱼,不如授人于渔
早已停用QQ了
2022-04-24 13:00
sncelpl
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2006-6-28
收藏
得分:0 
能给个代码吗?
2022-04-24 18:21
yuma
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:银河系
等 级:版主
威 望:27
帖 子:1478
专家分:2297
注 册:2009-12-22
收藏
得分:1 
我猜楼主想要的一定是数字比大小

首先,TextBox控件中的内容是字符串不是数字,我们可以限制TextBox中的输入,让其只能输入数字

然后 TextBox控件中的内容,转换成数字再进行比较即可。

心生万象,万象皆程序!
2022-04-24 21:18
sncelpl
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2006-6-28
收藏
得分:0 
是数字但有%号我取消%号就正常了。
2022-04-25 07:41
sncelpl
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2006-6-28
收藏
得分:0 
找到原因了应该是小数的原因。谁能给个有小数的对比代码?谢谢
2022-04-25 08:30
cwa9958
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:40
帖 子:188
专家分:1036
注 册:2006-6-25
收藏
得分:1 
vb是不认识% 百分号 这个符号的。
%在vb里是数据类型的作用,代表的是整型。
如果是数值类型,建议:
val(text4)转换为数值类型再比较。
2022-04-25 08:40
apull
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:三体星系
等 级:版主
威 望:115
帖 子:1098
专家分:6408
注 册:2010-3-16
收藏
得分:1 
程序代码:
Private Sub Command1_Click()
    s = Text1.Text
    nums = Left(s, Len(s) - 1)
    If Right(s, 1) = "%" And IsNumeric(nums) Then
        V = Val(nums)
    End If
    MsgBox V * 2
End Sub

2022-04-25 08:50
sncelpl
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2006-6-28
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册

Private Sub Command7_Click()
Call Command1_Click
Call Command2_Click
Call Command3_Click
Call Command4_Click
Call Command5_Click
Call Command6_Click
a = Text4.Text
b = Text8.Text
c = Text12.Text
d = Text16.Text
e = Text20.Text
If a >= "2%" And b >= "2%" And c >= "2%" And d >= "2%" And e >= "2%" Then
Text51.Text = "不合格"
Else
Text51.Text = "合格"
End If
If Text24 >= "4%" Then
Text52.Text = "不合格"
Else
Text52.Text = "合格"
End If
End Sub
还是一样有问题超过10%判断就不对了
2022-04-25 09:05
cwa9958
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:40
帖 子:188
专家分:1036
注 册:2006-6-25
收藏
得分:0 
你的文本框里输入的是什么数据?有%的吗?运行的时候截图看看

2022-04-25 09:10
快速回复:合格与不合格判断问题
数据加载中...
 
   



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

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