名字滚动抽签

1、首先，我们在单词上编辑我们的名字。

2、如何使用PPT进行随机名称抽奖然后在我们的办公室打开它。打开我们的word文件，自动将我们的人员输入我们的ppt。

3、然后选择视图主文件，将文本框居中，并调整文本大小和字体。关闭后，我们可以根据需要调整副本。

4、选择主控后，我们在动画中将显示时间设置为0。从点击开关上取下挂钩。并适用所有。

5、然后输入我们的节目设置并单击设置中的循环节目。确定。

6、之后，我们可以开始随机随机抽签，按S暂停。

定义
private:
struct asd
{
CString name;
}abc[5];
int n,i;
int k;
初始化
BOOL CYaojiangDlg::OnInitDialog()
{
CDialog::OnInitDialog();
// Add "About..." menu item to system menu.
n = 0;
k = 0;
i = 0;
init();
点击按钮
void CYaojiangDlg::OnButton1()
{
// TODO: Add your control notification handler code here
SetTimer(1,100,NULL);
}
void CYaojiangDlg::init()
{
abc[0].name = "你好啊";
abc[1].name = "我好啊";
abc[2].name = "他好啊";
abc[3].name = "谁好啊";
abc[4].name = "不好啊";
}
void CYaojiangDlg::OnTimer(UINT nIDEvent)
{
// TODO: Add your message handler code here and/or call def
if(n >= 10)
{
n = 0;
abc[k].name = abc[4-k].name;
//PlaySound(...........)
k++;
KillTimer(1);
}
else
{
//里面可以#define RANDOM(nMax) (rand()*nMax/RAND_MAX)取x~y的整数
if(k <= 4)
{
if(i > 5-i)
{
i = 0;
}
m_edit.SetWindowText(abc[i].name);
i++;
n++;
}
}
CDialog::OnTimer(nIDEvent);
}
源码的话给qq不好意思，没有时间来写一个完整的程序。
如果要做的话，大概的思路就是：
1。首先记录下一共有多少个名字，存入变量num中。
2。使用seed()函数设置随机种子
3。使用rand()%num函数得到一个小于num的随机整数r。
4。输出这第r个名字
5。把最后一个名字移动到第r个名字的位置上覆盖它，就是把第num-1个名字复制到r的位置上，再把名字总数num减1。
6。循环做3到5步，直到num减到0了为止，说明所有名字都被抽走了。程序结束

新建一个工程，添加一个timer控件，1个text控件，1个command控件。将下面的程序复制过去就可以了
Private
Sub
Command1_Click()
If
Command1.Caption
=
"开始"
Then
Timer1.Enabled
=
True
Command1.Caption
=
"结束"
Else
Timer1.Enabled
=
False
Command1.Caption
=
"开始"
End
If
End
Sub
Private
Sub
Form_Load()
Timer1.Interval
=
10
Timer1.Enabled
=
False
Text1.FontSize
=
20
End
Sub
Private
Sub
Timer1_Timer()
Dim
r
As
Integer
r
=
Int(51
*
Rnd
+
1)
If
r
=
1
Then
k
=
"揣露露"
If
r
=
2
Then
k
=
"黄德青"
If
r
=
3
Then
k
=
"王慧"
If
r
=
4
Then
k
=
"张义"
If
r
=
5
Then
k
=
"井仁仁"
If
r
=
6
Then
k
=
"高丽娜"
If
r
=
7
Then
k
=
"晋兰兰"
If
r
=
8
Then
k
=
"孙秉玺"
If
r
=
9
Then
k
=
"毛金枫"
If
r
=
10
Then
k
=
"李晓明"
If
r
=
11
Then
k
=
"崔怡春"
If
r
=
12
Then
k
=
"曹露露"
If
r
=
13
Then
k
=
"刘明锦"
If
r
=
14
Then
k
=
"张书萍"
If
r
=
15
Then
k
=
"陈亚丽"
If
r
=
16
Then
k
=
"戚苗苗"
If
r
=
17
Then
k
=
"赵明明"
If
r
=
18
Then
k
=
"刘明飞"
If
r
=
19
Then
k
=
"张彬"
If
r
=
20
Then
k
=
"刘文恒"
If
r
=
21
Then
k
=
"黄飞燕"
If
r
=
22
Then
k
=
"王良"
If
r
=
23
Then
k
=
"常洪宽"
If
r
=
24
Then
k
=
"何艳伟"
If
r
=
25
Then
k
=
"杨鹏飞"
If
r
=
26
Then
k
=
"陈登"
If
r
=
27
Then
k
=
"刁飞翔"
If
r
=
28
Then
k
=
"黄雪伟"
If
r
=
29
Then
k
=
"陈永杰"
If
r
=
30
Then
k
=
"刘博文"
If
r
=
31
Then
k
=
"王梓"
If
r
=
32
Then
k
=
"张亚威"
If
r
=
33
Then
k
=
"席博帅"
If
r
=
34
Then
k
=
"李岩"
If
r
=
35
Then
k
=
"李才龙"
If
r
=
36
Then
k
=
"夏扬征"
If
r
=
37
Then
k
=
"张自阳"
If
r
=
38
Then
k
=
"齐梦飞"
If
r
=
39
Then
k
=
"张强"
If
r
=
40
Then
k
=
"李浩强"
If
r
=
41
Then
k
=
"郭孝峰"
If
r
=
42
Then
k
=
"王巍博"
If
r
=
43
Then
k
=
"汪恒"
If
r
=
44
Then
k
=
"毕夏男"
If
r
=
45
Then
k
=
"孟杨锐"
If
r
=
46
Then
k
=
"郭君鹏"
If
r
=
47
Then
k
=
"马石林"
If
r
=
48
Then
k
=
"侯彪"
If
r
=
49
Then
k
=
"朱磊"
If
r
=
50
Then
k
=
"张禹"
If
r
=
51
Then
k
=
"常小宇"
Text1.Text
=
k
End
Sub

一个取巧、简单的方法，用公式就能解决，假设有10个人
1、A1:A10输入公式=rand()
2、在B1:B10输入公式B1=rank(A1,$A$1:$A$10),下拉到B10
3、在E1:E10输入1-10
4、在F1:F10输入人名
5、在C1输入公式 C1=VLOOKUP(B1,$E$1:$F$10,2,0),下拉到C10
6、启动按住F9，放开停止即可，无需其他操作，如果不想让其他人看到ABEF列的数字，把字体调成白色即可。用VBA代码（我设置的抽签1-100，不会有重复），如下：Subcq()Range("c3:e3").ClearContentsDimiAsBytei=3T1:DoWhilei<6 IfCells(3,i)=""Then Cells(3,i)=Application.RandBetween(1,100) EndIf i=i+1LoopIfApplication.Or(Cells(3,3)=Cells(3,4),Cells(3,3)=Cells(3,5),Cells(3,4)=Cells(3,5))Then Range("c3:e3").ClearContents GoToT1EndIfEndSub效果如下（若图片没有动画，请点一下图片）

这是一个抽签程序需要使用的名单，文件名为《名单》，文件格式为.txt文本格式，文件中每个人的名字单独占一行，把参与抽签的所有人的名字依次列进去，并把这个文档和Python程序放在一个文件夹中。接下来就看Python抽签代码吧，就这么几句，是不是非常简单啊。会用Python写程序的朋友们赶紧试一试吧。另外有些朋友们可能不会用Python写程序，你们也无需太焦虑。如果需要使用这个抽签小程序，我后续会发布一个编译好的，可在windows环境下直接运行的程序，功能是完全相同的噢。在Excel中新建两列单元格，一列为序号，一列为学生姓名，输入好后，复制两列数据；然后打开网站，点击“导入名单”，粘贴刚刚复制的数据，然后点击确定；
步骤二：修改配置
①修改抽奖标题和抽奖人数把一等奖人数改为0，点击“增加奖项”，将奖项名称改为“回答问题”，并将该奖项人数设为想要点名回答问题的人数；随机点名的准备工作已经设置完成，如下动图：步骤三：随机点名
①点击“开始”，选择抽取奖项，选中刚刚设置的“回答问题点击“立即抽奖”，学生名字会自动滚动，教师自己选择何时停止滚动，即可看到抽到的学生名字

1、转盘抽奖

转盘，也有一种说法叫抽奖转盘，大体上是由一块圆形的面板上面有很多的奖项设置，在圆形面板的前面，还有一根指针是固定的。

2、福利票机

年会入场嘉宾人手一张自制票，模仿一场票现场的紧张刺激，——有福又有才。

3、飞镖

飞镖制作成飞机的模样，每人的号码用黄色标签做成云朵模样黏贴在背景板上，年会背景板缓缓移动，扎中的名字得奖寓意“飞黄腾达”。

4、手机号码抢夺

现场公布一个手机号码，主持人喊开始以后大家同时拨打，看谁先打通即可获奖。

5、电脑随机

安装一个抽奖软件，需要将全体员工的名字清单导入到软件系统里，播放随机滚动，抽奖时投影在大屏幕上，领导喊停，有人在电脑上操作按暂停，屏幕上显示的名字为中奖者。

还可以优化一下，将员工的照片和名字一起投到大屏幕上，这样方便大家认识。这个软件还有一个好处是，已中奖的名字会自动在系统中删除，并且还可以查到中奖名单。

第一类：签到和抽奖。

用户在入场的时候就可以提前扫二维码完成签到，签到的时候可以根据自己需要设置是否填写些基本信息比如：姓名、电话等。签到完成后用户就可以参与抽奖了，根据自己活动需要选择一个领导在喊开始停，所有签到人员的微信头像和昵称在屏幕上进行滚动，滚动到谁就是谁中奖。

如果填写的有姓名和电话等信息，也可以设置在屏幕上同步显示，可以更好的区分不同的用户。根据屏幕上头像滚动抽奖方式的不同抽奖还可以分为：普通抽奖、3D抽奖、抽奖箱、砸金蛋、幸运手机号等产品。

第二类：互动游戏类抽奖。

所有用户通过扫码参与一个比赛类游戏，看谁最多、最快等，屏幕上也会实时更新显示排名，最后根据排名给用户发奖。具体产品包括：摇一摇、3D摇一摇、3D赛马、马拉松赛、自行车赛、疯狂数钱等产品。

第三类：用户随机参与抽奖。

用户自己手机上扫码随机进行抽奖。比如用摇大奖，用户参与后随机的在手机上进行摇动下看有没有中奖，如果有中奖奖品可以是红包也可以实物奖品等。

这三大类就是目前使用较多的几种抽奖方式，而且使用起来也比较简单，随时随地只需要有个联网电脑即可。

抽奖，拼音chōu jiǎng，提拔褒奖；以抽签法决定中奖者。

详细解释：

1、提拔褒奖。唐吕温《代郑南海谢上表》：岂意曾未逾年，忽蒙抽奖，庙授鈇钺，廷赐旌旗。

2、以抽签法给买主奖品。商人招徕顾客的一种手段。

Public j As Integer

Dim A() As String

Dim tem As String

Private Sub CMD1_Click() '注意这里如果没有exit sub，责会出现captio不会变的，其实已经变过了

If CMD1.Caption = "开始" Then

CMD1.Caption = "停止"

Timer1.Enabled = True

Exit Sub

End If

If CMD1.Caption = "停止" Then

CMD1.Caption = "开始"

Timer1.Enabled = False

If tem <> "" Then

Text1.Text = tem

End If

End If

End Sub

Private Sub CMD2_Click()

Frame1.Visible = True

Text2.Visible = True

CMD3.Visible = True

CMD4.Visible = True

End Sub

Private Sub CMD3_Click()

Text2.Visible = False

CMD3.Visible = False

CMD4.Visible = False

tem = Text2.Text

End Sub

Private Sub CMD4_Click()

Text2.Text = ""

Text2.Visible = False

CMD3.Visible = False

CMD4.Visible = False

End Sub

Private Sub form_load()

Frame1.Visible = False

Text2.Visible = False

CMD3.Visible = False

CMD4.Visible = False

Timer1.Enabled = False

Timer1.Interval = 300

Open "C:\Documents and Settings\Administrator\桌面\新建 文本文档.txt" For Input As 1

Do Until EOF(1)

ReDim Preserve A(0 To I)

Input #1, A(I)

I = I + 1

Loop

Close #1

End Sub

Private Sub Timer1_Timer()

Text1.Text = A(j)

j = j + 1

If j = UBound(A) Then

j = 0

End If

End Sub

已经运行通过，不过事先你得在桌面建立一个文本文件，用来存储数据，呵呵

Option Explicit
Private Sub Command1_Click()
'定义一个数组来存储人名
Dim RStr(0 To 9) As String
Dim i, j, k
'给要滚动的数给赋值
'实际使用应该是 RStr(0)="张三" :RStr(1)="李四" 之类
RStr(0) = "张三"
RStr(1) = "李四"
RStr(2) = "刘德华"
RStr(3) = "郭富城"
RStr(4) = "黎明"
RStr(5) = "无良"
RStr(6) = "梦梦"
RStr(7) = "张学友"
RStr(8) = "王志和"
RStr(9) = "老干妈"
'判断按钮标题
If Command1.Caption = "开始" Then
'改变标题
Command1.Caption = "结束"
'开始滚动显示
Do While 1
'检测到按钮标题变回开始,即点击结束后,退出死循环并赋值
If Command1.Caption = "开始" Then
Label1.Caption = "获奖人:" & Text1.Text
Exit Do
End If
'转让控制权,即使在循环中也可以点击按钮
DoEvents
'初始化随机数生成器。
Randomize
'随机生成一个0到9的数字
k = Int(Rnd * 10)
'写入text1
Text1.Text = RStr(k)
'刷新text1
Text1.Refresh
'用一段循环来延时,做出滚动效果,如果不用,一闪就没了
'可以加大数值延长滚动效果
For i = 1 To 30000
If Command1.Caption = "开始" Then Exit For
DoEvents
Next i
Loop
Else
'改变标题
Command1.Caption = "开始"
End If

End Sub
Private Sub Form_Load()
Command1.Caption = "开始"
Label1.Caption = "获奖人:"
Text1.Text = "请开始抽奖...."
End Sub
'==== 记得采纳哦 ===========

你想找一种可以在班级里面抽签的软件，可以设定抽几个人，而抽的范围，而且显示的是铭记一些普通的app舅舅可以实现这个功能，你可以在应用商场里面搜索抽签，app这个关键词就能够找到很多抽签的abb，一些app看人宿舍都是要设计好就可以设计好的班级人数进行去抽签了，是非常简单的，很容易使用的。

30个人，每人一个编号，取30内的随机数就可以了啊，笨！Java比较方便。在java.util包里有个Random类。
你把名字放在数组里。
然后用Random对象随机生成整型的数组下标就好了。#include
main(){
char *name[30];
int i;
randomize();/*随机发生器 */
for(i=0;i<30;i++){
printf("\nEnter %d student name:",i+1);
gets(name[i]);
}
while(getch()!='q'){
printf("\n%s",name[rand()%30]);
}
}