如何解决Excel从题库中随机抽取的题目不重复呢？
1 先将所有不重复的题目依次编号
2 再将所有编号放在a列依次排列
3 将与a列中有编号的单元格相邻的b列单元格都加上随机函数rand
4 点击b列中任意一个有数值的单元格，再点-排序
5 现在只要在a列中选择需要的前n个题目编号即可
回答下面程序题,生成20个200到300之间的随机整数，输出其中能被5整除的得数并求出它们的和，请填空
Dim s%, i%
s = 0
For i = 1 To 20
Randomize
x = Int(Rnd * 201 + 100)
If x Mod 5 = 0 Then
Debug.Print x
s = s + x
End If
Next i
Debug.Print "sum ="; s
End Sub