[VB6 ] 電腦猜人的猜數字
我之前才打完猜數字
之前在別的地方有看到有人打出電腦猜人的猜數字
但我完全想不出來怎麼樣讓電腦知道這個數字是不是正確的
然後在選出下一組號碼出來
可以幫我起個頭嗎?
我還有打會重複的猜數字
但是它會一直重複判斷到同一個數
這是程式碼↓(不知道這麼模糊可不可以)
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
→
02/25 20:44, , 1F
02/25 20:44, 1F