抽签网页代码（属龙的人起名字里面适合带什么字）

VB做抽签程序的代码

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

'==== 记得采纳哦 ===========

用excel或excel中的vba代码抽签?

Sub 随机()

Dim I

I = WorksheetFunction.RandBetween(1, 60)

If I = 2 Then

MsgBox I

End If

End Sub

如何用C#制作一个自动抽签程序?

在一次公开课中，看到讲课的老师在课堂上使用了一个Excel的抽签程序，由抽到相应学号的同学回答提问，这样能增加课堂的气氛，调动学生积极参与，是一种不错的教学策略。答：这位老师想法很有创意，做起来并不难。其实抽签在我们日常生活中很常见，这里我们介绍一个简单的抽签程序的示例，希望能给大家以更多的启示。假设有25个数，每行5个共5行，在数字的下方绘制两个命令按钮，修改其caption属性分别为“抽签”和“暂停”.双击“抽签”按钮输入代码，其中关键代码如下：

k=0:flag=0

Do until flag=1

for i=6 to 10

for j=3 to 7

if k=0 then

cells(i,j).select

DoEvents '释放程序控制权，允许运行其他事件

k=1

cells(i,j).select

end if

next

next

loop关闭代码窗口回到抽签工作表中，单击“抽签”按钮可实现25个单元格的快速依次选中，单击“暂停”按钮可中断抽签程序的执行（即选中其中的一个数字）。再次单击“抽签”按钮可继续抽取数字，这样一个简单的抽签程序就做好了同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：

Dim Flag As Boolean

Sub aaa()

Dim cell As Range

Do Until Flag

Range("C6:G10").Cells(Int(Rnd() * 25) 1).Select

DoEvents

Loop

Flag = False

End Sub

Sub bbb()

Flag = True

End Sub

回到Excel，在C6:G10输入25个签（代码中的粗体字按实际修改），插入两个图形比如方框，一个写”抽签“，一个写”暂停“，右键点第一个框，指定宏，aaa；右键点第2个框，指定宏，bbb

就可以了

[100分]ASP,随机抽签代码,详细内看

那么你这个流程最多只有二十个人能抽到.

用数据库记录抽奖人的姓名 以及 已被连续抽取2次的数字,然后用随机函数

randomize '这个是随机种子,在使用随机函数时,记住在前面加上这个

rand(1,10) '这是随机产生1-10 10个数字,每次产生随机数字时,你要判断一下这个数字时否已存在数据库(已连续二次被人抽取),当然,在次之前,还要判断用户是否已抽取过,这个也很容易,数据库里有记录.

抽签是什么意思?

1.在神前掣签卜吉凶的迷信行为 2.掣签来决定先后次序、输赢等

抽签是什么意思

chōu qiān

[释义]

1.削竹为签，配以语句，于神前抽掣以占吉凶的迷信活动。2.拈阄。

[例句]

姑娘们把表达爱情的祝辞放在签筒里，小伙子依次抽签，抽到哪位姑娘的祝辞，那位姑娘就成为他的恋人。