引用 | 編輯
taiwanplope
2010-11-04 14:06 |
樓主
▼ |
||
x0
猜數字1. 亂數產生 4 個 0~9 且不重複的數字(答案) 2. 讓使用者輸入(猜) 4 個數字。 3. 若所猜的數字與答案的數字相同但位數不同 則為 B 若所猜的數字與答案的數字相同且位數相同 則為 A 4. 輸出A與B的個數(nAmB) 5. 若完全猜對(4A)則結束 否則重複步驟 2~5能幫我改成這樣嗎? 拜託囉 !! Module Module1 Sub Main() Dim num(2) As Integer Dim i, j As Integer Randomize() '產生由1~9構成的3位數 For i = 0 To 2 num(i) = CInt(Rnd() * 9) + 1 For j = 0 To i - 1 If num(i) = num(j) Then i = i - 1 End If Next Next Dim times As Integer = 0 Dim A, B As Integer D .. 訪客只能看到部份內容,免費 加入會員 x0
|
引用 | 編輯
三仙
2010-11-04 23:00 |
1樓
▲ ▼ |
圖 1. Err1 下面是引用 taiwanplope 於 2010-11-04 14:06 發表的 猜數字 求助: |
引用 | 編輯
taiwanplope
2010-11-05 01:59 |
2樓
▲ ▼ |
嗯嗯 說的是
感謝你 ^^ x0 |
引用 | 編輯
taiwanplope
2010-11-05 02:13 |
3樓
▲ ▼ |
還是不知道怎改...
x0 |
引用 | 編輯
taiwanplope
2010-11-08 10:25 |
6樓
▲ |
嗯嗯 感謝3仙的教導!
x0 |