count++； （guess==number）||（guess==-1）
-
-
有什么規律
-
你當莊嗎
-
然后呢
題目沒說完完 -
Dim state As Integer '狀態 0表示沒開始 1表示已開始
Dim min As Integer '最小值
Dim max As Integer '最大值
Dim now As Integer '中值
Dim c As Integer '猜的次數
Private Sub Command1_Click() '開始
state = 1
Guess
End Sub
Private Sub Command2_Click() '小了
If state = 0 Then MsgBox "還沒開始呢！": Exit Sub
min = now
Guess
End Sub
Private Sub Command3_Click() '大了
If state = 0 Then MsgBox "還沒開始呢！": Exit Sub
max = now
Guess
End Sub
Private Sub Command4_Click() '正確
If state = 0 Then MsgBox "還沒開始呢！": Exit Sub
state = 0
MsgBox "哇哇，我太厲害了，才猜" & c & "次就猜中了！"
End Sub
Private Sub Form_Load()
state = 0
min = 0
max = 100
c = 0
End Sub
Function GetMid() As Integer '取得中值
GetMid = (max - min) / 2 + min
End Function
Sub Guess() '電腦猜測
now = GetMid
c = c + 1
MsgBox "我猜是" & now & "！"
End Sub
最新回答 更多>
相關問答
- 手機屏幕太大,玩游戲花屏,有什么解決方法
- 五子棋屬于哪一類型的游戲
- ipad2為什么會自動下載游戲啊?我在關機后,但好像網絡沒有關,第二天打開ipad會發現有很多游戲在桌面上
- 為什么榮耀6玩游戲特別卡 特別是王者榮耀
- 好不好才能隱私華為DVC-TN20手機里的游戲?
- 求《驚天動地2.2》單機版游戲，一鍵安裝 免架設得
- DNF這游戲是不是很垃圾漏洞太多時常掉線
- 蘋果手機腫么關閉GPRS。24小時自動走流量、我530M用了10天。蘋果手機下載游戲、下一半腫么刪除
- 騰訊游戲四大工作室是什么
- DNF游戲里的紅、藍玫瑰有什么用？
- 5173怎么賣1E的DNF游戲B, 每天交易上限是3600W, 賣過的來 坐等高人解答
- 小米手機如何避免孩子下載游戲
- dnf登錄后出現圖片上的英文無法游戲重新下載安裝后還是不行，怎么處理。解決問題立刻采納。謝謝
- 為什么好友沒加入游戲人生也有榮耀點？
- 史上最坑人的游戲黑屏解決方法