如何用VB实现随机抽题

Question

用RND随机数实现
用RND运算，然后找到相应的题号，就OK了
最好加上Randomize

Answer 1

Private Sub Command1_Click()
Dim Numbers As Long
Randomize'这是Rnd的原型
'Int((upperbound - lowerbound + 1) * Rnd + lowerbound)'下面是随机产生1-100之间的整数Numbers = Int(100 * Rnd + 1)
Command1.Caption = NumbersEnd Sub

Answer 2

当然这里面应该控制在一次测试中不能有重复的题目出现，只要在Cooly(lazy)的代码中加入循环验证就行了！

Answer 3

没有题号可以做一个数组，内容是题目的唯一标识，随即取得数组的索引，然后得到相应的题目，另外，同意 biozafeng(水之痕) 的观点，要加入判断，不能有重复的题目出现。觉得有点象36选7的随机算法。呵呵。