VBGood網站全文搜索 Google

搜索VBGood全站網頁(全文搜索)

VB愛好者樂園(VBGood)

 找回密碼
 立即注冊
搜索
查看: 539|回復: 1
打印 上一主題 下一主題

[求助] 關于多級條件選擇

[復制鏈接]
跳轉到指定樓層
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)
2
發表于 2019-12-13 20:01:14 | 只看該作者
20 > Val(Text2) > 0
這個條件表達式是錯的,vb里不能這樣寫。
應該 是這樣
Val(Text2) > 0 and  Val(Text2) <20
回復

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規則

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

GMT+8, 2020-2-5 19:59

VB愛好者樂園(VBGood)
快速回復 返回頂部 返回列表
广西快3开奖结果直播