求学号抽号器可以设置只抽哪些学号，不抽哪些学号
您可以尝试此学生编号提取系统，该系统由我独立开发，Win8样式，支持许多提取模式，并具有多种个性化设置。我希望你喜欢它。
vb中使数值不可能出现某个数的抽号器
不知你要什么语言的，以下是VB6的程序片段：
Randomize
Do
x = Int（Rnd * 53） + 1
Loop While x = 48
MsgBox “抽号结果为“ & x
原理就是当抽号结果为48时就返回去再次抽号
delphi 7 怎么制作抽号器代码
var
numlist: tstringlist; //声明一个字符串列表用来存储号码，如果要抽多次并去掉已抽过的，那就声明为公共变量
procedure TForm1.FormCreate（Sender: TObject）;
begin
numlist := tstringlist.Create; //form创建的时候，创建号码列表
for i:= 1 to strtoint（Number） do //Number设定最大号码，并循环存入列表
begin
numlist.Add（inttostr（i））;
end;
end;
procedure TForm1.Button1Click（Sender: TObject）;
var
i: integer;
begin
Randomize;
i := Random（numlist.Count）; //在号码列表的数量范围内随机抽取
showmessage（’抽到的号码为：’ + numlist.Strings）; //显示抽号结果
numlist.Delete（i）; //删除已抽到的号码
end;
procedure TForm1.FormClose（Sender: TObject; var Action: TCloseAction）;
begin
numlist.Free; //关闭form的时候释放号码列表
end;
-抽号器
