[VB6 ] 電腦猜人的猜數字

[apple0660 (蕎麥麵)]

我之前才打完猜數字
之前在別的地方有看到有人打出電腦猜人的猜數字
但我完全想不出來怎麼樣讓電腦知道這個數字是不是正確的
然後在選出下一組號碼出來
可以幫我起個頭嗎？

我還有打會重複的猜數字
但是它會一直重複判斷到同一個數
這是程式碼↓（不知道這麼模糊可不可以）
    For i = 0 To 3
        For j = 0 To 3
            If s(i) = Val(Mid(Text1, j + 1, 1)) Then
                If i = j Then
                    x = x + 1
                    Exit For
                Else
                    y = y + 1
                    Exit For
                End If
            End If
        Next j
    Next i

剛接觸VB6一個月就挑戰這個
會不會有點不自量力=口=

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 220.229.71.194
→ apple0660:阿...會重複的猜數字不用勞煩了，我剛剛打出來了