如何设计一个可以电脑随机抽奖程序 怎么设计一个抽奖的程序？
\u600e\u4e48\u5236\u4f5c\u4e00\u4e2a\u7535\u8111\u62bd\u5956\u7684\u7a0b\u5e8f\u662f\u62bd\u624b\u673a\u53f7\u5417\uff1f\u5b66\u4e60\u4e00\u4e0bVFP\u7a0b\u5e8f\u8bbe\u8ba1\u3002
解决方案1：
如果你是对编程一窍不通，又想快速学会做小程序的话，建议学flash+as3。因为flash本来就是动画软件，有简单易懂的界面绘制系统，不像java之类的语言需要用代码来解决界面问题。相对来说，初学者要做小程序，学这个会比较速成。
以下我列举一些你制作这个程序应该要用到的一些基本知识，你搞懂这些大概就可以做出这个程序了。不过，这样速成的学习方法，也会有弊端，我会在下面补充说明。
首先你可以熟悉一下flash的界面。为编程做准备，至少要了解库和属性面板，要了解影片剪辑或按钮。
然后应该学习一下编程的基本知识，比如变量(Variable)、数据类型(Datatype)、方法(Method)的概念，还有if、for等常见语句的用法。你可以把这些当关键词在百度搜索一下（如果直接搜搜不到相关内容，可以多加一个关键词，比如编程或as3之类的，如果中文搜不到就搜英文关键词）。
要了解一下as3的常用语法。比如声明变量、方法的语句。关于这个可以搜一下as3的var和function关键词。
最后，当你对编程有了一个大致的概念之后，你就可以着手准备你的这个小程序。
你可能需要用到的关键方法：
addEventListener() //你最可能用到的事件是MouseEvent.CLICK
Math.random()
Math.round()或Math.floor()或Math.ceil() //这三个都是可以用来数字取整的方法，有细微的不同
addChild()
因为你是初学者，即使是做这么简单的小程序，也有可能会遇到各种各样的情况。建议你一开始不要想得太复杂，把基本的效果做出来再说，否则很有可能在一些非关键的问题上屡屡碰壁，最后半途而废。而且有时因为自己想得太复杂，遇到问题连想问人都没法问，因为表达不清楚。
如果只是抽奖的程序，学会了以上这些之后，要做出来应该没有什么大问题。如果你要搞什么附加的模块，那就另当别论了——比如用户帐号、联网、界面特效等等，我列举的知识点不足以支持实现这些功能，那需要更多的学习。
那么，最后说一下这种速成学习法的弊端。
很明显的，速成=基础不扎实，这简直就是自然而然的逻辑关系。
有可能出现的结果是：学习花的时间少，但写代码的效率低，花的时间多；一旦出现错误，不知道该如何排错；跟别人交流的时候，听不懂各种术语；代码不规范，别人不好帮你修改……等等。
要解决这些问题，只有一个途径，就是系统、正规地学习编程。但是这样一来，跟你这个问题的出发点就相差十万八千里了。这就好比，本来你只是想自己做一艘船。但想做一艘正儿八经的船，而不是玩具船，不是破破烂烂的船，那就要费不少功夫。从它的材料开始，精心培育树木、采集矿物、打制零件……如此涉及到整个制船业的知识。看起来，你并没有打算走那么深。
如果我仅仅告诉你速成的学习方法，感觉上有点儿像害人。因为对于学习编程来说，这不是一个好的开始。但如果我告诉你“乖乖从基础开始学起吧”，似乎又有点儿强行替你做决定的感觉。
总而言之，现在我把两个选项都告诉你了。
从基础开始系统地学习，这样比较正规，但也比较枯燥，可能你自学了半天也做不出什么像样的东西，然后最初的那股兴趣就渐渐消失了。不过，如果是这样，flash+as3的建议就不一定合适了，或许你要仔细考虑一下职业规划什么的，再决定发展的方向——这样的话，就是比较严肃的话题了。
速成的学习法，如果你悟性好的话，能比较快地掌握一些重点的知识，对编程有一个大概的了解（但是悟性不好的话，说不定反而会搞得更烦躁），很快地做出一些小成果出来。不感兴趣的话，那就这样了。感兴趣的话，再往后发展。基础的缺乏、不良的书写代码习惯，这些也是可以后来再补充、纠正的。如果你不确定要往编程这条路上深入发展（比如打算以码农为职业），倒也可以用这种方法玩票，能走多远算多远。
解决方案2：
网赛有很多模版。没必要自己做
解决方案3：
不知道你会那些语言啊 做桌面的一般用C# Web的用J2EE 至于什么编程软件 ，，，，，建议还是自己补一补知识把，这个我不知道怎么回答你 貌似你好象什么都不知道
相比传统的抽奖箱抽奖，现在有更多的抽奖软件可以用。抽奖可以分为福利发放式的运气性发奖和炒热气氛式的竞技性发奖。经过细致的调研选择，下面为您介绍截至目前最好用最有创意的抽奖软件！
无需下载软件，网站注册填写奖品信息即可使用。不但发奖核销方便，也可以带动现场气氛，更好的提高活动的趣味性和质感。实测专业稳定，而且免费开放，同时满足各种自定义需求，千人千面有特色，兼具气氛品质效果！
1：3D抽奖
作为历来年会的压轴抽奖环节，很多公司都会选择微媒网络-大屏互动团队开发的“3D酷炫抽奖”形式。大屏上3D效果滚动所有伙伴的头像，在全场高度关注下，寻觅现场锦鲤，送福利同时轻松吸引全场目光，现场氛围嗨翻天。
2：红包雨
活动现场怎么能没有红包的身影呢，通过红包雨互动，大屏幕和嘉宾手机屏幕同步掉落红包，参会者只需要点击手机，就可以领取各种红包礼品。实物奖品现场凭借兑换码兑换，现金可直接进入微信或者钉钉钱包，真的很方便！
3：摇一摇互动
摇一摇互动在微媒率先开发出来之后迅速风靡全国各大活动现场，当全场用户在同一刻同时疯狂摇动手机，氛围瞬间点燃。 支持多种活动形式：拔河、赛车，赛龙舟，游艇赛等。元素均支持自定义，无穷变换惊喜和嗨翻天现场气氛，是活动必备环节。
4：答题闯关
答题闯关很适合穿插在会议中间环节，可以利用答题闯关进行现场知识和技能的PK；灵活的题库配置，紧张刺激的现场答题新方式，题目答案的自定义设置，让活动变得更有创意，更能达到寓教于乐的效果～
5：幸运大转盘
参会者点击手机端中心按钮，大转盘就会加速转动。大屏端同步的转盘抽奖效果，实现台上大屏端和台下手机端的完美串联，游戏过程更透明、更刺激，营造现场的火热感。同时可以作为线下吸引人群参加活动的利器：通过大转盘抽奖，吸引人群关注活动。同时支持签到送好礼，趣味送福利。
6：全民战疫
2020年全民对抗疫情，极大提高了民族凝聚力，众志成城，攻坚克难。结合了疫情期消灭病毒的想法，玩法和水果忍者相似。企业可以通过这个互动，提升企业内部凝聚力，普及对健康习惯的认知。
7：描福
“笔酣墨饱谢吉祥，行云流水过福年”，描福互动可以让大家在活动中，书写心中起祈愿。同时还可以自定义描福对象，可以是福字或品牌logo，主办方可以设置多轮描福。通过累计的描福分数做奖品激励。
如上所有的互动，1000人以内免费即可使用！同时搭配奖品核销系统和直播系统，连接线上线下构成活动整体解决方案，并由支持过阿里双十一和各种大型会议的微媒网络大屏互动团队研发并在线提供会务经验及技术支持，更在年会季期间为您提供完备的年会/晚宴活动策划解决方案（邀请函、签到、弹幕、抽奖、红包雨、照片墙、投票评分、流程控台、年会直播/云年会等），能很好的帮您解决您遇到的问题。
绛旓細0鈥100闅忔満鎶藉灏忕▼搴 棣栧厛锛屾垜浠潵鐪嬩竴涓嬭繖涓皬绋嬪簭鐨勭晫闈傚畠闈炲父绠娲佹槑浜嗭紝鍙湁涓涓杈撳叆妗嗗拰涓涓寜閽傚湪杈撳叆妗嗕腑锛屾垜浠彲浠ヨ缃腑濂栨鐜囷紝姣斿璇达紝鎴戜滑璁剧疆涓姒傜巼涓10%銆傜劧鍚庯紝鐐瑰嚮鎸夐挳锛屽氨鍙互闅忔満鎶藉彇涓涓暟瀛椾簡銆傛帴涓嬫潵锛屾垜浠潵鐪嬩竴涓嬭繖涓皬绋嬪簭鐨勫疄鐜板師鐞嗐傚叾瀹烇紝杩欎釜灏忕▼搴忛潪甯哥畝鍗曪紝鍙渶瑕佺敤...
绛旓細2锛氱紪绋嬫彁绀猴細鍙互閲囩敤ADO鎶鏈鍙朅CCESS鏁版嵁搴撲腑鐨鎶藉浜哄憳淇℃伅銆傚湪绋嬪簭涓畾涔変竴涓粨鏋勪綋鏁扮粍鐢ㄤ簬淇濆瓨璇诲叆鐨勬娊濂栦汉淇℃伅銆傚彲浠ラ氳繃鑿滃崟涓殑鈥滆缃濋夐」鏉ヨ瀹氫竴绛夊锛屼簩绛夊锛屼笁绛夊鍜岄紦鍔卞鐨勪汉鏁般傚湪鑿滃崟涓鏈変竴涓鈥滃紑濮嬫娊濂栤濋夐」锛岄夊畾鍚庯紝灞忓箷杩涘叆鍏ㄥ睆骞曠姸鎬侊紝寮濮嬪惊鐜殑锛闅忔満鐨勬樉绀烘娊濂栦汉鐨勫彿鐮侊紝...
绛旓細闅忔満涓嶉噸澶嶆娊鍙栵紝鎶藉畬鍋滄 涓涓鎸夐挳锛岃緭鍏ヤ唬鐮佸涓嬶細Private Sub Command1_Click()Static num(1 To 9), c As Integer If c = 9 Then Exit Sub c = c + 1 Dim s, i Randomize begin:s = Int(Rnd() * (9 - 1 + 1)) + 1 If num(s) <> 1 Then i = s num(s) = 1 Else...
绛旓細鍟嗗満鎼炴椿鍔ㄦ兂瑕佸埗浣涓涓娊濂栫▼搴忥紝浠婂ぉ鎴戜滑灏辨潵鐪嬬湅浣跨敤vb6.0鍒朵綔鎶藉灏忕▼搴忕殑鏁欑▼銆1銆侀鍏堝惎鍔╲b6.0锛屾墽琛屾枃浠-鏂板缓鍛戒护锛屽脊鍑烘柊寤哄伐绋嬪璇濇锛屽湪璇ュ璇濇涓夋嫨鏍囧噯鐨別xe鍚庣偣鍑绘墦寮鎸夐挳锛岃繘鍏b绋嬪簭涓荤晫闈2銆佸湪涓荤晫闈腑锛屾寜浣忛紶鏍囧乏閿寜浣忕獥浣撳懆鍥寸殑浠绘剰涓涓皬姝ｆ柟褰㈣繘琛屾嫋鎷斤紝璋冭妭绐椾綋鐨勫ぇ灏忥紝鐩磋嚦...
绛旓細Private Sub Command1_Click()Dim WinNum$, RndNum$, i&, j& Randomize WinNum = "6720819"For i = 1 To 7 RndNum = RndNum & Int(Rnd * 10)Next Print "涓鍙:"; WinNum, "闅忔満鏁:"; RndNum, WinLevel(WinNum, RndNum)End Sub Function WinLevel$(WinNum$, RndNum$)Dim a...
绛旓細涓轰簡甯姪缃戝弸瑙ｅ喅鈥濡備綍璁捐涓涓彲浠ョ數鑴戦殢鏈烘娊濂栫▼搴忥紵鈥濈浉鍏崇殑闂锛屼腑鍥藉缃戦氳繃浜掕仈缃戝鈥滃浣曡璁′竴涓彲浠ョ數鑴戦殢鏈烘娊濂栫▼搴忥紵鈥濈浉鍏崇殑瑙ｅ喅鏂规杩涜浜嗘暣鐞,鐢ㄦ埛璇︾粏闂鍖呮嫭:RT,鎴戞兂鐭ラ亾:濡備綍璁捐涓涓彲浠ョ數鑴戦殢鏈烘娊濂栫▼搴忥紵锛屽叿浣撹В鍐虫柟妗堝涓嬶細瑙ｅ喅鏂规1锛氬鏋滀綘鏄缂栫▼涓绐嶄笉閫氾紝鍙堟兂蹇熷浼氬仛灏...
绛旓細褰撳勾缁堟椂锛屾湁浜涗紒涓氫細缁勭粐鑱屽伐鑱旀浼氾紝鍙兘杩樹細鎼炰釜鎶藉鐨勫皬鑺傜洰澧炴坊涔愯叮锛屼笅闈㈠氨浠嬬粛涓涓鐢‥XCEL鍋氱殑绠鍗曠殑鎶藉宸ュ叿銆傜涓姝ワ細鐢昏〃鏍煎亣璁惧叡鏈30浣嶈亴宸ワ紝灏遍渶瑕30涓彿鐮侊紝鍏堟寜涓嬪浘鐨勬牱瀛愭妸1鑷30涓彿鐮佸～鍒楀埌涓涓伐浣滆〃涓備负浜嗙編瑙傦紝鍙互鎶婂瓧浣撹鎴愯嚜宸卞枩娆㈢殑棰滆壊锛屽姞涓婅竟妗嗭紝鍐嶆妸鍙风爜浠ュ鐨勭綉鏍肩嚎...
绛旓細command1鐢ㄦ潵闅忔満鎶藉彇锛宼ext2鏄剧ず text1鐢ㄦ潵鑷繁杈撳叆 command2鐢ㄦ潵鍒ゆ柇 鍩烘湰鎬濇兂锛氬亣璁捐繛缁湁a浣嶇浉鍚岋紝缁忚繃楠岃瘉濡傛灉涓虹湡鍒欏緱鍑虹粨鏋滐紝濡傛灉涓哄亣锛屽垯鍋囪a=a-1浣嶇浉鍚屸︹︾洿鍒癮=0 涔熷彲浠ヨ嚜宸辫緭鍏ext2鏁版嵁鏉ユ楠岀▼搴 杩欐绋嬪簭涓嶅眬闄愪簬7浣嶆暟 Private Sub Command2_Click()Dim a$, b$, i%, j%, k a...
绛旓細Slide1.Label1.Caption = Int(Rnd * 120 + 1)End Sub 杩欏彞浠ｇ爜鍙互鎰忔濇槸鈥滅偣鍑诲懡浠ゆ寜閽瓹ommandButton1鐢熸垚涓涓1鍒120涔嬮棿鐨闅忔満鏁存暟锛屽苟鎶婂畠杈撳嚭鍒版爣绛緇abel1鈥濅笂銆傗濊繕瑕佹敞鎰忎竴鐐癸紝杩欓噷缂栧啓鐨刅B绋嬪簭瀹為檯涓婂氨鏄滃畯鈥濄傚緢澶氫汉鎶婄梾姣掔紪鍐欎负瀹忥紝闅忕潃鐢ㄦ埛鎵撳紑ppt鏂囨。锛岀梾姣掑氨杩涘叆浜嗕綘鐨鐢佃剳銆傛墍浠ヤ负浜...
绛旓細command1鐢ㄦ潵闅忔満鎶藉彇锛宼ext2鏄剧ず text1鐢ㄦ潵鑷繁杈撳叆 command2鐢ㄦ潵鍒ゆ柇 鍩烘湰鎬濇兂锛氬亣璁捐繛缁湁a浣嶇浉鍚岋紝缁忚繃楠岃瘉濡傛灉涓虹湡鍒欏緱鍑虹粨鏋滐紝濡傛灉涓哄亣锛屽垯鍋囪a=a-1浣嶇浉鍚屸︹︾洿鍒癮=0 涔熷彲浠ヨ嚜宸辫緭鍏ext2鏁版嵁鏉ユ楠岀▼搴 杩欐绋嬪簭涓嶅眬闄愪簬7浣嶆暟 Private Sub Command2_Click()Dim a$, b$, i%, j%, k a...
