vb抽奖程序？vba抽奖程序代码？

访客2024-05-07 15:02:4512

求助用VB编写的抽奖程序,功能如下:

『One』，首先启动vb0，执行文件-新建命令，弹出新建工程对话框，在该对话框中选取标准的exe后点击打开按钮，进入vb程序主界面。在主界面中，按住鼠标左键按住窗体周围的任意一个小正方形进行拖拽，调节窗体的大小，直至自己满意为止。

『Two』，属性设置 label3控件数组中的所有元素皆采用相同设置。代码编写本程序的实现原理是：当用户单击“开始”按钮时，打开定时器，利用定时器控件同时产生两个随机数sjsj2，sj1的范围是1～32，sj2的范围是0～49。

『Three』，第一步，在界面上放三个按钮、一个标签、一个计时器。第二步，把下面的代码复制过去。

『Four』，需要2个文件，界面你自己排一下，数据可以通过access导入excel再导入到txt，格式你一看就明白的，记个把list给hide掉，10000条数据读入时间不会超过2s，其它都是体力活，mp3及播放、停止的代码都给你写了。

『Five』，我觉得要做到这个功能用不着combo啊，这个我也不太会，但你可以用复选框、无线钮来实现。

首先启动vb0，执行文件-新建命令，弹出新建工程对话框，在该对话框中选取标准的exe后点击打开按钮，进入vb程序主界面。在主界面中，按住鼠标左键按住窗体周围的任意一个小正方形进行拖拽，调节窗体的大小，直至自己满意为止。

方法/步骤：首先我们打开表格，在表格里制作三个框。分别为：中奖名单、中奖编号和中奖人。在中奖编号旁边的框里，输入函数：RANDBETWEEN()。在括号里，填入参与的人数。在中奖人下面的框里，填入函数：VLOOKUP()。

第一步，在界面上放三个按钮、一个标签、一个计时器。第二步，把下面的代码复制过去。

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

预先将图片名改为jpg~jpg，放在程序同一文件夹中。

我用多线程写的，你可以借鉴下。系统界面图如下：（注：重置功能为清除已经中奖号码，回归1-100都可以中奖状态。

双击号码停止按钮，输入代码为TimerEnabled = False，起到的作用是触发器停止工作。双击号码重置按钮输入代码为LabelCaption = 0，起到的作用是每次号码滚动后都要重新置0.让每次抽奖的起始都是一样的。

代码编写本程序的实现原理是：当用户单击“开始”按钮时，打开定时器，利用定时器控件同时产生两个随机数sjsj2，sj1的范围是1～32，sj2的范围是0～49。

首先打开“Microsoft Visual Basic 0 中文版”，选取 “标准 EXE”，并单击“打开”按钮，进入软件界面。单击工具箱中的“命令按钮”，并在窗体中拖画出一个命令按钮。

新建3个按钮、1个图片框(PictureBox)，1个文本框。

第一步，在界面上放三个按钮、一个标签、一个计时器。第二步，把下面的代码复制过去。

说几点编程建议给你就行了。定义一个模块级的整数变量首先获得数据中的人名个数。将这个数赋给变量定义一个数组。

预先将图片名改为jpg~jpg，放在程序同一文件夹中。

我后来发到qq邮箱了，你的yahoo邮箱给退回来了。

点击选取名单选取写有名字的txt文件，名字用空格隔开。抽奖结束后在程序运行文件下生成中奖名单（中奖.txt）。

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

『Two』，说几点编程建议给你就行了。定义一个模块级的整数变量首先获得数据中的人名个数。将这个数赋给变量定义一个数组。

『Three』，预先将图片名改为jpg~jpg，放在程序同一文件夹中。

『Four』，我后来发到qq邮箱了，你的yahoo邮箱给退回来了。

Tags：