抽獎平台源碼

① 求用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

沒能搞明白，最好在詳細一點，說不定我能幫你做出來

⑧ 額，求一個易語言抽獎的源碼，就是可以輸入一些人的名字，再隨機抽出單個，或者多個。

給分。。。。。。