无聊的很，做了个猜大小的游戏

jaxxcyh

1. Sub test()
   
2.     Dim myarr(1 To 10, 1 To 10) As Integer
   
3.     Range("A1", "J10").Interior.Color = xlNone
   
4.     For i = 1 To 10
   
5.         For j = 1 To 10
   
6.             myarr(i, j) = (i - 1) * 10 + j
   
7.         Next
   
8.     Next
   
9.     [a1].Resize(10, 10) = myarr
   
10.    
    
11.     Dim rndNum As Integer
    
12.     rndNum = WorksheetFunction.RandBetween(1, 100)
    
13.    
    
14.     Dim greenF, redF, yellowF
    
15.     greenF = False   '猜对标记绿色
    
16.     redF = False     '涂红标记，代表猜大
    
17.     yellowF = False  '涂黄标记，代表猜小
    
18. 
    
19.     Dim myGuess As Integer
    
20.     Dim myRow As Integer, myCol As Integer
    
21.     Dim oldRedRow As Integer, oldRedCol As Integer
    
22.     Dim oldYellowRow As Integer, oldYellowCol As Integer
    
23.    
    
24.     i = 0
    
25.     Do
    
26.         myGuess = CInt(InputBox("输入你猜的数(1-100)："))
    
27.         i = i + 1
    
28.         myRow = (myGuess - 1) \ 10 + 1
    
29.         myCol = myGuess Mod 10: If myCol = 0 Then myCol = 10
    
30.         
    
31.         If myGuess > rndNum Then
    
32.             If redF Then Cells(oldRedRow, oldRedCol).Interior.Color = xlNone
    
33.             Cells(myRow, myCol).Interior.Color = RGB(255, 0, 0)
    
34.             redF = True         '红标记
    
35.             oldRedRow = myRow: oldRedCol = myCol
    
36.             
    
37.             MsgBox "你猜的大了"
    
38.             
    
39.         ElseIf myGuess < rndNum Then
    
40.             If yellowF Then Cells(oldYellowRow, oldYellowCol).Interior.Color = xlNone
    
41.             Cells(myRow, myCol).Interior.Color = RGB(255, 255, 0)
    
42.             yellowF = True      '黄标记
    
43.             oldYellowRow = myRow: oldYellowCol = myCol
    
44.             MsgBox "你猜的小了"
    
45.             
    
46.         Else
    
47.             Cells(myRow, myCol).Interior.Color = RGB(0, 255, 0)
    
48.             greenF = True       '绿标记
    
49.             MsgBox "猜对了," & "这个数是" & rndNum & ",你猜了" & i & "次"
    
50.         End If
    
51.         
    
52.     Loop Until greenF
    
53. End Sub
    

复制代码

jaxxcyh

重发一个修正版。可以模拟二分法猜数过程，可对猜对的次数的频率进行统计，以统计图方式直观展现。

titi012

一百个数，按二分法，理论上最多7次可以猜到。
我有个问题，如果猜的次数多了，比如一万次，都个数出现的概率平均，平均猜到的次数是多少呢？

jaxxcyh

titi012 发表于 2024-8-7 08:45
一百个数，按二分法，理论上最多7次可以猜到。
我有个问题，如果猜的次数多了，比如一万次，都个数出现的 ...

你都知道二分法，难道还不知道求对数？
log(2,10000)结果约为14，最多14次。
如果求猜对的平均次数，我觉得1-14次的可能性都存在，但是不是n次试验，每种次数均等出现还是有权重就不知道了（比如14次这个就应该偏少，因为取的是log(2,10000)的结果13.277......的近似值。
不妨做个电脑模拟程序，统计一下看看。

ynzsvt

考虑来个反过来的，心中想个数据，让电脑猜猜猜。

Enocheasty

还记得很多年前搞Autodesk CAD二开的时候，无聊了还做了一个战机游戏，现在都不知道丢那里去了。

titi012

jaxxcyh 发表于 2024-8-7 10:23
你都知道二分法，难道还不知道求对数？
log(2,10000)结果约为14，最多14次。
如果求猜对的平均次数，我 ...

可能我没说清楚啊，
都按2分法来猜，每个数的猜到的次数是确定的，比如50，一次，75，两次，....然后统计一下平均的次数。
这个比随机猜要少很多的。
然后还有没有比这个更少的次数的方法呢？

jaxxcyh

titi012 发表于 2024-8-7 13:49
可能我没说清楚啊，
都按2分法来猜，每个数的猜到的次数是确定的，比如50，一次，75，两次，....然后统 ...

2楼有统计，100内的猜数游戏进行了2000轮，猜对次数平均为5.8次。

jaxxcyh

titi012 发表于 2024-8-7 08:45
一百个数，按二分法，理论上最多7次可以猜到。
我有个问题，如果猜的次数多了，比如一万次，都个数出现的 ...

1-100范围内猜数，最高次数不是7次，而是6次。
比如考虑极端情况：目标数是100
第1次：1-100，猜50，小了
第2次：51-100，猜75，小了
第3次：76-100，猜88，小了
第4次：89-100，猜94，小了
第5次：95-100，猜97，小了
第6次：98-100，猜99，小了，此时就可直接得出结论，要猜的目标数一定是100。所以不需要第7次猜数了。

赵桢0611

参与一下，分享一位老师做的窗体数字游戏，可猜4位数的游戏。