Question

vb求一个按钮随机出现题目的代码（如一题库有100道题，只让随机出10道）

Answer 1

假设100道题存放与表tm,字段“题号”值分别为1至100，
sub gettm(n as integer,nn as integer) ‘变量n为需要取的题目数,nn为题库题数
dim m as integer
dim an(n)
dim h1 as integer
Randomize '初始化随机数
m=0
do while m<=n
h1 = Int(Rnd * nn) + 1 '随机获取一个题号
dim i as integer
for i =1 to n ‘此循环检测是否重复生成题号
if h1=an(i) then
exit for
elseif i=n then
m=m+1
an(m+1)=h1
end if
next '===========================
loop
'''=======此时an存放n个题目的题号，此题号是随机采集的
'再根据这些题号从数据库提取题目...代码略...
end sub

Answer 2

直接用随机数去即可，随机数种子使用时间