作者apple0660 (荞麦面)
看板Visual_Basic
标题[VB6 ] 电脑猜人的猜数字
时间Thu Feb 25 19:49:39 2010
我之前才打完猜数字
之前在别的地方有看到有人打出电脑猜人的猜数字
但我完全想不出来怎麽样让电脑知道这个数字是不是正确的
然後在选出下一组号码出来
可以帮我起个头吗？
我还有打会重复的猜数字
但是它会一直重复判断到同一个数
这是程式码↓（不知道这麽模糊可不可以）
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
1F：→ apple0660:阿...会重复的猜数字不用劳烦了，我刚刚打出来了 02/25 20:44