[已解决]能不能帮我看看这题怎么做

zz0000

用消息框的循环做，写了一点点不知道该怎么继续写了，能不能帮忙看一下？

最佳答案

月排行榜 / 总排行榜

grf1973

2016-12-8 14:30

1. Sub tt()
   
2.     x = 10: xmax = 20: xmin = 1
   
3. 100:
   
4.     yn1 = MsgBox(x & "是你选的数字吗？", vbYesNo)
   
5.     If yn1 = vbYes Then
   
6.         Exit Sub
   
7.     Else
   
8.         yn2 = MsgBox("比" & x & "大吗？", vbYesNo)
   
9.         If yn2 = vbYes Then
   
10.             x = x + Int((xmax - x) / 2)
    
11.         Else
    
12.             x = x - Int((x - xmin) / 2)
    
13.         End If
    
14.         GoTo 100
    
15.     End If
    
16. End Sub
    

复制代码

跳转到最佳答案楼层

QCW911

1. 
   
2. Public Sub tt()
   
3.     minN = 1
   
4.     MaxN = 20
   
5.     Randomize (Timer)
   
6.     x = Int(20 * Rnd) + 1
   
7.     Debug.Print x
   
8. 
   
9.    
   
10.     Do
    
11.         n = n + 1
    
12.         If n = 10 Then Exit Do
    
13.         inputN = Application.InputBox("惪桝擖" & minN & "-" & MaxN & "斖殹揑澤帋帋" & Chr(10) & msg, "惪桝擖擛澤", , , , , , 1)
    
14.         If inputN < x Then
    
15.             msg = "彫椆"
    
16.         ElseIf inputN > x Then
    
17.             msg = "戝椆"
    
18.         Else
    
19.             MsgBox "嗳洈椆"
    
20.             Exit Do
    
21.         End If
    
22. 
    
23.     Loop Until x = inputN
    
24. 
    
25. End Sub

复制代码

zz0000

QCW911 发表于 2016-12-8 08:32

谢谢啊，不过你理解错意思了 ，不是inputbox，不能告诉你选的是哪个数字，就是一直缩小范围猜。

grf1973

1. Sub tt()
   
2.     x = 10: xmax = 20: xmin = 1
   
3. 100:
   
4.     yn1 = MsgBox(x & "是你选的数字吗？", vbYesNo)
   
5.     If yn1 = vbYes Then
   
6.         Exit Sub
   
7.     Else
   
8.         yn2 = MsgBox("比" & x & "大吗？", vbYesNo)
   
9.         If yn2 = vbYes Then
   
10.             x = x + Int((xmax - x) / 2)
    
11.         Else
    
12.             x = x - Int((x - xmin) / 2)
    
13.         End If
    
14.         GoTo 100
    
15.     End If
    
16. End Sub
    

复制代码

grf1973

要改进一下，范围设置不合理。

1. Sub tt()
   
2.     x = 10: xmax = 20: xmin = 1
   
3. 100:
   
4.     yn = MsgBox(x & "是你选的数字吗？", vbYesNo)
   
5.     If yn = vbYes Then Exit Sub
   
6.     yn = MsgBox("比" & x & "大吗？", vbYesNo)
   
7.     If yn = vbYes Then
   
8.         xmin = x
   
9.         x = x + Int((xmax - x) / 2)
   
10.     Else
    
11.         xmax = x
    
12.         x = x - Int((x - xmin) / 2)
    
13.     End If
    
14.     GoTo 100
    
15. End Sub

复制代码

grf1973

4楼答案有误，5楼的才是正确的。

grf1973

边界的问题。

1. Sub tt()
   
2.     x = 10: xmax = 20: xmin = 1
   
3. 100:
   
4.     yn = MsgBox(x & "是你选的数字吗？", vbYesNo)
   
5.     If yn = vbYes Then Exit Sub
   
6.     yn = MsgBox("比" & x & "大吗？", vbYesNo)
   
7.     If yn = vbYes Then
   
8.         xmin = x
   
9.         x = IIf(xmax - x = 1, x + 1, x + Int((xmax - x) / 2))
   
10.     Else
    
11.         xmax = x
    
12.         x = IIf(x - xmin = 1, x - 1, x - Int((x - xmin) / 2))
    
13.     End If
    
14.     GoTo 100
    
15. End Sub
    

复制代码