1樓：匿名使用者
選題方法是採用的sql語句，不是用的vb，這是功能所需，效率所求sql語句，查詢資料題庫，隨機選擇10題和每次都不同，等哈寫出來select top 10 * from 題庫 where id in(select top 10 id from 題庫 order by right(cstr(rnd(-int(rnd(-timer())*100+id)))*1000*now(),2))
這句sql語句，就是隨機調出題庫10道題，每次都不同vb開啟資料庫，每次執行以上語句，再顯示出來，就是你要的結果vb我就不用講了吧，vb資料庫操作就太多了strsql = "select top 10 * from 題庫 where id in(select top 10 id from 題庫 order by right(cstr(rnd(-int(rnd(-timer())*100+id)))*1000*now(),2))"
set rs = conn.openrecordset(strsql)
有什麼不會的，還是你m我吧，sql是vb的一個功能而已
2樓：匿名使用者
vb的ado就是用sql語句來查詢
用vb做一個姓名隨機抽取的軟體 但是 名字不能重複抽取謝謝
3樓：匿名使用者
private sub command1_click()
dim i as long, n as long, y as long, x as long, a() as integer
y = list1.listcount
n = val(text1.text) '獲取輸入的數量，text1可以自己改
if n < 1 then exit sub '輸入數量不能為0
if y < n then exit sub '抽取數量不能為大於已經存在姓名列表
randomize
for i = 0 to n - 1
x = int((y - 1 + 1) * rnd + 1) '隨生成機數字
redim preserve a(i)
a(i) = x
for j = 0 to ubound(a) - 1
if x = a(j) then i = i - 1: exit for '判斷是否重複
next
next
for i = 0 to ubound(a)
list2.additem list1.list(a(i)) 'list1內抽取到的新增到list2，右邊的 list1 和 list2 自己改
next
end sub
4樓：匿名使用者
先判斷已經抽取的結果，如果存在重新抽取。
excel**中建立題庫,隨機抽選題目,怎樣做?
5樓：
方法1：indirect函式+randbetween函式
在單元格c1輸入公式
然後回車（即按“enter"鍵）
你會發現單元格c1為隨機從a1:a10提取的一個數。
將滑鼠放到單元格c1的右下角，等到滑鼠標誌變為小十字，按下滑鼠左鍵然後往下拖，你會發現拖出的資料都為隨機從a1:a10提取的一個數。
但是需要注意的是：randbetween函式是易失性函式，你每更改任意一個單元格，公式的值都會發生變化。
如果想避免這種情況，你可以複製公式區域，然後數值貼上在同一區域。
方法2：offset函式+randbetween函式
在單元格e1輸入公式:" =offset($a$1,randbetween(0,9),)"
然後回車（即按“enter"鍵）
你會發現單元格e1為隨機從a1:a10提取的一個數。
將滑鼠放到單元格e1的右下角，等到滑鼠標誌變為小十字，按下滑鼠左鍵然後往下拖，你會發現拖出的資料都為隨機從a1:a10提取的一個數。
從一行資料中隨機提取一個數
"從一行資料中隨機提取一個數" 與 前面所述"從一列資料中隨機提取一個數"是類似的。
下面一張**分別用“indirect函式+randbetween函式”、“offset函式+randbetween函式”來隨機提取一行資料（單元格區域a26:j26)中的一個數。
其中，單元格b30的公式為
單元格e30的公式為“=offset($a$26,,randbetween(0,9))“
6樓：金華阿呆
用vb操控excel物件，比方說題庫裡有2000道題目，分成四大類，四個工作表。vb程式首先生成一個500以內的不重複隨機數，表示該類裡的任意一道題目，再通過操控excel物件找出該題目，得到20道題目，以此類推找出其他三類的各20道題目，湊成80道題。顯示在程式顯示區內。
7樓：vivian威
隨機抽取打算怎麼抽取呀？估計還是可以做的
8樓：匿名使用者
給你做了個簡單的示例，不用題庫，所有題隨機出。你試試看。
每更改一次單元格（雙擊任意單元格即可），內部資料會隨機變動一次。
vb如何做一個選擇題的考試系統？
9樓：匿名使用者
你好朋友，可以把原始檔給我發一份嗎？謝謝，[email protected]
10樓：匿名使用者
朋友，給我一份吧，提前謝謝了[email protected]
11樓：我在偷偷笑
**能發我麼?急用[email protected]
VB介面的小技巧，使用VB設計介面，如何讓介面更漂亮些
可以在user ocx1裡面新增一個timer，timer1.interval 50，然後在timer事件中寫 check1.value form2.check1.value 即可。timer是不斷重新整理使用者控制元件用的。interval的值可以根據實際情況調整。我覺得50還是比較合適。當use...
PS裡面如何反選選區
吟舞傾心 你在選擇一個選區之後，按ctrl加shift加i。 分享一米陽光 先用套索或選框 鋼筆等工具扣出你需要或不需要的部分，然後右鍵 反選。就ok了。這樣就能選出你需要或不需要的部分了。快捷鍵是shift ctrl i 希望你能成功。 胖枚子 先選中不需要的選區，然後按ctrl shift al...
matlab裡面如何對矩陣求積分
巧映菡倪賜 步驟如下 先輸入原始矩陣例如 a1 b212 34然後選擇一個2x2的區域 例如 a4 b5 直接輸入 minverse a1 b2 接著按ctrl shift別鬆手，再按回車鍵。逆矩陣 設a是數域上的一個n階方陣，若在相同數域上存在另一個n階矩陣b，使得 ab ba i。則我們稱b是a...