抽奖平台源码

① 求用VB编的一个抽奖系统，有源代码的，最好有解释。从49个人中抽

Dim p1 As Integer, p2 As Integer, p3 As Integer

'产生一等奖号码
p1 = Rnd * 48 + 0.5 + 1

'产生二等奖号码
Do
p2 = Rnd * 48 + 0.5 + 1
Loop Until p2 <> p1

'产生三等奖号码
Do
p3 = Rnd * 48 + 0.5 + 1
Loop Until p3 <> p1 And p3 <> p2

MsgBox "一等奖：" & p1 & vbCrLf & _
"二等奖：" & p2 & vbCrLf & _
"三等奖：" & p3 & vbCrLf, vbInformation

② 用c语言编写一个简易的抽奖程序，

用data.txt文件保存以下内容：

13725528132 李桂荣
13725528131 李二来
13725528133 张荣刚
13725528130 荣南
13725528137 王三
13725528138 吴立
13725528139 郭德纲
13725528140 周星驰
13725528141 张曼玉
13725528142 张艺谋
13725528152 秦香莲
13725528162 潘金莲
13725528172 李大嘴
13725528182 展堂

//源代码如下
#include <stdio.h>
#include <stdlib.h>
#include <time.h>

#define MAX_NUM 9999

//定义保存人名和电话的数据结构
struct Person
{
char name[20];
char telno[15];
char award;
};

int num = 0; //统计人数
FILE *fp; //文件指针
Person persons[MAX_NUM]; //定义数组

int awarder_1[1] = {-1}; //一等奖
int awarder_2[2] = {-1, -1}; //二等奖
int awarder_3[5] = {-1, -1, -1, -1, -1};//三等奖

//读取文件
void readdata()
{
int i = 0; //数组下标
Person person;
//文件打开
fp = fopen("data.txt", "r");
if (fp == NULL)
{
printf("打开文件data.txt失败!\n");
return;
}
//当文件不为空
while (!feof(fp))
{
num ++;
fscanf(fp, "%s", person.telno);
fscanf(fp, "%s", person.name);
person.award = 'F';
persons[i++] = person;
}
}

//初始化标识
void init()
{
for(int i = 0; i < num; i++)
{
persons[i].award = 'F';
}
}

//显示单个中奖信息
void info( int i)
{
printf("手机号码: %s 姓名: %s\n", persons[i].telno, persons[i].name);
}

void main()
{
char again = 'Y';
//读取文件
readdata();

printf("简单抽奖程序\n");
srand((long)time(0));

while(again == 'Y' || again == 'y')
{
//初始化标识
init();

printf("\n开始抽第一等奖(1名)，按任意键开始...\n");
getchar();
awarder_1[0] = abs(rand() % num);
while (persons[awarder_1[0]].award == 'T')
{
awarder_1[0] = rand() % num;
}
persons[awarder_1[0]].award = 'T';

info(awarder_1[0]);

printf("\n开始抽第二等奖(2名)\n");
for (int i = 0; i < 2; i++)
{
printf("\n第%d个二等奖,按任意键开始...\n", i+1);
getchar();
awarder_2[i] = rand() % num;
while (persons[awarder_2[i]].award == 'T')
{
awarder_2[i] = rand() % num;
}
persons[awarder_2[i]].award = 'T';
info(awarder_2[i]);
}

printf("\n\n开始抽第三等奖(5名)\n");
for (i = 0; i < 5; i++)
{
printf("\n第%d个三等奖,按任意键开始...\n", i + 1);
getchar();

awarder_3[i] = rand() % num;
while (persons[awarder_3[i]].award == 'T')
{
awarder_3[i] = rand() % num;
}
persons[awarder_3[i]].award = 'T';
info(awarder_3[i]);
}

printf("\n是否重新开始抽奖?(Y or N)...\n");
again = getchar();
}

getchar();
return;
}

③ 易语言抽奖源码

置随机数种子()
.局部变量 结果
赋值(结果,取随机数(1,100))
.局部变量 msg
.如果真(小于(结果,50))'三等奖50
赋值(msg,3)
.如果真结束
.如果真(大于(结果,50) 且 小于(结果,75))'2等奖25
赋值(msg,2)
.如果真结束
.如果真(大于(结果,75) 且 小于(结果,85))'2等奖10
赋值(msg,1)
.如果真结束
信息框(msg)

④ 谁有 九宫格抽奖的源码 注意:是可以设置抽奖概率的

• 你是什么用途？

  
  

• a.如果抽奖内容价值比较大，得考虑到算法的安全性，保证绝对的概率，也就是能彩票一样，如果是100W的大奖，不能重复出现好几次。计算机的随机概率是不稳定的，所以需要一套完整的算法来保持概率，进行矫正和干预。上面说道的是随机概率。

• b.如果是奖池形的，就需要用维护奖池的算法来实现，比如1等奖10个二等奖100个三等奖1000个，10W的不中奖，这就形成了你的奖池，你每次抽奖是从这个池中取到一个号码，为了维护中奖率，你需要再拿走一个号码以后再给奖池补充一个新的号码。

• c.总之这是一个非常复杂的过程，建议你使用国家的开奖中心的数据来维护你自己的抽奖内容，抽奖中心给的内容算法是完整的，你取到她们算出的结果当作你们计算的依据。

  
  

• 如果是简单实现，不考虑后果的话，你可以去前端源码下载站就能轻松找到源码

  
  

• 以上是我个人观点，如果错误，敬请原谅。

  
  

• 这个拍版好难用

⑤ 易语言抽奖源码

用取随机数就行了嘛！使用时钟一直刷，然后点击停止就OK了！得到什么数就是什么数了！如果你想要它自动停止，也可以使用时钟！

⑥ 为什么我抽奖总是抽不中

为何你抽奖总不中？！揭秘抽奖黑幕，做个没黑幕的抽奖！

参加过非常多的抽奖活动，奖品也是一个比一个诱人!但是自己从来都没有中过!有些小伙伴会觉得是自己运气不好，但真的是这样吗?凭什么别人无缘无故送个几万块钱给你?真的是为了人气?真的是钱多的没地方花?

今天我们一起来看看抽奖黑幕，这才是你真正抽不中的原因

参与方式：关注公众号转发朋友圈至开奖日参与抽奖，让更多人知道这些抽奖黑幕！中奖的小伙伴记得添加小智来兑奖啊

今天这个抽奖黑幕你了解了吗？赶快参与抽奖转发给身边小伙伴们，让更多人知道这个黑幕

⑦ 易语言随机抽奖源码 6个按钮 图片数据有 图片1和图片2 和图片3 编辑框1的内容是100

没能搞明白，最好在详细一点，说不定我能帮你做出来

⑧ 额，求一个易语言抽奖的源码，就是可以输入一些人的名字，再随机抽出单个，或者多个。

给分。。。。。。