1樓：匿名使用者
option explicit
dim x%, min%, max%
private sub form_load()
randomize
x = int(rnd * 98 + 2)
min = 1: max = 100: label1 = "請猜：" & min & "~" & max
end sub
private sub label1_click()
x = int(rnd * 98 + 2)
min = 1: max = 100: label1 = "請猜：" & min & "~" & max
end sub
private sub text1_change()
if (text1 <> "") then if (x = text1) then label1 = "猜中了" & x & ",點選這裡重新猜數字"
end sub
private sub text1_keypress(keyascii as integer)
if (keyascii = 13) then
if val(text1) = 0 then text1 = 0
if (text1 <= min or text1 >= max) then text1 = int((max + min) / 2)
if (x > text1) then min = text1
if (x < text1) then max = text1
label1 = "請猜：" & min & "~" & max
if (text1 <> "") then if (x = text1) then label1 = "猜中了" & x & ",點選這裡重新猜數字"
end if
end sub
2樓：匿名使用者
rnd + 數個 if...then
vb高手請進
你這樣做肯定不行，引用 microsoft activex data objects 2.0 library 然後用odbc方式連線資料庫，下面 測試過了可行。private sub form load dim i,j as integer dim rs as adodb.recordsetset ...
vb高手進，VB高手進啊
for就是重複執行。先看簡單的 fori 1to5 print ok i next ii 1 輸出。i 2也輸出.i 5輸出。i 6就沒有了。所以會輸出5個ok vb執行顯示是ok1 ok2ok3 ok4ok5 next i的左右就是 for.next 之間做重複的範圍 在生活有很多例子 如你再算1...
算命高手請進，算命 高手請進
出生 公元1988年7月16日1時0分 陽曆 農曆 一九八八年六月初三日丑時 當月節氣 小暑 7月7日5 57 中氣 大暑 7月22日23 15 生辰八字 戊辰年 己未月 壬申日 辛丑時 一 你的八字命盤 下列是你的八字命盤。你是黑猴，出生於黃龍年。日天干代表你，所以你是屬水。年 祖先 月 父母 日...