彩票編程
『壹』 VB中福利彩票的編程代碼怎麼寫啊
在command1_click里寫
dim a(1 to 6)
randomize
do
for i=1 to 6
a(i)=fix(rnd*(33)) +1
next i
loop while a(1)>a(2)>a(3)>a(4)>a(5)>a(6)
純畝這是雙色球慧御紅球的抽獎方式，最後輸出數組a就行了做碧森，其他的彩票同理。
『貳』 C語言 實現模擬彩票的程序設計：隨機產生7個數字（用C語言隨機函數產生，[1,33]區間，七個數互
使用結構體鏈表模擬彩票的搖獎機，來保證每次隨機都是不同的數字。
數組也可以模擬，但是刪除元素比較麻煩，用鏈表更快捷。
定義數組指針，動態分配內存。
#include<stdio.h>
#include<stdlib.h>
#include<time.h>
typedefstructList{
intnumber;
structList*next;
}ArrayList;
ArrayList*createList(int);//創建鏈表，參數是鏈表的節點數
voidfreeList(ArrayList*);//循環釋放所有節點的內存
intdeleteNode(ArrayList*,int);//刪除節點，返回節點的數據
main(){
//動態創建內存
int*numbers=(int*)calloc(7,sizeof(int));
int*inNumbers=(int*)calloc(7,sizeof(int));
//動態創建數組鏈表存放1-33個編號
ArrayList*balls=createList(33);
inti;
srand((unsigned)time(NULL));
printf("請輸入7個不同的數字（1-33）： ");
for(i=0;i<7;i++){
*(numbers+i)=deleteNode(balls,rand()%(33-i));
scanf("%d",inNumbers+i);
}
printf("隨機產生的7個數字是： ");
for(i=0;i<7;i++){
printf("%d",*(numbers+i));
}
printf(" 相同的數字： ");
//查找
intj;
for(i=0;i<7;i++){
for(j=0;j<7;j++){
if(*(numbers+i)==*(inNumbers+j)){
printf("%d",*(numbers+i));
break;
}
}
}
//釋放內存
free(numbers);
free(inNumbers);
freeList(balls);
}
ArrayList*createList(intn){
ArrayList*head=NULL,*end=NULL,*node=NULL;
end=head=(ArrayList*)malloc(sizeof(ArrayList));//head在刪除和插入節點時有用。不能刪除head，也不能插入到head前面
inti;
for(i=1;i<=n;i++){
node=(ArrayList*)malloc(sizeof(ArrayList));
node->number=i;
end->next=node;
end=node;
}
end->next=NULL;
returnhead;
}
voidfreeList(ArrayList*head){
ArrayList*node=head;
while(head!=NULL){
head=head->next;
free(node);
node=head;
}
}
intdeleteNode(ArrayList*head,intindex){//index節點索引(0-32),返回被刪除的球的編號
ArrayList*node=head->next,*temp=head;
inti=0,number;
while(i<index&&node!=NULL){
temp=node;
node=node->next;
i++;
}
if(node!=NULL){
number=node->number;
temp->next=node->next;
free(node);
}
returnnumber;
}
運行結果
『叄』 一道關於樂透獎兌獎演算法的C語言編程題
##include "stdio.h"
#include <iostream.h>
#include <stdlib.h>
#include <time.h>
void main()
{
int awardnum[6],yournum[6],sum=0,special,i,j;
bool mark=false;
srand(time(NULL));
for(i=0;i<6;i++)
{
awardnum[i]=rand()%42;
for(j=0;j<i;j++)
{
while(awardnum[i]==awardnum[j]) awardnum[i]=rand()%42;//這里確保搖出的獎沒有重復號
}
cout<<awardnum[i]<<endl;//這句話用作調試
}
special=rand()%42;//特殊號碼這里沒有確保和前面6個數不一樣，這樣可能出現沒有二等獎的情況
cout<<"特殊號碼為"<<special<<endl; //這里也用作調試
cout<<"請輸入6個不重復的彩票號碼"<<endl;
for(i=0;i<6;i++) cin>>yournum[i];
for (i=0;i<6;i++)
{
int temp=sum;
for (j=0;j<6;j++)
{
if (yournum[i]==awardnum[j]) sum++;
}
if(temp==sum)
{
if(yournum[i]==special) mark=true;
}
}
if(sum==6) {cout<<"恭喜，你中了特等獎！"<<endl; return;};
if(sum==5 && mark){cout<<"恭喜，你中了二等獎！"<<endl; return;};
if(sum==5 && !mark){cout<<"恭喜，你中了三等獎！"<<endl; return;};
if(sum==4){cout<<"恭喜，你中了四等獎！"<<endl; return;};
if(sum==3){cout<<"恭喜，你中了五等獎！"<<endl; return;};
if(sum<3){cout<<"對不起，你沒有中獎！"<<endl; return;};
}
//看看是不是你想要的！在Vc6.0上調試通過
『肆』 彩票選號工具有機選嗎
都把滬東娛樂總裁兼黃金王老五左輝全力追求文娛傳媒單身女強人邵英齊的消息當頭條來發了。」
車俞入 : bb3602 。 C Ο Μ
我就買過雙色球和大樂透，沒見過表，從來都是機選。如果你有自己的號碼，可以用紙先寫好，或者你背過了直接告訴老闆。自選和機選可以一起，先機選還是先自選隨你。陸納激一般機選完了老闆會問你看不看早襪，我一般是不看，這就和考試一樣，我一般模稜兩可的填上了就不改了，萬一改錯了就虧了。如果你是茄搭打算守號，那麼你第二次去的時候可以拿著之前的號碼彩票，告訴老闆照這個打。彩票，也稱獎券，以抽簽給獎方式進行籌款，並非是賭博。彩票的英文名為「lottery ticket」。《辭海》（1999年版）對彩票是這樣解釋的：「俗稱『白鴿票』。以抽簽給獎方式進行籌款或斂財所發行的憑證」。《現代漢語詞典》對彩票和獎券分別是這樣解釋的：「彩票，獎券的通稱。」「獎券，一種證券，上面編有號碼，按票面價格出售。開獎後，持有中獎號碼獎券的，可按規定領獎。」 彩票是一種以籌集資金為目的發行的，印有號碼、圖形、文字、面值的，由購買人自願按一定規則購買並確定是否獲取獎勵的憑證。2020年9月，據財政部公布數據顯示，2019年全國發行銷售彩票超過4200億元。其中，170多億元中央專項彩票公益金被分配支持包括教育、醫療、養老、體育等多個領域16個大項的公益項目。
『伍』 vb編程，生成N組22選5的彩票號碼組（每組有不同的5個數字組成，且每個數碼只能取1～22之間的數）
1、首先打開「Microsoft Visual Basic 6.0 中文版」，選擇「標准 EXE」，並單擊「打開」按鈕，進入軟體界面。
『陸』 編寫買彩票程序。編程讓計算機隨機產生7個1~30的整數,要求每次產生的7
祝冊送宋rm比的 jjj.ee/rme7
static void Main(string[] args)
{
string i = null;
do
{
Console.Write("請輸入整數（范圍1~100）\n要退請輸入0否則輸入1");
i = Console.ReadLine();
if (i.Trim().Equals("0"))
{
return;
}
} while (!i.Trim().Equals("1"));
start:
Random ra = new Random();
int rndInt = ra.Next(1, 100);
int input = 0;
do
{
Console.Write("輸入猜數值：");
i = Console.ReadLine();
if (!int.TryParse(i, out input))
{
continue;
}
if (input > rndInt)
{
Console.Write("猜\n\n");
}
else if (input < rndInt)
{
Console.Write("猜\n\n");
}
} while (input != rndInt);
Console.Write("恭喜猜\n\n");
do
{
Console.Write("若繼續猜測輸入Y,若退則輸入N!\n請輸入：");
i = Console.ReadLine();
if (i.Trim().Equals("n", StringComparison.OrdinalIgnoreCase))
{
return;
}
if (i.Trim().Equals("y", StringComparison.OrdinalIgnoreCase))
{
goto start;
}
} while (!i.Trim().Equals("1"));
}
『柒』 vb編寫彩票選號器的問題，請高手進來
Private Sub Command1_Click()Dim i, a(34), b(7)
Randomize: Cls
For i = 1 To 7
b(i) = Int(Rnd * 34 + 1)
If a(b(i)) Then i = i - 1 Else a(b(i)) = 1
Next
Print "34 選 7組 福利彩票系統,中獎號碼友豎寬:"
For i = 1 To 7
Print b(i)
Next
End Sub
請不纖猜要發違好亮規廣告，是違法行為
『捌』 編程問題：模擬彩票功能，在36個數字（1－－36）中隨機挑選7個數字輸出
#include<stdio.h> #include<stdlib.h> #include<time.h> void main() { int m,i,j,sum,a[9]; for(i=1;i<=7;i++) a[i]=0; i=1; srand(time(NULL));//設置時間種子，保證每次產生的隨機數不同 while(i<=7) { m=rand()%36;//產生0-36的隨機數 sum=0; if(m!=0) { for(j=1;j<=i;j++) { if(a[j]!=m) sum+=1; } if(sum==i) { a[i]=m; i=i+1; } } } for(i=1;i<=7;i++) printf("%d\n",a[i]); } 找不到TC2.0，所以該程序是在VC環境中編譯的，邏輯過程是正確的，如果你一定要用TC環境，那可能要改時間種子和隨機函數了，不過這是小問題，上網搜搜就有了：）
『玖』 如何利用人工智慧AI計算彩票人工智慧真的可以計算彩票嗎
如何利用人工智慧AI計算彩票？人工智慧真的可以計算彩票嗎？
實際這個問題沒有想像中的那麼復雜，把問題梳理一下就明白了，實際別管什麼人工智慧，實際就是計算機的一種語言，我們簡單一點就稱為計算機，再說通俗一點家用電腦，現在一兩千的台式電腦都可以，如果只是做一個統計分析，那完全是沒有問題，就是普通家用計算機性不不好的，現在有兩個吉的內存，代碼稍微有一點優化的達到每秒上億次的分析都沒有問題。所以我們普通的家用電腦就完全可以對彩票號碼做統計和分析，甚至電子表格都能做簡單的分析，但是如果說計算出彩票的號碼，那不可能？再過五十年都不可能。為什麼？
因為50或者100是彩民選擇的號碼，後面的1000是開獎號碼雖然只有一注但是它有1000種可能，至少在彩民投入時這一個開獎號碼是有1000個可能的。讓50或者100等於1000有可能嗎？不是說完全沒有可能，而是彩民選擇多少號碼就有多大的可能，但是等於1000的效果是不可能的。再說明白一點彩民不是計算，而是想在原有已經定義好的基礎上提高中獎率，別說彩民了就是行業都沒有辦法在概率上點到便宜，行業每期的開獎號碼必須是1000注數據以內的號碼，並且每期只有一個開獎號碼，所以千分之一的概率對於行業來說也是沒法改變的，所以行業的收入、店面銷售提成以及公益金都是來自於反獎率不足的部分，並不是打概率上的穿插。再換種思考方式，如果說彩民可以選擇800注號碼百分之百的中獎，那麼行業肯定有一種方法讓彩民選擇1200注號碼中不了獎，否則也不公平。
彩民的目的，很多人參與彩票是想為了中獎，沒有毛病參與彩票就是想中獎的，但是真的只是想中獎那麼簡單嗎？如果只是想中獎那也簡單，就說3D總有1000注數據選擇1000注號碼肯定是百分之百的中獎，那彩民為什麼不這么做呢？因為這樣要虧本。因為彩票的返獎率只有50%左右，所以彩民就算保本最多也只能選擇一半的號碼，而彩票追求的並不只是保本，還想有收益，那就只能選擇更少的號碼，說白了彩民最終的目的是想收益。
哪怕是天天中獎如果是虧本的話肯定也不是彩民希望的，如果有收益或者有很好的收益，至於是三天中一次獎還是五天中一次獎，彩民並不是特別在意，所以有收益才是彩民最終的目標，而收益和號碼有多大的關系，表面看起來一個號碼可以完美解決問題，但是在號碼概率上別說彩民了就是行業都沒有便宜可以占。彩民虧本的根本原因是在返獎率上，返獎率不足才是彩民虧本的關鍵，返獎率不足的問題我們沒有必要在號碼上一味糾結吧！如果這個不好理解，那再簡單一點，還是拿3D舉例，還是一千注號碼，還是兩元一點，所有的規則都不變，唯一改變的是獎金不是1040元，換成2005元多出五塊錢的獎金，相當於返獎率是100.25%，超出百分之零點二五的返獎率，別小看這百分之零點二五，如果行業說可以讓彩民必定虧本，那麼彩民會相信嗎？
大不了全包號碼還能賺五塊錢呢？不管行業怎麼造假如何操作，只要開出1000注數據以內的號碼，彩民都必定中獎，哪怕一期開出兩注號碼來彩民都必定中獎，可以說只多出這百分之零點二五就可以讓行業無計可施，那麼現在彩票的返獎率只有50%左右，足足少了近一半，彩民是如何佔到便宜的。所以彩票的根本問題是在返獎率上。既然是返獎率不足造成的原因，我們應該從返獎率上著手解決問題才會，拿計算機就能計算出號碼的結果嗎？
最後，提醒所有的朋友，對於彩票沒有參與的不參與最好……參與就一定要理性不盲目。
『拾』 vb彩票編程
Public Function SumA(A as long,B as long,C) as long()
dim suma1
SumA1=clng(A)+clng(B)+clng(C)
DIM X()
.......
suma=x
End Function
請告訴耐笑念我你寫SumA要做什麼事情，三個數相加？還是昌困什升豎么？