?p??京.???n北u配???h传io/wh传 - 应用程序开发 - DMForum.NET 官方支持讨论区

浏览主题：?p??京.???n北u配???h传io/wh传

上一主题 | 下一主题 | 收藏主题

主题：?p??京.???n北u配???h传io/wh传

denguo

普通会员

等级：街头游民
发帖：53
金钱：180
经验：1431
性别：保密
状态：离线
注册：2006-8-6 12:54:00

小中大楼主

雙色球選號
[ 2006-8-24 20:38:00 ]

程序代码 (vbs)

procedure TForm1.Button4Click(Sender: TObject);

var i,j:integer;

begin

p:=p+1;

if P mod 5 = 0 then showmessage('^_^ 中了獎要分享哦!');

for j:=6 to 8 do begin

Randomize;

edit15.Text:=Format('%.2d',[random(32)+1]);

Randomize;

edit16.Text:=Format('%.2d',[random(32)+1]);

Randomize;

edit17.Text:=Format('%.2d',[random(32)+1]);

Randomize;

edit18.Text:=Format('%.2d',[random(32)+1]);

Randomize;

edit19.Text:=Format('%.2d',[random(32)+1]);

Randomize;

edit20.Text:=Format('%.2d',[random(32)+1]);

Randomize;

edit8.Text:=Format('%.2d',[random(15)+1]);

for i:=1 to 35 do begin

if (edit15.Text=edit16.Text) or

(edit15.Text=edit17.Text) or

(edit15.Text=edit18.Text) or

(edit15.Text=edit19.Text) or

(edit15.Text=edit20.Text) or

(edit16.Text=edit17.Text) or

(edit16.Text=edit18.Text) or

(edit16.Text=edit19.Text) or

(edit16.Text=edit20.Text) or

(edit17.Text=edit18.Text) or

(edit17.Text=edit19.Text) or

(edit17.Text=edit20.Text) or

(edit18.Text=edit19.Text) or

(edit18.Text=edit20.Text) or

(edit19.Text=edit20.Text) then

begin

Randomize;

edit15.Text:=Format('%.2d',[random(32)+1]);

Randomize;

edit16.Text:=Format('%.2d',[random(32)+1]);

Randomize;

edit17.Text:=Format('%.2d',[random(32)+1]);

Randomize;

edit18.Text:=Format('%.2d',[random(32)+1]);

Randomize;

edit19.Text:=Format('%.2d',[random(32)+1]);

Randomize;

edit20.Text:=Format('%.2d',[random(32)+1]);

Randomize;

edit8.Text:=Format('%.2d',[random(15)+1]);

end;

denguo

普通会员

等级：街头游民
发帖：53
金钱：180
经验：1431
性别：保密
状态：离线
注册：2006-8-6 12:54:00

小中大 2

RE：?p??京.???n北u配???h传io/wh传
[ 2006-8-24 20:39:00 ]

為什麼要這麼多Randomize和FOR??

---讓隨機更隨機...........:)

多啦A梦
(靓仔)

普通会员

等级：战士
发帖：179
金钱：660
经验：2552
性别：帅哥
状态：离线
注册：2006-7-29 23:38:00

小中大 3

RE：?p??京.???n北u配???h传io/wh传
[ 2006-8-27 13:28:00 ]

帮我抽几组号来，中了分你