PCDVD數位科技討論區
PCDVD數位科技討論區   註冊 常見問題 標記討論區為已讀

回到   PCDVD數位科技討論區 > 其他群組 > 七嘴八舌異言堂
帳戶
密碼
 

回應
 
主題工具
吉米Jimmy
Regular Member
 

加入日期: Mar 2002
您的住址: Ever17
文章: 93
Question VB程式問題一問

我想要用vb設計一個程式 但是一直出現問題= =b
所以想上來一問

我想寫個類似 "終極密碼" 這類的小遊戲
就是假設 數字1到100
電腦以亂數方式選出之間其中一個數字
讓使用者猜數字 假設電腦亂數出一個數字為48
那使用者猜 假設他輸入了60 那電腦就會顯示縮小範圍後1到60
然後使用者接著輸入20後 電腦就會顯示20到60 這樣

有辦法辦的到嗎@@ 我還算新手 嘗試中 一直因為一點小錯誤而無法成功
而且我希望用Text盒做輸入介面@@
所以有些問題會有說第二次按按鈕 之前的數字就會被清掉= =b
或者是運用陣列等等的
     
      

此文章於 2004-12-23 08:12 PM 被 吉米Jimmy 編輯.
舊 2004-12-23, 08:05 PM #1
回應時引用此文章
吉米Jimmy離線中  
b9156032
Basic Member
 

加入日期: Feb 2004
文章: 10
一開始在程式執行的時候可以先取出亂數和上下限值存進全域變數裡
而判斷的程式碼則是寫在buttom裡每按一次buttom就判斷一次答案
再依判斷去改變上下限值直到猜到答案為止  大概就這樣 久沒寫vb
有錯話請訂正....
 
舊 2004-12-23, 08:52 PM #2
回應時引用此文章
b9156032離線中  
黑狗弟
Elite Member
 
黑狗弟的大頭照
 

加入日期: Jan 2000
您的住址: 噗噗噗噗
文章: 4,489
因該可以吧..
一開始設一個 Random Number,
一個 MinNo 一個 MaxNo
一個 EnterNo
當 Enter Number = Random Number 的時候當然就 Win 啦..
else if
enter number > random number
then maxno == random number
else
minno == random number

我也忘了 VB 了...
__________________

你們都是我的心肝寶貝呀..
舊 2004-12-23, 09:43 PM #3
回應時引用此文章
黑狗弟離線中  
吉米Jimmy
Regular Member
 

加入日期: Mar 2002
您的住址: Ever17
文章: 93
唔 還是不行(汗)
麻煩會的人幫一下忙囉@@
我在表單載入時 存進全域變數 還是無效@@
__________________
JXL
舊 2004-12-26, 12:53 PM #4
回應時引用此文章
吉米Jimmy離線中  
吉米Jimmy
Regular Member
 

加入日期: Mar 2002
您的住址: Ever17
文章: 93
在推一下,不知道還有人知道嗎@@
__________________
JXL
舊 2004-12-26, 08:08 PM #5
回應時引用此文章
吉米Jimmy離線中  
h1tom
Major Member
 
h1tom的大頭照
 

加入日期: Mar 2002
您的住址: TW
文章: 127
引用:
作者吉米Jimmy
唔 還是不行(汗)
麻煩會的人幫一下忙囉@@
我在表單載入時 存進全域變數 還是無效@@

上面黑狗弟兄(?)寫得很清楚啊?
您的無效是怎麼個無效法?
舊 2004-12-26, 08:42 PM #6
回應時引用此文章
h1tom離線中  
Cheeba
Amateur Member
 

加入日期: Sep 2004
文章: 34
手邊沒有 VB, 故用 Excel 的 VBA 隨便寫了一個 (只寫了最基本的部份), 參考看看.
(要看程式碼請按 Alt-F11)
舊 2004-12-26, 10:20 PM #7
回應時引用此文章
Cheeba離線中  


回應


POPIN
主題工具

發表文章規則
不可以發起新主題
不可以回應主題
不可以上傳附加檔案
不可以編輯您的文章

vB 代碼打開
[IMG]代碼打開
HTML代碼關閉



所有的時間均為GMT +8。 現在的時間是05:19 AM.


vBulletin Version 3.0.1
powered_by_vbulletin 2026。