猜數字
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 ..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

圖 1. Err1   

下面是引用 taiwanplope 於 2010-11-04 14:06 發表的 猜數字 求助:
猜數字
1. 亂數產生 4 個 0~9 且不重複的數字(答案)

2. 讓使用者輸入(猜) 4 個數字。

3. 若所猜的數字與答案的數字相同但位數不同  則為 B

    若所猜的數字與答案的數字相同且位數相同  則為 A

4. 輸出A與B的個數(nAmB)

5. 若完全猜對(4A)則結束  否則重複步驟 2~5

能幫我改成這樣嗎? 拜託囉 !!

.......

以後請不要用指名的方式
請人幫你
不然你可能會錯失很多
本想幫你
卻又看你指名的方式
而作罷幫你的高手

還有
請別用私人訊息問程式了
分享應比私授更有意義
你說是嗎

嗯嗯 說的是
感謝你 ^^

還是不知道怎改...

圖 1. 加強二樓所述的錯誤；建議樓主重新寫過   

下面是引用 taiwanplope 於 2010-11-05 02:13 發表的 :
還是不知道怎改...

圖 1. 1. 亂數產生 4 個 0~9 且不重複的數字(答案)   

亂數部份給你參考

嗯嗯 感謝3仙的教導!