❶ 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;
}

❻ 微信小程序,通过摇一摇实现大转盘抽奖的效果代码怎么写

  1. 建议你还是不要自己写,可以通过直接用插件实现。

  2. 自己写会存在很多问题,会出现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="美的电饭锅";
}

}