select case搭配if使用需求問題

1. 全域變數
   
2. sValue long
   
3. 
   
4. sub裡面
   
5. 
   
6. 宣告一個變數為tValue int
   
7. 
   
8. tValue = test.text
   
9. 
   
10. Select case tValue
    
11. 
    
12. case is =33
    
13. sValue = 33
    
14. case is =44
    
15. sValue = 44
    
16. select end
    
17. 
    
18. if sValue = 33 and
    
19. tValue = 88 then
    
20. 
    
21. WirteValue 1.text= 1
    
22. end if
    
23. 
    
24. if sValue = 33 and
    
25. tValue = 88 then
    
26. 
    
27. WirteValue 2.text=1
    
28. end if
    
29. 
    
30. 
    
31. exit sub
    
32. select case  tValue
    
33. 
    
34. 
    
35. 
    
36. case is =33
    
37. sValue = 33
    
38. case is =44
    
39. sValue = 44
    
40. select end
    
41. 
    
42. 
    

複製代碼

請問一下這樣程式哪邊該修 執行上會有問題

第一次讀到的值 如為33或44 存在全域變數
第二次讀到的值 如為88  就會跳到if判斷  讓WirteValue.text寫入1  這樣
...

瀏覽完整內容，請先 註冊 或 登入會員

這是你要的嗎?

1. Select Case tValue
   
2.   Case Is = 33
   
3.     sValue = 33
   
4.   Case Is = 44
   
5.     sValue = 44
   
6.   Case Is = 88
   
7.     Select Case sValue
   
8.       Case Is = 33
   
9.         WirteValue 1.text= 1
   
10.       Case Is = 44          
    
11.         WirteValue 2.text= 1
    
12.     End Select
    
13. End Select

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

samou568 發表於 2015-3-27 08:16 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

這是你要的嗎?

我晚點試試看

我要的邏輯就是

33  88  44  88  22  11
...

瀏覽完整內容，請先 註冊 或 登入會員

Jeepluo

最好再加一個 Other 避免萬一輸入例外的的值造成程式當了

Jeepluo 發表於 2015-3-28 07:35 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

最好再加一個 Other 避免萬一輸入例外的的值造成程式當了

有讀到其它的值?當掉??

不太懂!!

Jeepluo

就是說你使用 Select Case 的陳述式，卻沒有完整的表示出來，
語法如下：

1. Select [ Case ] testexpression
   
2.     [ Case expressionlist
   
3.         [ statements ] ]
   
4.     [ Case Else
   
5.         [ elsestatements ] ]
   
6. End Select

複製代碼

你卻寫成了這樣

1. Select case tValue
   
2.     case is =33
   
3.         sValue = 33
   
4.     case is =44
   
5.         sValue = 44
   
6. select end

複製代碼

萬一輸入的 tValue ＝ 35 或 ＝ 36 預估之外的值，那 sValue 要等於什麼值呢？ 或是要提出警示呢？...

瀏覽完整內容，請先 註冊 或 登入會員