[顯示] [隱藏]

老師出了用VB寫出終極密碼！請問要怎樣才能寫出！
最好越短越好！

我把我建議的想法寫出來，但我想應該有別的大大有更好的意見。
我不會把程式貼上來，只是描述一下整個邏輯，我想你想想看，應該ok的。

宣告四個變數，一個存放終極密碼值，一個存放前值，一個存放後值，另一個放使用者輸入的值。
（假設由0 到100）
do {
  用亂數取得一終極密碼值。
} while ((終極密碼 == 前值) || (終極密碼 == 後值))     ;因為亂數產生的值等於前值或後值，所以要重取

while (1) {
  取得使用者輸入的值
  if (使用者輸入的值 == 終極密碼) {
     弄個爆炸的圖吧
  } else {
    if ((使用者輸入的值 > 前值) && (使用者輸入的值 < 終極密碼)) {      ;這是用來確認使用者輸入的值是不是落在前值跟終極密碼中，是的話，把前值往後推到使用者輸入的，反之就把後值往前推，你可以在加判斷，看看使用者輸入的值是不是落在終極密碼跟後值之中。
      前值 = 使用者輸入的值
    } else {
      後值 = 使用者輸入的值
    }
  }
}

上面是大概寫的，可能還會有問題，你可以試一下，不然請別的大大提供別的方法，謝謝。

= =邏輯是懂了！但一些程式碼會忘記？
有誰可以幫我一下！
給我大概的程式碼！

那東西請善用 Google 大神，一下子就能找出來了！
其實就是先產生亂數，然後利用迴圈(Do-Until Loop、While Wend 等迴圈格式)
讓他猜對時再跳離迴圈就行了！
如果沒猜對，還可以加個提示他再大一點或小一點！用 If 就能判斷
至於範圍，可以用 Min , Max 來給他個 Range ，還可以加判斷，如果他猜的沒在這Range 裡，問問他有沒有搞錯XD

好吧，我認了一□一！
把程式碼拿掉總可以了吧(嘆~
這樣總不會再重覆了吧~"~

[ 本帖最後由 風星 於 2007-5-30 12:39 AM 編輯 ]

這個我以前有做過，以下是程式碼，僅供參考用。(這並不是完全正確的喔！只是題供類似的概念想法。)
我覺得pig_dennis寫的是C語言的吧！雖然語法跟VB類似啦！^^∼∼

Dim Answer, UserAnswer, Times, lb, ub As Integer

Randomize
Times = 0
lb = 0
ub = 100
Answer = Int((ub - lb + 1) * Rnd + lb)

Do
  Times = Times + 1

  Do
    UserAnswer = Val(InputBox("請輸入" & lb & "到" & ub & "之間的整數", "輸入數字"))
  Loop Until UserAnswer >= lb And UserAnswer <= ub

  If UserAnswer > lb And UserAnswer < Answer Then
     lb = UserAnswer
  Else
     ub = UserAnswer
  End If

Loop While UserAnswer <> Answer

MsgBox "正確答案" & Answer & ",你在第" & Times & "次猜中", vbInformation, "解答"

[ 本帖最後由 伊Da 於 2007-7-4 09:27 PM 編輯 ]