當前位置：首頁 » APP程序 » 抽獎小程序代碼

抽獎小程序代碼

發布時間: 2021-03-17 04:41:34

❶ VB編寫一個抽獎小程序，要求每次抽獎的數字不重復

DimnAsInteger
Dima()
PrivateSubCommand1_Click()
Ifn=0Then'第一次點擊時執行
m=Val(Text1)
ReDima(1Tom)
Fori=1Tom'生成數組a，元素為至m這m個數
a(i)=i
Next
Fori=1Tom-1'隨機打亂數組a中元素
r=Int(Rnd*m+1)
tmp=a(i)
a(i)=a(r)
a(r)=tmp
Next
EndIf
n=n+1'計數點擊次數
Ifn>Val(Text1)Then'次數超過指定次數，抽獎結束
MsgBox"抽獎結束！"
ExitSub
EndIf
Text2=a(n)'從數組中抽出第n個數，由於數組中是隨機排列，所以相當於生成一個隨機數，並且不會重復
EndSub

❷ VB中可用的抽獎程序的代碼

我知道你的意思：是不是每組數字來回滾動，隨即組合。
停止時，組合成一組數字，並以這組數字作為中獎號碼。
建立一個按鈕：command1
private
sub
command1_click()
dim
a
as
integer
dim
b
as
integer
dim
c
as
integer
'a
b
c
為隨機變數
dim
abc
as
string
'abc為組合號碼
a
=
int(rnd
*
9)
+
1
b
=
int(rnd
*
9)
+
1
c
=
int(rnd
*
9)
+
1
abc=a
&
b
&
c
'組合中獎號碼
'假設3到10等獎為003,004......,010
if
a
=
001
then
msgbox
"你中了1等獎!",
vbokonly,
"系統提示"
end
if
if
a
=
002
then
msgbox
"你中了2等獎!",
vbokonly,
"系統提示"
end
if
......
......
if
a
=
010
then
msgbox
"你中了10等獎!",
vbokonly,
"系統提示"
end
if
end
sub
ok...

❸ 求一個抽獎程序代碼

Lelelucky抽獎程序就OK，你說的「不用資料庫，中獎之後直接填郵箱（或者其他資料）就可以」什麼意思，填寫的資料不用保存的么，只是做個假像？那你直接做個FlasH動畫就可以了啊

❹ 哪位大神有Visual Basic抽獎小程序的代碼

我有excel vba寫的，不知道怎麼發給你excel文件。

❺ 用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;
}

❻ 微信小程序，通過搖一搖實現大轉盤抽獎的效果代碼怎麼寫

建議你還是不要自己寫，可以通過直接用插件實現。
自己寫會存在很多問題，會出現bug的

❼ java抽獎小程序源碼

import java.util.Scanner;

public class ChouJiang {

public static void main(String[] args) {
System.out.println("我行我素購物管理系統>幸運抽獎");
System.out.println("");
System.out.println("");
Scanner input=new Scanner(System.in);
System.out.print("請輸入四位會員號：");
int hyh=input.nextInt();
int q,b,s,g,sum;
q=hyh/1000;
b=hyh/100%10;
s=hyh/10%10;
g=hyh%10;
sum=q+b+s+g;
if(sum>=23)
{
System.out.println(hyh+"是幸運客戶，獲精美MP3一台！");
}else
{
System.out.println(hyh+"謝謝您的支持！");
}
}

}

❽ 求java抽獎機的源程序代碼（要全的）

用圖形界面實現的：
GoodLucky.java文件
內容如下：
import java.awt.*;
import java.awt.event.*;
import javax.swing.*;

public class GoodLucky extends JFrame implements ActionListener{

JTextField tf = new JTextField();
JButton b1 = new JButton("開始");
JButton b2 = new JButton("停止");
boolean isGo = false;
public GoodLucky(){
b1.setActionCommand("start");
JPanel p = new JPanel();
p.add(b1);
p.add(b2);

b1.addActionListener(this);
b2.addActionListener(this);
b2.setEnabled(false);

this.getContentPane().add(tf,"North");
this.getContentPane().add(p,"South");
this.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
this.setSize(300,200);
this.setLocation(300,300);
Cursor cu = new Cursor(Cursor.HAND_CURSOR);
this.setCursor(cu);
this.setVisible(true);
tf.setText("welcome you! ");
this.go();

}

public void go(){
while(true){
if(isGo == true){
String s = "";
for(int j = 1; j <= 7;j++){
int i = (int)(Math.random() * 33) + 1;
if(i < 10){
s = s + " 0" + i;
}else{
s = s + " " + i;
}

}
tf.setText(s);
}

try{
Thread.sleep(10);
}catch(java.lang.InterruptedException e){
e.printStackTrace();
}

}

}

public void actionPerformed(ActionEvent e){
String s = e.getActionCommand();
if(s.equals("start")){
isGo = true;
b1.setEnabled(false);
b2.setEnabled(true);
}else{
isGo = false;
b2.setEnabled(false);
b1.setEnabled(true);
}

}

public static void main(String[] args){
new GoodLucky();
}
}

❾ java抽獎程序

我給你個比較簡單的，，但是需要按照你的要求進行稍微的修改。。然後在main方法中去執行就可以了：
public class GoodLuck {

int custNo;
int i=1;
String answer;
String awardName;
public void LuckNo(){

Scanner input=new Scanner(System.in);
System.out.println("\n我行我素購物管理系統 > 幸運抽獎\n");

do{
// 需要的話請把隨機數調整成你想要的范圍（我這個是為了測試方便寫的1
（～3的隨機數，根據你的需要把下面的3換成你想要的數字就行了）
int num=(int)(Math.random()*3+1);
System.out.print("請輸入會員卡號(4位整數)：");
custNo=input.nextInt();
//百位數與隨機數相同的為幸運者
int =custNo/100%10;
while(i==1){
if(custNo>=1000&&custNo<=9999){
break;
}
else{
System.out.println("\n會員號碼輸入有誤，請重新輸入：");
custNo=input.nextInt();
continue;
}
}

if(==num){
showAward();
System.out.print("\n卡號："+custNo+"是幸運客戶，獲得"+awardName);
}else{
System.out.print("\n卡號："+custNo+"\t謝謝您的支持！");
}
System.out.println("\n是否繼續(y/n)");
answer=input.next();
while(i==1){
if(answer.equals("y")||answer.equals("n")){
break;
}else{
System.out.print("輸入有誤！請重新輸入：");
answer=input.next();
continue;
}
}
}while(!answer.equals("n"));

}
public void showAward(){
int num=(int)(Math.random()*3+1);
if(num==1){
awardName="Mp3";
}
else if(num==2){
awardName="美的微波爐";
}
else{
awardName="美的電飯鍋";
}

}

閱讀全文

抽獎小程序代碼

與抽獎小程序代碼相關的閱讀推薦