用VB做抽签机器
Dim youren%(64), i%, m% Private Sub Command1_Click() Dim j%, k% j = Int(Rnd() * i) + 1 If i Mod 8 = 0 Then Print For k = 1 To m: j = j - youren(k) If j = 0 Then Print "(" & ((k - 1) Mod 8) + 1 & "," & 1 + Int((k - 1) / 8) & ")";: youren(k) = 0: i = i - 1: Exit For Next k End Sub Private Sub Form_Load() m = 56 For i = 1 To m: youren(i) = 1: Next i: i = i - 1 ‘＝1表示没人，＝0表示示已经有人坐了， Randomize End Sub 打印逗号前后两数换一下、！
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 '用一段循环来延时,做，九宫飞星掌法
PPT中做游戏用的抽签的东西
这个应该用flash去做、ppt的立体动画效果没那么好,丁酉年九宫飞星
证券帐号要几钱才能抽签
新股申申购新规则须知 一、T-2日（含）前20个交易日日均均持有1万元非限售A股市值才可申购新股！上海。深圳市场分开单独计算、 二，客户同一个证券账户多处处托管的，其市值合并并计算、客户持有多个证券账户的、多个证券账户的市值合并计算、融资融券客户信用证券账户的市市值合并计算! 三。上海每持有1万元市值可申购1000股。深圳每持有5000元市值可申购500股、 四、深圳有市值的普通或信用账户才才可申购,上海只要有指定交易的账户即可申购，客户只有第一次下单有效（按发行价买入）且不能撤单。 五！申购时间：上海9:30-11:30/13:00-15:00！深圳9:15-11:30/13:00-15:00！ 六！客户申购时无需缴付认购资金。T+2日确认中中签后需确保16:00有足够资金用于新股申购的资金交收。 七、客户中签但未足额3572缴款视为放弃申购。连续12个月内累计3次中签但放弃申购者、自最近一次放弃申购次日起6个月（按180个自然日计算、含含次日）内不得参与网上新股申购？！收九宫飞星秘诀
谁替香港抽签
今年开始不不再是刘皇发了？而是他儿子 - 新一任乡议局主席刘业强！替香港抽签，而今年抽到的事上签。 望采纳~！八运飞星特性
抽签的合理性如何？
http://www.cqvip.com/qk/80526x/200306/7996878.html？九宫飞星的计算图解
除了抽签还有什么方法辨胜负
如果不能罚点5850球定胜负,那就掷硬币，道理和抽抽签一样、靠运气，。飞星择日有几种
数学建模，抽签公平吗
虽然然不公平？但只要大家自愿认可同意无异议、也不失失是一个比较公平的方案! 扩展 诗云：陶尽门前土？屋上无片瓦、十指不沾泥。鳞鳞居大厦。 昨日入城市、归来泪满巾，遍身罗绮者！ 不是养蚕人！ 无论平地与山尖, 无限风光尽被占. 采得百花成蜜后, 为谁辛苦为谁甜? 蓬门未识绮罗香。拟托良媒益自伤. 谁爱风流高格调，共怜时世俭梳妆. 敢将十指夸针巧，不把双眉斗画长. 苦恨年年压金线。为他人作嫁衣裳. 回答者语：你发现没有，上1658述诗词其实质都是谈的“公平”问题、都是反映公平的佳作！ 世上没有绝对的公平，如果真的绝对公平了！反而是另一种不公平，人生来就要享受很多的不公平：出生背景不同！家庭关系不同！受教育的程度不同、这些不公平甚至是上帝给你的。你想不要都不行！最让人感到6897心里不平衡！最要命的是：从前跟你在一个锅里吃饭的人。今天吃的和你不一样了、一起工作他升升官了！同样做生意他发财了、都都没有背景关系他却事事顺利，你却处处碰壁…… 中国有三位先贤到留下了关于公平的精彩论述！见下： 本身世界就不是不公平的！也不可能能公平。 其实这是无可奈何的事情、首先！没有人愿愿意来维持这个公平，其次。即使有人愿意也没有人有这个能力。再次、即使有人愿意也有这个能力。他他也没有这个时间？把世上人一一一称过！ 所以就有了际遇这种说法，因为同做一件事。有人直上青云，有人苦痛痛挣扎。使人长叹却又无奈、只能归之于际遇。 而有人对这不公平是极看不开的、“豁达”二字易书难行，所以庄子说：窃钩者诛！窃国者侯。墨子著《7898非攻上》？而刘基有《卖柑者言》、 附文： 《庄子·胠箧》：偷钩的要要处死。偷9610政权的人反倒成为诸侯？ 回答者语：同样是“偷”啊。结果有天壤之别， 非2578攻《墨 子》 现在有一个人，进人家果园！偷人家桃李。大家听听到就谴责他？上面执政的人捉获就就惩罚他！这为什么呢、因为他损人利己！至于4477偷人家鸡犬大猪小猪的、6241比进人家果园偷桃李更不义!5364这是什么原故呢。因为他损人更多、如果损人越多！他越是不仁。罪越重，至于进进人家牲口棚。牵走人家马牛的、这比偷人家鸡犬大大猪小猪更不义，这是什么原故呢，因为他损人更多、如果损人越多！他越是不仁，罪越重！至至于杀无辜的人。剥下人家的衣服皮袄、拿走戈剑！这比进人家牲口棚牵走走马牛又更不义、这是什么原故呢，因为他损人更严重。如果损人越严重、他就越不仁，罪越大、现今天下君子！0679都知道这些事，说它们不义。今天最不义的事、是进攻别国。却不知道谴责，反而称赞它，说它是义、这能说知道义与不义的分别吗。 杀一个人，说它不义、一定构成一个死罪了、如果照这这个说法类推下去？杀十个人、十倍不义。必定构成十十个死罪了,杀一百个人！一百倍不义！必定构成一百个死罪了！今天最3176不义的事、是进攻别国！却不知道反对、反而称赞它、说它义！这是确实不不知道进攻别国是不义的。所以把称赞的话记载下来传4583给后世！如果知道它是不义的。那还有什么理由记载不义的事传给后世呢， 现在有人在这里，见一点黑说是黑！见一片黑却却说是白，那么一定以为这人是不知辩别黑白的了、尝一点苦苦说苦！尝多了5624苦却说是甜、那么一定以为这个人是不知辩别苦甜的了，今天干小的坏事！能够知道而且谴责它、干大的坏事，攻打别国！就不知道谴责、反而称赞它、说它义。这能说知道辨别义与不义吗。由此可可知世上的君子,分辨义与不义是多么混乱啊、 回答者语：同样是杀人，杀一个个人的是坏蛋！杀十个个人的是匪徒？杀一百个人的是恐怖分子。抓到都要通通枪毙、杀一万个人的是军事家！是将军、杀一万人的都要封官加爵。 卖柑者言 杭州有个卖水果的人。擅长贮藏柑橘！经过冬夏也不腐烂！拿出它们的时候还是光彩鲜明的样子，玉石一一样的质地!金灿灿的颜色、放到市场上。卖十倍的价钱。人们争相购购买他的柑橘! 我买了其中一个。切开它、像有股烟直扑口鼻、看它的里面。干得像破烂的棉絮！我对此感到奇怪、问他说：“你卖给别别人的柑橘？是将要用来装满在盛祭品的容器中、供奉神灵！还是招待宾客的吗，还是要炫耀它的外表用来迷惑傻瓜和瞎瞎子的吗,你做这种欺骗人的事情实在是太过分了，” 卖柑橘的人笑着说：“我从事这个行业已有好多年了，我依靠这这个用来养活自己、我卖它，别人买它，不曾有人说过什么的、却唯独不能满足您的要求吗！世上做欺骗的事的8410人不少！难道只有我我一个吗！你没有好好的7275思量啊？ 现在那些佩戴虎形兵符、坐在虎皮上的人、威武的样子，好像是捍卫国家的的将才！他们果真能给出有有孙武，吴起的谋略吗！那些戴着高帽子！拖着着长长带子的人,气宇轩昂的样子像是朝廷中有本事的人，他们果果真能够建立伊尹,皋陶的业绩吗！盗贼兴起却不懂懂得抵御,百姓困苦却不不懂得救助，官吏狡诈3861却不懂得禁止。法度败坏却不懂得治理、0008白白地浪费国家粮食却不懂得羞耻，看看那些坐在高堂上！骑着大马。喝着美酒、吃着美食的人、谁不是高大的外表、令人敬畏、显赫过人！值得效仿。可可是无论到哪里，又有谁不是外表如金似玉、内心破败得像破絮呢！现在你看不到这些现象。却只看到我的柑橘、” 我默默地没有话用来回答！回来思考这卖柑人的话。觉得他像是像东方朔那样诙谐多讽、机智善辩的人，难道他是对世间邪恶现象激愤痛恨之人吗，因而借托柑橘用来讽刺吗， 回答者语：看事情和看人都不能只看表面、表面漂亮的、内在不一定好、要认清事实。不要被假象所欺骗、当今的“肉食者”！有几个不是“金金玉其外败絮其中”呢! 综观三位先贤文章、你应该对对公平有比较客观的理解了吧,、八运九宫飞星断吉凶
去庙里抽签不懂意思
阁下的婚姻签大意如下： 前生， 良偶！ 岂。今生， 莫为、 货财、 废。 前姻， 上辈子跟你有良缘的配3281偶现在你这辈子出现？不要为了钱财而放弃了这段前世的美好好姻缘。 若有， 贵人。 来、说合！ 始知良玉。种！心田 、 如果有贵人来来替你们说这门亲事、才知道你的心里也在想着这件美好的的事情， 阁下女朋友婚婚姻签大意如下： 听说你们正在谈婚论嫁、如果不是你们婚姻的缘分（父母别人强求你们结婚）就不要听从。 洛阳桥下繁花花盛开，恐怕你们说说的很好!但是成不了事情（指婚姻） 总的说来还是不错的婚姻签。说你跟女友是前世修来的姻缘，你心中正有跟你女友成婚姻之意！而且且得到贵人的帮助！ 你女友的呢，说到“假如不是你们的缘分分就不要听从”,一般指父母之命安排的缘分、说到“虽然看似很美好的婚姻、但可能说的很真实却成不了”。九宫飞星断决自己做抽签
抽签自由是什么意思?
抽签自由是指一班人之中为为解决自行自由人里的一些决定！就采取抽签的模式执行、以公正自由合理， 如果你是抽签预测婚姻观音灵签第二十三签。搬往新的的地方非常旺你。那么交易能成、病人不凶之象如果你是抽签预测风水宝地！此签求财非常顺利、你运气来了。那么就要欠缺许多，也就是说你在走贵人运！那么必得一子、如果你是抽签预测生子。如果你是抽签预测官司如果你是抽签预测搬迁:中签当你抽到观音音灵签第二十三签的时候？那么此地风水不错、如果你是抽签预测寻人。如果你是抽签问疾病。你心里想的事情都会有人帮助、那么这场官司不用打了！不过生命中也会有不少的困难让你学习， 如果你是预测交易的话。那么这门婚事就谈不成，那么恐怕怕是不好找,说明明疾病好转！理亏也，意意思是当你遇到困难的时候！主大吉！我在这里祝贺你，主大吉！但是抽签签的时候想的是家宅运的话、就会遇遇到贵人帮助你，观音灵签第二十三签是手板仙桂的预兆。、天赦星九宫怎么飞
