VB愛好者樂園(VBGood)

標題: 關于多級條件選擇 [打印本頁]

作者: ygxshanghai    時間: 2019-12-13 20:01
標題: 關于多級條件選擇
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㎡以下”這檔,請幫助。
作者: cwa9958    時間: 2019-12-13 20:01
20 > Val(Text2) > 0
這個條件表達式是錯的,vb里不能這樣寫。
應該 是這樣
Val(Text2) > 0 and  Val(Text2) <20





歡迎光臨 VB愛好者樂園(VBGood) (http://www.544815.live/) Powered by Discuz! X3.3
广西快3开奖结果直播