'Mary'
'Leon'
'Martin'
'Ada'
'Sunny'
'Jacky'
'Paul'
'Peter'念核
'Sam')这个是基于javascript的网页
只要将所有code copy去记事本之后另贮新档在文件类型那行选所有档案
用法如下只要将 *** 的人名转做自己想要的
如果想增加人名照格式加就可以
如果你想用中文名要在head行边那行的charset=gb2312转做Big5
不过最保障做法是用中文名. function spinem1() { turns1=Math.floor(Math.random()* slotitem.length)real_value=slotitem[turns1]for(i=0i<turns1i++) { document.slots.slot1.value="the element no is "+slotitem[turns1] document.forms[0].mybutton.disabled=true} counter++if(counter<25) { setTimeout("spinem1()"
40)} else { counter = 0i=0document.slots.slot1.value="the element no is "+real_valueslotitem.splice(turns1
1)document.forms[0].mybutton.disabled=falseif(slotitem.length<=0) { alert("no more element")} } } </script></head><body><form name=slots><input type=text name=slot1 size=40><br><input type=button name=mybutton value="spin" onclick="spinem1()"></form></body></>
我对你个programe 有兴趣
可以再uplad 一次个file 吗?
我有click你的link
download完开唔到... anyway
都好多谢你既回复~
简单做了激友一个
请开启以下连结试用 先将宾客姓名/或抽奖劵号码在Sheet2输入 然后在Sheet1进行抽奖 有关排版/视觉/音效/速度...等等
各人要求不同
但希望你有用 如Sheet2输入明高槐 1~49
更可作为六合彩选号 FunP.Net/958343 2009-11-26 10:09:42 补充: 文件是须要解压的
可能你的电脑尚未安装解压软件
很简单啊袜蠢州告蔽,比如你要从5个人名:张三,李斯,王五档枯,马六,田七你产生1-5个数字:一一对应就行了,如果产生的随机数是1 那么label1.caption="张三",以此类推!
例子:
Private Sub Command1_Click()
Randomize
Select Case Int(Rnd * 5 + 1)
Case 1
Label1.Caption = "张三"
Case 2
Label1.Caption = "李斯"
Case 3
Label1.Caption = "王五"
Case 4
Label1.Caption = "马六"
Case Else
Label1.Caption = "田七"
End Select
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)