Power by DMForum.NET!
RSS | ATOM | WAP
DMForum.NET 官方支持讨论区 > 技术区 > 应用程序开发

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

主题:?p??京.???n北u配???h传io/wh传
denguo
普通会员
2级
等级:街头游民
发帖: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;
        
end;
      
end;
end;
denguo
普通会员
2级
等级:街头游民
发帖:53
金钱:180
经验:1431
性别:保密
状态:离线
注册:2006-8-6 12:54:00
RE:?p??京.???n北u配???h传io/wh传  
[ 2006-8-24 20:39:00 ]
為什麼要這麼多Randomize和FOR??

---讓隨機更隨機...........:)
多啦A梦
(靓仔)
普通会员
5级
等级:战士
发帖:179
金钱:660
经验:2552
性别:帅哥
状态:离线
注册:2006-7-29 23:38:00
RE:?p??京.???n北u配???h传io/wh传  
[ 2006-8-27 13:28:00 ]
帮我抽几组号来,中了分你

回到顶部
Powered by DMForum.NET  1.4 Beta . URIMAP enabled. DEBUG enabled.
Copyright © 2003-2006 Devms.Com. All rights reserved.