VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 1067|回复: 1

[求助] 关于多级条件选择

[复制链接]
发表于 2019-12-13 20:01:13 | 显示全部楼层 |阅读模式
10金钱
Option Explicit
Dim BMoney As Double

Private Sub Text2_Change()
'BMoney = 0
If 20 > Val(Text2) > 0 Then
      BMoney = 5000
      Label16 = "20㎡以下,计:" & BMoney & "元"
  ElseIf 100 > Val(Text2) >= 20 Then
      BMoney = 10000
      Label16 = "20㎡(含)-100㎡,计:" & BMoney & "元"
  ElseIf 200 > Val(Text2) >= 100 Then
      BMoney = 15000
      Label16 = "100㎡(含)-200㎡,计:" & BMoney & "元"
  ElseIf 500 > Val(Text2) >= 200 Then
      BMoney = 20000
      Label16 = "200㎡(含)-500㎡,计:" & BMoney & "元"
  Else
      BMoney = 30000
      Label16 = "500㎡(含)以上,计:" & BMoney & "元"
End If
End Sub

'问题:当输入Text2为10时,结果为30000,即跳到“500㎡(含)以上”这档,而不是5000的"20㎡以下”这档,请帮助。

最佳答案

查看完整内容

20 > Val(Text2) > 0 这个条件表达式是错的,vb里不能这样写。 应该 是这样 Val(Text2) > 0 and Val(Text2)
发表于 2019-12-13 20:01:14 | 显示全部楼层
20 > Val(Text2) > 0
这个条件表达式是错的,vb里不能这样写。
应该 是这样
Val(Text2) > 0 and  Val(Text2) <20
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2020-4-7 08:24

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表