wps中如何使用vba设计一个游戏抽奖小程序

方法/步骤:

1首先我们打开表格,在表格里制作三个框。

2分别为:中奖名单、中奖编号和中奖人。

3在中奖编号旁边的框里,输入函数:RANDBETWEEN()。在括号里,填入参与的人数。

4在中奖人下面的框里,填入函数:VLOOKUP()。

5在括号里“选中抽奖名单——逗号——选择2(姓名)——逗号——FALSE精确匹配。然后回车

帮你做了一个，不知是否满意呢？

import javaappletApplet;

import javaawtButton;

import javaawtColor;

import javaawtGraphics;

import javaawtTextField;

import javaawteventActionEvent;

import javautilRandom;

import javautilVector;

public class Lottery extends Applet {

private static final long serialVersionUID = 1L;

int w,h;

Button ok,out,setup;

String[] msg;

TextField[] gaiLv;

TextField[] jiangPin;

int mx,ml;

int maxNum;

Random ran;

Vector<Integer> fist;

Vector<Integer> sec;

Vector<Integer> third;

Vector<Integer> lucky;

boolean lot=false;

boolean iserr=false;

boolean issetup=false;

String mesg="输入错误";

String priseMsg="继续努力！";

public void init(){

w=400;

h=220;

mx=20;

ml=40;

ran=new Random();

thissetSize(w, h);

thissetLayout(null);

ok=new Button("抽奖");

out=new Button("退出");

setup=new Button("确认设置");

msg=new String[4];

msg[0]="一等奖";

msg[1]="二等奖";

msg[2]="三等奖";

msg[3]="幸运奖";

gaiLv=new TextField[4];

jiangPin=new TextField[4];

for(int i=0;i<4;i++){

gaiLv[i]=new TextField("00"+(i+1));

thisadd(gaiLv[i]);

gaiLv[i]setBounds(mx+ml, 75+i26, 60, 18);

jiangPin[i]=new TextField();

thisadd(jiangPin[i]);

jiangPin[i]setBounds(mx+ml3, 75+i26, 80, 18);

}

thisadd(ok);

oksetBounds(260, 180, 60, 28);

okaddActionListener(new LotButtonAction(this));

thisadd(out);

outsetBounds(330, 180, 60, 28);

outaddActionListener(new LotButtonAction(this));

thisadd(setup);

setupsetBounds(110, 180, 80, 24);

setupaddActionListener(new LotButtonAction(this));

}

public void paint(Graphics g){

gsetColor(Colorwhite);

gfillRect(0, 0, thisgetWidth(), thisgetHeight());

gsetColor(new Color(230,255,230));

gfillRect(0, 0, w, 30);

gsetColor(ColorBLUE);

gdrawString("JAVA抽奖系统", 130, 20);

gsetColor(ColorORANGE);

gdrawRect(10, 40, 230, 170);

gsetColor(ColorBLACK);

gdrawString("设置", mx, 60);

gdrawString("概率", mx+ml, 60);

gdrawString("奖品", mx+ml3, 60);

for(int i=0;i<msglength;i++){

gsetColor(new Color(255-(i30),45,89));

gdrawString(msg[i], 20, 90+i26);

}

if(lot==true){

gsetColor(new Color(rannextInt(255),rannextInt(255),rannextInt(255)));

if(priseMsglength()<=7){

gdrawString(priseMsg, 260, 100);

}else{

gdrawString(priseMsgsubstring(0, 5), 260, 100);

gdrawString(priseMsgsubstring(5), 260, 120);

}

}

if(iserr==true){

gdrawString(mesg, 260, 100);

}

}

public void getLucky(){

float firu=1;

float secu=1;

float thiu=1;

float fouu=1;

float minu=1;

if(gaiLv[0]getText()trim()length()>1){

firu=FloatparseFloat(gaiLv[0]getText());

if(firu<=0||firu>=1){

iserr=true;

return;

}

if(firu<minu){

minu=firu;

}

}

if(gaiLv[1]getText()trim()length()>1){

secu=FloatparseFloat(gaiLv[1]getText());

if(secu<=0||secu>=1){

iserr=true;

return;

}

if(secu<minu){

minu=secu;

}

}

if(gaiLv[2]getText()trim()length()>1){

thiu=FloatparseFloat(gaiLv[2]getText());

if(thiu<=0||thiu>=1){

iserr=true;

return;

}

if(thiu<minu){

minu=thiu;

}

}

if(gaiLv[3]getText()trim()length()>1){

fouu=FloatparseFloat(gaiLv[3]getText());

if(fouu<=0||fouu>=1){

iserr=true;

return;

}

if(fouu<minu){

minu=fouu;

}

}

if(minu>=1||minu<=0){

iserr=true;

return;

}

float aNum=1/minu;

maxNum=(int)aNum;

int count=(int)(firu/minu);

if(firu!=1){

fist=getLotteryVec(maxNum,count);

}else{

fistremoveAllElements();

}

count=(int)(secu/minu);

if(secu!=1){

sec=getLotteryVec(maxNum,count);

}else{

secremoveAllElements();

}

count=(int)(thiu/minu);

if(thiu!=1){

third=getLotteryVec(maxNum,count);

}else{

thirdremoveAllElements();

}

count=(int)(fouu/minu);

if(fouu!=1){

lucky=getLotteryVec(maxNum,count);

}else{

luckyremoveAllElements();

}

issetup=true;

iserr=false;

}

protected Vector<Integer> getLotteryVec(int maxNum,int num){

Vector<Integer> result=new Vector<Integer>();

for(int i=0;i<num;i++){

resultadd(rannextInt(maxNum));

}

return result;

}

protected int getaNum(){

return rannextInt(maxNum);

}

public int isLucky(int pNum){

for(int i=0;i<fistsize();i++){

if(fistget(i)==pNum){

return 1;

}

}

for(int i=0;i<secsize();i++){

if(secget(i)==pNum){

return 2;

}

}

for(int i=0;i<thirdsize();i++){

if(thirdget(i)==pNum){

return 3;

}

}

for(int i=0;i<luckysize();i++){

if(luckyget(i)==pNum){

return 4;

}

}

return -1;

}

public void ButtonActionPerformed(ActionEvent e){

String acName=egetActionCommand();

if(acNameequals("抽奖")){

if(issetup==false){

priseMsg="请先设置参数！";

lot=true;

repaint();

lot=false;

return;

}

lot=true;

priseMsg=getResult(getaNum());

repaint();

// lot=false;

}else if(acNameequals("退出")){

thissetVisible(false);

thisstop();

thisdestroy();

Systemexit(0);

}else if(acNameequals("确认设置")){

lot=false;

getLucky();

repaint();

}

}

public String getResult(int num){

int resu=isLucky(num);

String result="";

switch(resu){

case -1:

result="继续努力！";

break;

case 1:

result="恭喜你！一等奖!\n获得"+jiangPin[0]getText();

break;

case 2:

result="恭喜你！二等奖!\n获得"+jiangPin[1]getText();

break;

case 3:

result="恭喜你！三等奖!\n获得"+jiangPin[2]getText();

break;

case 4:

result="恭喜你！幸运奖!\n获得"+jiangPin[3]getText();

break;

default:

result="继续努力！";

}

return result+num;

}

}

class LotButtonAction implements javaawteventActionListener{

Lottery su;

public LotButtonAction(Lottery bun){

thissu=bun;

}

@Override

public void actionPerformed(ActionEvent e) {

suButtonActionPerformed(e);

}

}

感谢邀请。

开发了自己的小程序，腾讯审核通过后，下一步就是推广了，小程序推广的渠道比其他互联网产品更多，常用的方法如下:

一、把小程序的太阳码张贴在门店显眼位置，引导客户扫码抽奖；

二、把太阳码发送至朋友圈，邀请朋友有奖分享；

三、私发太阳码给朋友以及微信群，请朋友帮忙转发；

四、开通支付功能，客户付款扫太阳码即留存在客户的微信里；

五、借助小程序的定位功能，让自己的小程序自动展现在周围五公里范围内的用户微信里，用户自己参与点击抽奖。

以上是小程序的常用推广方式，由于小程序依托了微信的巨大流量，再加上腾讯重金打造，一定会成为商家线上倒流线下消费的利器，未来前景不可限量，越早开通小程序，排名越靠前，而且小程序的名字具有唯一性，切莫让自己的品牌名称被别人抢先注册了。

商场搞活动想要制作一个抽奖程序，今天我们就来看看使用vb60制作抽奖小程序的教程。

1、首先启动vb60，执行 文件-新建命令 ，d出新建工程对话框，在该对话框中选择 标准的exe 后点击打开按钮， 进入vb程序主界面。

2、在主界面中，按住鼠标左键按住窗体周围的任意一个小正方形进行拖拽， 调节窗体的大小 ，直至自己满意为止。

3、选择窗体，在其右边的属性中找到 boderstyle属性 ，设置 属性值为none， 接着再找到 startupposition属性 ，修改属性值为2-屏幕中心，再次修改 backcolor属性 值为淡**。

4、在工具箱里选择frame1，然后在窗体上进行拖拽，大小比窗体小一些，并调整其位置，使其居中，在属性窗口找到 backcolor属性 修改其属性值为粉红色，这样设置看起来就有层次感了。

5、在工具箱里双击标签控件两次，在frame1中显示两个标签控件， 修改lable1的caption属性名称为“幸运抽奖”， 修改label2的caption属性为“0”，同时修改这两个标签控件的backcolor属性为粉色，和 frame 控件保持一致。

6、分别选择 label1和label2 ，修改其font属性，打开字体对话框选择字体为王羲之书法字体，字形为常规，字号为三号，点击确定按钮。

7、选择工具箱里按钮控件，连续双击四次，在frame1上显示四个按钮，调整他们在frame1上的位置，使排列整齐，并依次修改四个按钮的caption属性，属性值依次为“ 号码滚动”、“号码停止”、“号码重置”、“退出程序”。

8、接着选择工具箱里计时器控件并双击，在frame1上显现出来该控件，该控件的作用很大，起到计时作用，同时需要注意的是在程序运行时控件是不显示出来的。

9、双击号码滚动控件，进入代码编辑区域，对象选择 command1， 过程选择click事件，在其输入代码为

Timer1Enabled = True

主要作用是触发器开始工作。

10、双击号码停止按钮，输入代码为 Timer1Enabled = False ，起到的作用是触发器停止工作。

11、双击号码重置按钮输入代码 为Label1Caption = "0"， 起到的作用是每次号码滚动后都要重新置0让每次抽奖的起始都是一样的。并双击退出程序按钮输入代码为end。

12、代码timer1的代码区域，输入代码为

Randomize

Label1Caption = "幸运中奖的号码是：" & Int(Rnd 64 + 1)

主要功能是使用随机函数产生不同的随机数值

13、代码编程完成后就可以运行调试了，点击启动标志，进行编译，如果出现错误根据错误提示进行修改，并不断调试直至通过达到预期目的为止。提示出现要求对象说明控件名称有错误，修改过来，提示出现子程序未定义则说明函数不对，即系统不能认识的函数，进行修改。

14、调试无误后，你会看到号码在不停的滚动， 点击号码停止即可停止 ，点击号码重置就会出现号码为0，点击退出程序即可界面消失，这说明已经达到所预期的功能了。

15、执行文件-生成抽奖exe，这样经过编译就生成了可执行文件，这样就可以跨平台 *** 作了，不再依赖原始程序。接 着执行文件-保存命令， 把所有的源文件进行保存即可，以方便以后修改使用。

以上就是vb60中设计抽奖器的教程，希望大家喜欢，请继续关注我们。

微信中有很多小程序可以扫码抽奖，以下是一些常用的：

1 微信官方提供的“摇一摇”功能：在微信首页左上角点击“发现”，然后选择“摇一摇”，即可进入该功能。通过手机晃动或者点击屏幕进行抽奖。

2 “口袋抽奖”小程序：可以自定义设置奖项和数量，并生成对应二维码供用户扫描参与抽奖。

3 “乐逗互动”小程序：支持在线制作各种类型的营销活动，包括刮刮卡、大转盘、砸金蛋等，用户可以通过扫描二维码参与活动。

4 “易赞助”小程序：主要面向公益组织和企业，在筹款过程中使用该平台进行线上募捐和抽奖等活动。

以上仅是部分示例，实际上还有很多其他类似的小程序可供选择。需要注意的是，在使用任何第三方平台前，请务必了解其相关规定及费用情况，并确保合法合规。

1、注册一个小程序账号，注意这里需要用一个没注册过公众号的邮箱注册。2、注册过程中需要很多认证，有很多认证，比较繁琐，如果暂时只是开发测试，不进行提审、发布的话，只要完成营业执照号填写就可以了，不需要完成微信认证。

以上就是关于wps中如何使用vba设计一个游戏抽奖小程序全部的内容，包括:wps中如何使用vba设计一个游戏抽奖小程序、java 制作抽奖小程序、开发了一个做微信抽奖活动的小程序，该怎么推广呢等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！