可以试一下这款抽号软件，由本人自主开发，Win8风格，多种抽取模式，系统设置里面可以任意修改抽取范围。
希望你喜欢。
随机抽取数字VB编写一个抽奖小程序，要求每次抽奖的数字不重复DimnAsIntegerDima()PrivateSubCommand1_Click()Ifn=0Then'第一次点击时执行m=Val(Text1)ReDima(1Tom)Fori=1Tom'生成数组a，元素为1至m这m个数a(i)=iNextFori=1Tom-1'随机打乱数组a中元素r=Int(Rnd*m+1)tmp=a(i)a(i)=a(r)a(r)=tmpNextEndIfn=n+1'计数点击次数Ifn>Val(Text1)Then'次数超过指定次数，抽奖结束MsgBox"抽奖结束！"ExitSubEndIfText2=a(n)'从数组中抽出第n个数，由于数组中是随机排列，所以相当于生成一个随机数，并且不会重复EndSub49个数字中随机抽一个数字的概率是多少
