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輸入公式:" =indirect("a"&randbetween(1,10)) "
然後回車（即按“enter"鍵）
你會發現單元格c1為隨機從a1:a10提取的一個數。
將滑鼠放到單元格c1的右下角，等到滑鼠標誌變為小十字，按下滑鼠左鍵然後往下拖，你會發現拖出的資料都為隨機從a1:a10提取的一個數。
但是需要注意的是：randbetween函式是易失性函式，你每更改任意一個單元格，公式“=indirect("a"&randbetween(1,10)) "的值都會發生變化。
如果想避免這種情況，你可以複製公式區域，然後數值貼上在同一區域。
方法2：offset函式+randbetween函式
在單元格e1輸入公式:" =offset($a$1,randbetween(0,9),)"
然後回車（即按“enter"鍵）
你會發現單元格e1為隨機從a1:a10提取的一個數。
將滑鼠放到單元格e1的右下角，等到滑鼠標誌變為小十字，按下滑鼠左鍵然後往下拖，你會發現拖出的資料都為隨機從a1:a10提取的一個數。
從一行資料中隨機提取一個數
"從一行資料中隨機提取一個數" 與 前面所述"從一列資料中隨機提取一個數"是類似的。
下面一張**分別用“indirect函式+randbetween函式”、“offset函式+randbetween函式”來隨機提取一行資料（單元格區域a26:j26)中的一個數。
其中，單元格b30的公式為“ =indirect("r26c"&randbetween(1,10),0) “
單元格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]
紅色警戒裡面如何使部隊升級，紅警裡面如何強進自己的兵營，然後可以讓自己兵出來後直接升級
吃箱子，或者造訓練中心 中國的 殺的人到一定數量就能升級了，先一勳在三勳，或者吃箱子，或者讓間諜去兵工廠裡，接下來出來的兵就是一勳，去車廠接下來出來的車就是一勳，如果你玩的應該是紅警2,你可以先把自己的兵營和戰車工廠打掉一點血.然後讓工程師在前,間諜在後,一起選擇，先點一下其他地方再點兵營.好像也可...
裡面如何畫下劃線，word裡面如何畫下劃線？
英文輸入模式下 shift 大雁待南飛 在格式，字型，有下劃線 格式選單下就有下劃線命令了 shift 空格 就行了 怎樣在word中畫下劃線,可以 上打字,而且線不會變化? 收拾收拾嗯嗯 word封面下劃線如何製作，輸入文字仍然對齊 注意在英文狀態下，連續輸三個減號 然後回車就是一條直線了 可以在...
altiumdesigner裡面如何找想要的元件翱
altium designer的庫都是按公司的名字分類的。你若要找某一個晶片，直接查查它是哪個公司的晶片，直接把該公司對應的元件庫，加入導航欄，就可以順利找到了。例如這個max232是美信公司的晶片，我截個圖你就懂了。一些基本的原件，在這樣的2個庫了。太麻煩了 懂得 自己去安裝相應公司整合庫 右鍵 ...