抽奖活动小系统程序源码_抽奖小程序源码

文章目录：

• 1、VB中可用的抽奖程序的代码
• 2、求vb 作弊抽奖程序源代码.
• 3、java抽奖小程序源码
• 4、求用vb编一个抽奖软件的源代码
• 5、求一款易语言抽奖源码，最好是图片抽奖，或者自行放入对方提供的头像。

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...

求vb 作弊抽奖程序源代码.

做好了

代码如下，两个按钮，一个开始，一个结束，

Private Flag As Boolean

Private Sub Command1_Click()

Dim A(10000) As Integer

Flag = False

Do Until Flag = True

A(i) = Int(Rnd() * 8999 + 1000)

Label1.Caption = A(i)

DoEvents

Loop

End Sub

Private Sub Command2_Click()

Flag = True

Dim A(10000) As Integer

A(10000) = Int(Rnd() * 10 + 1233)

Label1.Caption = A(10000)

End Sub

点开始，数字在1000至9999间跳动（如图1

点结束，数字停止，结果只在1234-1243间（如图2

已经编译成 "抽奖.exe“，要的话发给你

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+"谢谢您的支持！");

}

}

}

求用vb编一个抽奖软件的源代码

dim i

窗口启动：

i=0

Open App.Path "\电话号码.txt" For Input As #1

while eof(1)=false

Line Input #1,a

List1.AddItem a

wend

close #1

按开始：

timer1.Interval=50

按结束：

timer1.Interval=0

timer的事件：

i=i+1

if i=List1.ListCount then i=0

Label1.Caption = List1.List(i)

不好意思啊，由于没有注意，所以先前的答案有两个小错误，现在已修正了

所需控件：

两个按钮，一个开始，一个结束；一个时钟控件

一个列表框；一个标签控件

求一款易语言抽奖源码，最好是图片抽奖，或者自行放入对方提供的头像。

.版本 2

.支持库 xplib

.支持库 iext

.程序集 窗口程序集1

.程序集变量 b, 文本型

.程序集变量 图片框, 图片框

.程序集变量 开始音乐, 字节集

.程序集变量 结束音乐, 字节集

.程序集变量 人数, 整数型

.程序集变量 人数数组, 文本型, , "0"

.程序集变量 n, 整数型

.程序集变量 图片文件数组, 文本型, , "0"

.子程序 __启动窗口_创建完毕

XP风格 (#蓝色风格)

选择夹.左边 ＝ (取屏幕宽度 () － 选择夹.宽度) ÷ 2

选择夹.顶边 ＝ (取屏幕高度 () － 选择夹.高度) ÷ 2

图片框1.标记 ＝ “1”

图片框2.标记 ＝ “2”

图片框3.标记 ＝ “3”

图片框4.标记 ＝ “4”

图片框5.标记 ＝ “5”

图片框6.标记 ＝ “6”

选择夹.现行子夹 ＝ 1

透明标签1.左边 ＝ (取屏幕宽度 () － 透明标签1.宽度) ÷ 2

选择夹2.顶边 ＝ 选择夹.高度 ＋ 选择夹.顶边

选择夹2.左边 ＝ (取屏幕宽度 () － 选择夹2.宽度) ÷ 2

初始化 ()

人数 ＝ 取数组成员数 (图片文件数组)

_一个人_被选择 ()

注册热键程序 (_启动窗口.取窗口句柄 (), 0, #F1键, 配置设置)

注册热键程序 (_启动窗口.取窗口句柄 (), 0, #回车键, 子程序1)

注册热键程序 (_启动窗口.取窗口句柄 (), 0, #键1, _一个人_被选择)

注册热键程序 (_启动窗口.取窗口句柄 (), 0, #键2, _二个人_被选择)

注册热键程序 (_启动窗口.取窗口句柄 (), 0, #键3, _三个人_被选择)

注册热键程序 (_启动窗口.取窗口句柄 (), 0, #键4, _四个人_被选择)

注册热键程序 (_启动窗口.取窗口句柄 (), 0, #键5, _五个人_被选择)

注册热键程序 (_启动窗口.取窗口句柄 (), 0, #键6, _六个人_被选择)

注册热键程序 (_启动窗口.取窗口句柄 (), 0, #Esc键, _退出_被选择)

.子程序 子程序1

n ＝ n ＋ 1

.如果 (n ％ 2 ＝ 0)

_按钮2_被单击 ()

.否则

_按钮1_被单击 ()

.如果结束

.子程序 配置设置

载入 (系统设置窗口, , 真)

系统设置窗口.可视 ＝ 真

.子程序 _时钟1_周期事件

置随机数种子 ()

图片框1.图片 ＝ 读入文件 (图片文件数组 [取随机数 (1, 人数)])

.子程序 抽奖停

.局部变量 a, 整数型

.局部变量 i, 整数型

b ＝ “”

置随机数种子 ()

.计次循环首 (6, i)

a ＝ 取随机数 (1, 人数)

.判断循环首 (寻找文本 (b, 到文本 (a), 1, 假) ≠ -1)

a ＝ 取随机数 (1, 人数)

.判断循环尾 ()

图片框 ＝ 取标记组件 (i)

图片框.图片 ＝ 读入文件 (图片文件数组 [a])

b ＝ b ＋ “,” ＋ 到文本 (a)

.计次循环尾 ()

.子程序 _一个人_被选择

图片初始化 ()

n ＝ 0

按钮1.禁止 ＝ 假

按钮1.获取焦点 ()

图片框1.可视 ＝ 真

图片框2.可视 ＝ 假

图片框3.可视 ＝ 假

图片框4.可视 ＝ 假

图片框5.可视 ＝ 假

图片框6.可视 ＝ 假

图片框1.左边 ＝ (选择夹.宽度 － 图片框1.宽度) ÷ 2

.子程序 _二个人_被选择

图片初始化 ()

n ＝ 0

按钮1.禁止 ＝ 假

按钮1.获取焦点 ()

图片框1.可视 ＝ 真

图片框2.可视 ＝ 真

图片框3.可视 ＝ 假

图片框4.可视 ＝ 假

图片框5.可视 ＝ 假

图片框6.可视 ＝ 假

图片框1.左边 ＝ (选择夹.宽度 － 图片框1.宽度 × 2 － 5) ÷ 2

图片框2.左边 ＝ 图片框1.左边 ＋ 图片框1.宽度 ＋ 5

.子程序 _三个人_被选择

图片初始化 ()

n ＝ 0

按钮1.禁止 ＝ 假

按钮1.获取焦点 ()

图片框1.可视 ＝ 真

图片框2.可视 ＝ 真

图片框3.可视 ＝ 真

图片框4.可视 ＝ 假

图片框5.可视 ＝ 假

图片框6.可视 ＝ 假

图片框1.左边 ＝ 0

图片框2.左边 ＝ 325

图片框3.左边 ＝ 651

.子程序 _四个人_被选择

图片初始化 ()

n ＝ 0

按钮1.禁止 ＝ 假

按钮1.获取焦点 ()

图片框1.可视 ＝ 真

图片框2.可视 ＝ 真

图片框3.可视 ＝ 真

图片框4.可视 ＝ 真

图片框5.可视 ＝ 假

图片框6.可视 ＝ 假

图片框1.左边 ＝ 0

图片框2.左边 ＝ 325

图片框3.左边 ＝ 651

.子程序 _五个人_被选择

图片初始化 ()

n ＝ 0

按钮1.禁止 ＝ 假

按钮1.获取焦点 ()

图片框1.可视 ＝ 真

图片框2.可视 ＝ 真

图片框3.可视 ＝ 真

图片框4.可视 ＝ 真

图片框5.可视 ＝ 真

图片框6.可视 ＝ 假

图片框1.左边 ＝ 0

图片框2.左边 ＝ 325

图片框3.左边 ＝ 651

.子程序 _六个人_被选择

图片初始化 ()

n ＝ 0

按钮1.禁止 ＝ 假

按钮1.获取焦点 ()

图片框1.可视 ＝ 真

图片框2.可视 ＝ 真

图片框3.可视 ＝ 真

图片框4.可视 ＝ 真

图片框5.可视 ＝ 真

图片框6.可视 ＝ 真

图片框1.左边 ＝ 0

图片框2.左边 ＝ 325

图片框3.左边 ＝ 651

.子程序 图片初始化

.局部变量 k, 整数型

选择夹.现行子夹 ＝ 1

选择夹.现行子夹 ＝ 0

时钟1.时钟周期 ＝ 0

时钟2.时钟周期 ＝ 0

时钟3.时钟周期 ＝ 0

时钟4.时钟周期 ＝ 0

时钟5.时钟周期 ＝ 0

时钟6.时钟周期 ＝ 0

_启动窗口.背景音乐 ＝ 到字节集 (0)

.计次循环首 (6, k)

图片框 ＝ 取标记组件 (k)

图片框.图片 ＝ #图片

.计次循环尾 ()

.子程序 _标题_被选择

.局部变量 wb, 文本型

图片初始化 ()

输入框 (“请输入标题内容”, , , wb, )

透明标签1.标题 ＝ wb

写配置项 (取运行目录 () ＋ “\config.ini”, “标题”, “标题1”, wb)

.子程序 _设定转奖声音_被选择

图片初始化 ()

通用对话框1.过滤器 ＝ “WAV文件|*.wav”

通用对话框1.打开 ()

开始音乐 ＝ 读入文件 (通用对话框1.文件名)

写配置项 (取运行目录 () ＋ “\config.ini”, “声音”, “转奖声音”, 通用对话框1.文件名)

.子程序 _设定中奖声音_被选择

图片初始化 ()

通用对话框1.过滤器 ＝ “WAV文件|*.wav”

通用对话框1.打开 ()

结束音乐 ＝ 读入文件 (通用对话框1.文件名)

写配置项 (取运行目录 () ＋ “\config.ini”, “声音”, “中奖声音”, 通用对话框1.文件名)

.子程序 _关闭音乐_被选择

图片初始化 ()

_启动窗口.背景音乐 ＝ 到字节集 (0)

.子程序 初始化

.局部变量 d, 整数型

_启动窗口.底图 ＝ 读入文件 (读配置项 (取运行目录 () ＋ “\config.ini”, “图片”, “背景图片”, 取运行目录 () ＋ “\Wallpaper\1024.jpg”))

开始音乐 ＝ 读入文件 (读配置项 (取运行目录 () ＋ “\config.ini”, “声音”, “转奖声音”, 取运行目录 () ＋ “\sound\musi.wav”))

结束音乐 ＝ 读入文件 (读配置项 (取运行目录 () ＋ “\config.ini”, “声音”, “中奖声音”, 取运行目录 () ＋ “\sound\finish.wav”))

透明标签1.标题 ＝ 读配置项 (取运行目录 () ＋ “\config.ini”, “标题”, “标题1”, “XX公司幸运抽奖”)

.计次循环首 (6, d)

图片框 ＝ 取标记组件 (d)

图片框.图片 ＝ 读入文件 (读配置项 (取运行目录 () ＋ “\config.ini”, “图片”, “抽奖图片”, 取运行目录 () ＋ “\Wallpaper\cj.jpg”))

.计次循环尾 ()

查找文件 (图片文件数组, 取运行目录 () ＋ “\Photos\”, “*.jpg”, )

查找文件 (图片文件数组, 取运行目录 () ＋ “\Photos\”, “*.bmp”, )

.如果真 (取数组成员数 (图片文件数组) ＜ 6)

信息框 (“请把图片文件放到[Photots]文件夹下后重启软件！” ＋ #换行符 ＋ “图片文件格式支持[jpg bmp]”, 64, “提示：”)

结束 ()

.如果真结束

.子程序 _抽奖图片_被选择

.局部变量 a, 整数型

图片初始化 ()

通用对话框1.过滤器 ＝ “图片文件|*.jpg;*.bmp”

通用对话框1.打开 ()

.计次循环首 (6, a)

图片框 ＝ 取标记组件 (a)

图片框.图片 ＝ 读入文件 (通用对话框1.文件名)

.计次循环尾 ()

写配置项 (取运行目录 () ＋ “\config.ini”, “图片”, “抽奖图片”, 通用对话框1.文件名)

.子程序 _时钟2_周期事件

置随机数种子 ()

图片框2.图片 ＝ 读入文件 (图片文件数组 [取随机数 (1, 人数)])

.子程序 _时钟3_周期事件

置随机数种子 ()

图片框3.图片 ＝ 读入文件 (图片文件数组 [取随机数 (1, 人数)])

.子程序 _时钟4_周期事件

置随机数种子 ()

图片框4.图片 ＝ 读入文件 (图片文件数组 [取随机数 (1, 人数)])

.子程序 _时钟5_周期事件

置随机数种子 ()

图片框5.图片 ＝ 读入文件 (图片文件数组 [取随机数 (1, 人数)])

.子程序 _时钟6_周期事件

置随机数种子 ()

图片框6.图片 ＝ 读入文件 (图片文件数组 [取随机数 (1, 人数)])

.子程序 _退出_被选择

结束 ()

.子程序 _时钟7_周期事件

' 如果 (取鼠标垂直位置 () ＜ 10)

系统设定.可视 ＝ 真

设定抽奖人数.可视 ＝ 真

' 系统设定.可视 ＝ 假

' 设定抽奖人数.可视 ＝ 假

.子程序 _按钮1_被单击, 逻辑型

.如果真 (选择夹.现行子夹 ＝ 1)

选择夹.现行子夹 ＝ 0

.如果真结束

_启动窗口.背景音乐 ＝ 开始音乐

_启动窗口.播放次数 ＝ 0

时钟1.时钟周期 ＝ 100

时钟2.时钟周期 ＝ 100

时钟3.时钟周期 ＝ 100

时钟4.时钟周期 ＝ 100

时钟5.时钟周期 ＝ 100

时钟6.时钟周期 ＝ 100

按钮2.禁止 ＝ 假

按钮1.禁止 ＝ 真

按钮2.获取焦点 ()

返回 (真)

.子程序 _按钮2_被单击

抽奖停 ()

_启动窗口.背景音乐 ＝ 结束音乐

_启动窗口.播放次数 ＝ 1

时钟1.时钟周期 ＝ 0

时钟2.时钟周期 ＝ 0

时钟3.时钟周期 ＝ 0

时钟4.时钟周期 ＝ 0

时钟5.时钟周期 ＝ 0

时钟6.时钟周期 ＝ 0

按钮2.禁止 ＝ 真

按钮1.禁止 ＝ 假

按钮1.获取焦点 ()