VB程序猜生日怎么写？

Question

让电脑采用二分法猜生日日期（1-31），第一次直接显示16，出现三个按钮，大了，小了，猜对了。根据提示再出现下一个数字，比如是大了，就出现8.这个程序应该怎么写》谢谢了

Answer 1

Dim count1 As Integer

Private Sub Command1_Click()
count1 = count1 / 2
text
End Sub

Private Sub Command2_Click()
count1 = count1 + count1 / 2
text
End Sub

Private Sub Command3_Click()
MsgBox "恭喜你猜对了！", 65, "提示！"
End Sub

Private Sub Form_Load()
count1 = 16
text
End Sub
Private Sub text()
Form1.Caption = "生日是" & Str(count1)
End Sub追问

这个程序好像有问题，比如先大了，再小了，就会出现问题。猜一次后并没有把其余一半舍去。

追答

额，这个你可以自己调整算法啊