捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
一个福利彩票选号小程序
关键字：福利彩票 选号 35选7 随机
来　自：原创
平　台：Win9x,Win2k/XP/NT,Win2003 下载所需：0 火柴
深浅度：初级 完成时间：2005/8/31
发布者：airwatering 发布时间：2005/9/1
编辑器：DELPHI7 语　　种：简体中文
分　类：数学 下载浏览：1537/15734
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名：
 密　码：
自动登陆(30天有效)
图片如果打不开，说明流量不够了，请稍候下载……
买彩票的时候想到写个小程序，只是随机做个35选7的工作。
Google
 
本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
　相关文章
一个福利彩票选号小程序
airwatering 2005/9/1 下+1537/浏+15735 评+3
体育彩票模拟摇号及分析器
zm888666 2005/8/31 下+1456/浏+11874 评+4
广东幸运七星彩票分析系统 (ADO+SQL)
poety 2004/2/3 下+1489/浏+11844 评+1
一个彩票号码组合筛选
poliuxijin 2003/9/5 下+1129/浏+14671 评+4
相关评论
共有评论3条 当前显示最后3条评论
fengjidong 2005/9/17 23:15:11
OK
dengwensheng_123 2006/1/7 9:28:58
这是一个让我头疼的问题,我对中国的福利事业这么支持,之乎每天都在为这个事业给弄点费用
但是就是得不到有什么好的回报.
980 2007/3/23 16:28:12
你这个东西和开玩笑一样，就是一堆查找随机数 ，你下次传啊 弄个运行的界面  大家一看 知道是否下载。这个是他的全部代码
unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Labels: Array [0..6] of Tlabel;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,k,a,b:integer;
  S,tmp:string;
begin
  Labels[0]:=Label1;
  Labels[1]:=Label2;
  Labels[2]:=Label3;
  Labels[3]:=Label4;
  Labels[4]:=Label5;
  Labels[5]:=Label6;
  Labels[6]:=Label7;
  Randomize;
    i:=1+Random(35);
    S:=intToStr(i);
    labels[0].Caption:=S;
  for j:=1 to 6 do
  begin
    i:=1+Random(35);
    S:=intToStr(i);
      for k:=0 to (j-1) do
      begin
        if S=Labels[k].Caption then
        begin
          i:=1+Random(35);
          S:=intToStr(i);
        end;
      end;
    Labels[j].Caption:=S;
  end;

  for a:=1 to 6 do
  begin
    for b:=0 to (a-1) do
    begin
      if StrToInt(labels[a].Caption)<StrToInt(Labels[b].Caption) then
      begin
        tmp:=Labels[a].Caption;
        Labels[a].Caption:=Labels[b].Caption;
        Labels[b].Caption:=tmp;
      end;
    end;
  end;
end;

end.
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表