求源代码——前台用VB，后台用MS-SQL，主题是“题库系统”，看详细内容请进来！谢谢！

Question

select top 10 * from table order by newid()

Answer 1

declare @id int,@sql varchar(1000)
set @id=20
set @sql = 'select top   '+ cast( @id as char(10)) + ' *  from xt_ks  order by  newid() '

Answer 2

1，用MS－SQL做DATABASE，将题目编号并INSERT到题表里去。
2，然后用VB：
连接方式可用：ADO　OR　DAO均可。难点：生成一个随机数。以匹配表里的ID。
我想代码一下子说不清的。