关于随机取题函数的问题

Question

想做一个自动取题的系统软件，题库已经存在，想点击菜单命令就可以随机取题，问如何实现！！

Answer 1

dim XX(要出题数) as integer
for i=1 to 要出题数
re:
xx(i)=int(rnd*总题数）
for k=1 to i-1
if xx(k)=xx(i) then goto re
检查是否重复出题
next
next 
列出题目

Answer 2

Private Sub prvRandSort()  Dim ycTmp As Integer '用于交换时临时存储
  Dim yck As Integer
  Dim ycRnd As Integer '保存产生的随机数
  
  Dim ycMax As Integer, ycMin As Integer
  
  Dim mysz(0 To 999) As String '存放试题或试题标号,假设题库中有1000题
  
  ycMin = 0
  ycMax = 99  '随机从中获取100题
  For yck = 0 To 99
    ycMin = yck
    '产生一个介于ycMin及ycMax中的整数
    ycRnd = Int((ycMax - ycMin) * Rnd + ycMin)
    
    '将该位数与当前数交换
    ycTmp = mysz(yck)
    mysz(yck) = mysz(ycRnd)
    mysz(ycRnd) = ycTmp
    
    
  Next
  'mysz数组中前100个即为抽出的题目.
End Sub

Answer 3

select top 100 * from 题目 order by newid()

Answer 4

不好意思
前面的代码有误，
初始值：ycMax=999

Answer 5

dim i as long
    Dim LngAllNum As Long
    Dim GetNum As Long
    LngAllNum = 99  '题目总数
    GetNum = 10  '取得题目数
    Dim i As Long
    For i = 1 To GetNum
       Randomize
       GetNum = CLng(Rnd * LngAllNum)
       Me.Print GetNum
    Next

Answer 6

yoki(小马哥) 的，简单明了。