怎么让一个随机数生成5个50以内不重复的数啊，看了半天没搞懂，只能用笨方法
Randomize
Dim a= int((50- 10 + 1)*Rnd())+10
Dim b= int((50- 10 + 1)*Rnd())+10
Dim c= int((50- 10 + 1)*Rnd())+10
Dim d= int((50- 10 + 1)*Rnd())+10
Dim e= int((50- 10 + 1)*Rnd())+10