vb6做一个抽题软件，怎样每点一次抽题按钮就随机不重复抽出一道题

vb6做一个抽题软件，怎样每点一次抽题按钮就随机不重复抽出一道题直到抽完题库里的题，主要是怎样生成一个随机不重复的数，另外，要是加个初始化的按钮要怎么弄，求代码！

使用List（问题和答案分别储存）：

'新建两个列表框：List1、List2
Dim Numb As Integer                 '题目号

Private Sub Command1_Click()        '初始化按钮（这部分代码可以放到Form_Load中）
List1.Clear: List2.Clear            '清空列表
'把题目输入到列表框
Open "D:\题目.txt" For Input As #1
Do Until EOF(1)
    Input #1, timu
    List1.AddItem timu
Loop
'把答案输入到列表框
Open "D:\答案.txt" For Input As #2
Do Until EOF(2)
    Input #2, daan
    List2.AddItem daan
Loop

Close
End Sub

Private Sub Command2_Click()
Randomize                           '初始化随机数种子。重点：如不初始化，随机函数每次都会出来相同数字
Numb = Int(Rnd * List1.ListCount)   '抽取题号
Label1 = List1.List(Numb)           'Label1显示题目
Label2 = List2.List(Numb)           'label2预读答案
Label2.Visible = False              '隐藏答案
List1.RemoveItem (Numb)             '移除已抽过的题目
End Sub

Private Sub Command3_Click()
Label2.Visible = True               '显示答案
End Sub

如果问题和答案共同储存（题目在前，答案在后），则Command1_Click替换成：

Private Sub Command1_Click()        '初始化按钮（这部分代码可以放到Form_Load中）
List1.Clear: List2.Clear            '清空列表
'把题目和答案输入到列表框
Open "D:\题目和答案.txt" For Input As #1
Do Until EOF(1)
    Input #1, timu
    Input #1, daan
    List1.AddItem timu
    List2.AddItem daan
Loop

Close
End Sub

追问

我的题库是一个excel表格，可以查到一共有多少行，也就是多少道题目，这样返回一个总题数，比如说100，然后我想抽取1-100内随机的一个不重复的数字，这样通过这个数字就可以读取题库里相应行数的题目和答案，在抽到第100题以后，再抽的时候有个提示，题库已经没有题之类的。我现在的问题就是 1-n 内随机不重复抽取数字，并且在抽完n次之后有个提示，这部分不会弄，麻烦你再给看看，谢谢了！

你的方法是要把题库的内容存到list 里是吗？如果题库很大的话，会不会对速度有影响？

追答

可以不用Excel，直接把表格中的内容复制到txt中，这样比较简便。用Excel或数据库速度也不会很快。

在Command2_Click前面加上【If List1.ListCount = 0 Then MsgBox "您已抽完题目。": End
】，便可以在抽完后给出提示。另外，上次发的代码漏了【List2.RemoveItem (Numb)】这一句，下面已经补上。

Private Sub Command2_Click()
If List1.ListCount = 0 Then MsgBox "您已抽完题目。": End
Randomize                           '初始化随机数种子。重点：如不初始化，随机函数每次都会出来相同数字
Numb = Int(Rnd * List1.ListCount)   '抽取题号
Label1 = List1.List(Numb)           'Label1显示题目
Label2 = List2.List(Numb)           'label2预读答案
Label2.Visible = False              '隐藏答案
List1.RemoveItem (Numb)             '移除已抽过的题目
List2.RemoveItem (Numb)             '移除已显示过的答案
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/27ssf7m7p.html