剪刀石頭布…卡住了 不會繼續動

clown692222

1. Randomize '產生一個亂數
   
2. 
   
3. W = Int(Rnd * 100) + 1 '用W代表出拳的機率 共100%
   
4. T = 0 '以T來代表 怎共玩了幾場
   
5. L = 0 '以L來代表 怎共輸了幾場
   
6. Y = 0 '以Y來代表 怎共贏了幾場
   
7. Text1 = T
   
8. Text2 = L
   
9. Text3 = Y
   
10. 'Print W
    
11. 
    
12. Select Case Val(Text1)
    
13. Case Is <= 33  '這是剪刀的機率
    
14.   Option1 = True
    
15.     T = T + 1
    
16.     Text2 = "平手！不算什麼！再來"
    
17.   Option2 = True
    
18.     T = T + 1
    
19.     Y = Y + 1
    
20.     Text2 = "好像很強的樣子？贏一把而已囂張啥？"
    
21.   Option3 = True
    
22.     T = T + 1
    
23.     L = L = 1
    
24.     Text2 = "弱掉了…連電腦都玩不贏…"
    
25. 
    
26. Case Is >= 34 '這是石頭的機率
    
27.   Option1 = True
    
28.     T = T + 1
    
29.     L = L + 1
    
30.     Text2 = "弱掉了…連電腦都玩不贏…"
    
31.   Option2 = True
    
32.     T = T + 1
    
33.     Text2 = "平手！不算什麼！再來"
    
34.   Option3 = True
    
35.     T = T + 1
    
36.     Y = Y + 1
    
37.     Text2 = "好像很強的樣子？贏一把而已囂張啥？"
    
38. 
    
39.    Case Is >= 66 '這是布的機率
    
40.     Option1 = True
    
41.      T = T + 1
    
42.      Y = Y + 1
    
43.      Text2 = "好像很強的樣子？贏一把而已囂張啥？"
    
44.    Option2 = True
    
45.      T = T + 1
    
46.      L = L + 1
    
47.      Text2 = "弱掉了…連電腦都玩不贏…"
    
48.    Option3 = False
    
49.      T = T + 1
    
50.      L = L + 1
    
51.      Text2 = "平手！不算什麼！再來"
    
52.    Case Is > 99 '求公平沒有設定
    
53.     MsgBox "變拳!!!!!你能玩到出現這個視窗…很屌了"
    
54. 
    
55. End Select
    
56. End

複製代碼

按執行的時候 會一直把 OPTION3 打勾
然後一直按 都不會顯示別的 冏""  心血來潮寫的 就卡住了
求大大幫忙QQ

...

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

darkjack

如果我猜得沒錯（我沒寫程式）
你應該會卡在

1. Select Case Val(Text1)
   
2. Case Is <= 33  '這是剪刀的機率
   
3.   Option1 = True
   
4.     T = T + 1
   
5.     Text2 = "平手！不算什麼！再來"
   
6.   Option2 = True
   
7.     T = T + 1
   
8.     Y = Y + 1
   
9.     Text2 = "好像很強的樣子？贏一把而已囂張啥？"
   
10.   Option3 = True
    
11.     T = T + 1
    
12.     L = L = 1
    
13.     Text2 = "弱掉了…連電腦都玩不贏…"

複製代碼

這段 對吧...

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

clown692222

可是不知道哪邊出錯QQ 有執行 但是整個都錯的

darkjack

那請你用 步進 除錯方式 一步一步去追蹤
在你程式的 一開始會執行的那段設下 中斷點
然後用 F11 (內定） 去一步一步追 你就知道為何了
還要看除錯視窗，如果聽不懂我說啥
請 參考

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

vb.net 版

...

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

arthurliuliu

以一個剪刀石頭布的小程式來說，
目前貼出來的這些程式碼，問題還是太多了，不知道從何講起...

ahway9988

我知道5樓版主的苦衷,因為幾乎要全改掉才能正常執行
以下是改動後,雖然改動了但仍可以分辨得出來
其中
1. Y是VB內建的變數名稱不可私用,所以改成myY
2. Select 迴圈和IF迴圈一樣,它滿足了第一個條件式就不會去判斷第二個條件式,所以剪刀,石頭,布跟變拳的條件式位置要更動
3. Select 的判斷條件應是W,Text的對話也不該是Text2,小的用myText2替換
...

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

ahway9988

"補充"出現格式問題,而且也不夠長度,直接回貼在此了(此帖當作補充)
終歸一句話,您的程式"順序"是最大的問題,就如Text1=T ~ Print W 應該要放區塊最後面,它才會顯示最新狀
態,我沒變動這個請您注意,只有變動Select迴圈內的條件式位置而已
另外給您參考:
1. 將設W=Int(Rnd*3)+1,這樣Select迴圈條件只設Case =1~3 不管要放哪裡都行
...

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