怎么做一个抽奖小程序系统

1.进入首页右上方的工作台，选择新建-互动模块，在d出窗口选择抽奖2.进入编辑模板，开始基本设置，包括活动名称、活动时间、活动类型、活动规则等。3.奖品设置，可以添加奖品，选择相应的奖品的中败棚奖个数以及中奖率，奖品类型有实物坦源，红包，优惠券，积分等多察信则种选择。  4.高级设置，设置抽奖规则，抽奖次数等等。5.样式设置，可以直接使用，也可以根据自己的喜好，做一些背景和按钮的改动。6.添加分享设置以后就可以直接发布分享了。

一、界面设计

新建一个标准的exe工岩帆程。在form1窗体中放置一个定时器（timer1）、两个文本框（label1，label2）、两个命令按钮（command1，command2）和包含7个元素的控件数组（label3（0）—label3（6））。

二、属性设置

label3控件数组中的所有元素皆采用相同设置。

三、代码编写

本程序的实现原理是：当用户单击“开始”按钮时，打开定时器，利用定时器控件同时产生两个随机数sj1、sj2，sj1的范围是1～32，sj2的范围是0～49。当sj1=24的时侯，用sj2与前面产生的中奖号码作比较，若与前面的中奖带数相同，则退出本过程；若与前面的中奖号码不同，则将此随机数作为中奖号码。当产生了7个中奖蠢枣首号码时，关闭定时器控件，停止产生随机数。

本程序用到的函数简介：

(1)randomize：初始化随机数的种子数。

(2)int（）：返回一个非整形数字取整后的整数。

(3)rnd：产生一个0～1之间的随机数（大于等于0，但小于1）。

(4)qbcolor（）：返回参数（0～15）对应的颜色。

(5)val：将一个字符形变量转化为一个数值型变量。

(6)format：格式化一个表达式。

以下是程序的完整代码：

dim sy as integer

′命令按钮1的单击事件

private sub command1_click（）

′清除label3控件数组的内容

for i=0 to 6

label3（i）.caption=″″

next

timer1.enabled=true′打开定时器

command1.enabled=false′使开始按钮失效

sy=－1′索引值初始化为－1

end sub

′命令按钮2的单击事件

在Excel表格困脊里，我们想唤尺肆要制作抽奖程序，做出随机抽奖的效果，下面是具体的 *** 作步骤。

打开Excel表格，首先我们输入一个函数:=INDEX()。

首先我们选中第1列的姓名，然后输入逗号，再输入函数，将公式补充完整和轿为：=INDEX(A:A,RANDBETWEEN(4,15)

按下回车键之后，按住F9不松就可以开始随机抽奖，松开F9就可以得出抽奖结果.

---