搞拉票助选_范文大全

搞拉票助选

【范文精选】搞拉票助选

【范文大全】搞拉票助选

【专家解析】搞拉票助选

【优秀范文】搞拉票助选

范文一:台湾政客“网红”攻略:拼粉丝、拉选票、搞“谍战” 投稿:傅鏜鏝

  作为政治人物,其社交媒体不可能如普通民众一般只是写写日程,聊聊感受。   蔡英文会利用网站功能发布一些在线活动,马英九的“脸书”还一度成为“热线”,帮助民众解决难题   3月14日,蔡英文给国民党主席候选人、前“副总统”吴敦义的帖子点了个赞。   当天,吴敦义在社交网站Facebook(脸书)上发帖,在介绍自己参选理念的同时,不忘批评蔡英文:“你可曾听到真正人民的声音?没有,因为你只在乎你自己!”   此帖一发,引发网友感慨,有意思的是,蔡英文的“脸书”账号也来“亲手”点赞,吴敦义对此表示“有点惊讶”。   一天后,曾经与蔡英文是竞争对手、想“炝炒”“空心菜”的“小辣椒”、国民党现主席洪秀柱不遑多让,同样在“脸书”上“搞出事情”。   当天,国民党中常会会议在洪秀柱的“脸书”主页上直播,议题之一是要不要提高党代表参选门槛,对此,国民党团总召廖国栋在直播中称,希望协商。   未料,洪秀柱的“脸书”此时在直播帖下留了言,称“协你老母鸡啦”,一时群议哗然。   在台湾,无论是蔡英文、洪秀柱,还是已经卸任的马英九,不管是年轻世代还是政坛大佬,每个政治人物都是社交媒体“老手”,人人都有“脸书”主页、多人拥有YouTube专属频道,对于Line和Instagram,也有不少政客算得上“行家里手”。今年春节这样的“表演时间”,政坛人物就纷纷在“脸书”上给大家拜年,马英九送春联,台北市长柯文哲赠红蛋,高雄市长陈菊直播发红包……   政界“网红”的“鸡汤”和“自黑”   “您好,我是蔡英文。”   2008年,蔡英文成为最初接触社交媒体的台湾政客之一,她开设了个人博客“小英的故事”。博客中的文章虽都与政见有关,还引入YouTube影片,但总体而言娱乐性不强,不过只要网友在博客上留言,就会有蔡英文的“亲自”回复,署名“IwT”(蔡英文名字的威妥玛注音为Tsai Ing-wen,编者注),甚至一次留言的时间是夜里两点十分,让粉丝盛赞其“废寝忘食”。   近些年,更具个人色彩、�含情绪的Plurk(噗浪)、Instagram和“脸书”在台更受欢迎。   “绿营”人物最早开始了“噗浪”风潮,这是一款类似微博的社交媒体,前“行政院长”苏贞昌、谢长廷可说是重度迷,苏贞昌甚至组织了线下“噗友”聚会,但前“副总统”吕秀莲曾批评,政客在噗浪讨好网友,是“不求上进”。   不过相比下,能让民众“废寝忘食”的社交媒体应该是“脸书”,有人称台湾人现在是“只看‘脸书’不看书”。据去年数据显示,“脸书”在台湾地区每月活跃用户数高达1500万人,使用率65%,居全球之冠。   如此受欢迎的平台,政治人物当然不能错过,正如马英九所称,“民众在哪里,当局就在哪里。”   2011年1月28日,马英九开设了“脸书”个人主页,一个月的时间,粉丝数量突破48万,成为台湾政坛中的第一个“网红”。   开设之初,马英九为自己的“脸书”定义了三个功能:理念传播、舆情搜集、意见交流,他称期待打造一个“与民众轻松交流、愉快互动的场域,让民众对公共议题的声音可以直接被听见,政府也能更有效率地将政策理念传送到民众眼前”。   与这句颇有些拗口的开场白相同,一开始,马英九的“脸书”风格有些刻板,基本只是各项活动议程的介绍,并表达看法或征求意见。   相比之下,2010年即开通“脸书”的蔡英文则更亲民。   和博客期相同,蔡英文重视回帖、经常留言同网友互动,此外,她还会发布宠物猫“蔡想想”的照片,以及一些比较感性的随笔,软化她常被诟病太过一板一眼的个人形象。   当然,作为政治人物,其社交媒体不可能如普通民众一般只是写写日程,聊聊感受。蔡英文会利用网站功能发布一些在线活动,比如支持“2025非核家园”和“援助日本”时,她发布活动专属胸章,认同这项活动的可以将胸章贴在自己的头像上,既传达了政治主张,也“上了粉”。   当时,作为在野党的政治人物,蔡英文还常常利用自己的社交媒体,批评马英九的政策,或者组织、倡议相关活动以示抗议。   如今,蔡英文成为台湾地区领导人,其社交媒体便多用来发表政策主张,偶尔还有些“鸡汤”,比如今年元旦,她转发台防务部门短片,称赞台军官兵的辛劳,称“我们的每一天,都是‘国军’战战兢兢的第一天”。   此前的“批评任务”则由如今最大在野党国民党主席洪秀柱接了班。   蔡英文上台后,多项转型政策触及方方面面,洪秀柱通过社交媒体,支持军公教、性少数、劳工等团体上街,甚至还亲自走上凯达格兰大道,带头发起反核灾食品游行。   同样,作为女性,洪秀柱也偶尔会在社交媒体一反她的“辣椒”形象。   去年12月27日深夜,面对国民党因黄复兴党代表并选案引发内讧,洪秀柱在“脸书”发出“阿柱讲心情”视频,详述她的心路历程,并称很抱歉让大家担心。影片中,她脱下平常所戴的假发,以真发亮相,还问网友这颗“新鲜的头”大家看得习不习惯。   2012年顺利连任后,马英九也偶尔会打打“温情牌”,他曾发文与夫人周美青“秀恩爱”,将一张30多年前二人谈恋爱时的合照,上传到“脸书”,一天内就获得7.5万人点赞。   除了晒出自己的生活,马英九的“脸书”还一度成为“热线”,帮助民众解决难题。有一次,一名台湾艺术大学学生在他的“脸书”发求救信,希望其帮忙“协寻失踪同学”,此事被“总统府”交办刑事部门,后来顺利找到了人。   临卸任的马英九还曾在“脸书”发布影片“自黑”,提及常被网友写进段子的“死亡之握”、“逆轰高灰”、鹿茸事件等。   选战“绿林军”   “婉君(即网军,台湾流行语,编者注),快来给我点赞!”   自从台北市长柯文哲利用“网络营销”筹集选举资金,成功当选台北市长,社交媒体在岛内选举中的作用就尤为凸显,这句话进而成为众多政客的心声。   柯文哲在胜选感言中称,“这是一场网络主导的选战”,引发不少感慨。台湾传统选举文化植根深厚,各种扫街、拜票、造势活动层出不穷,但柯文哲竞选团队的网络“军师”戴季全,却帮助柯文哲这个政治门外汉通过网络,夺取胜利。   “‘脸书’用户社群集中在20至40岁。”戴季全解释,他们监控社交网站,判断这些用户的喜好,进而决定柯文哲下一步要说什么、做什么,什么可以得到赞和转发。最终,“让全台湾的年轻人帮柯P拉台北市的票。”   不用摇旗�群埃�只要动动手指,就能掀起无比的影响力。作为公共人物,开辟公共平台向公众发声,拼民调、拉选票,无疑仍是政治人物的主要目的。在台湾如火如荼的“总统”选战中,年轻族群更是两党的必争之地。   马英九也曾尝试利用“脸书”吸引年轻人。   为准备2012年“大选”,其连任竞选办公室不但以“台湾加油赞”为名,模仿“脸书”的点赞行动,还成立“新媒体部”,由5位年轻人组成“K5”团队,专门负责新媒体运营。   当时,该团队推出了“早安打卡机”活动。这一活动的灵感来自年轻人喜欢赖床刷手机,游戏设计只有早上6点到10点半可点赞“打卡”,前10名网友可获得马英九签名的“早安赞卡”。活动第一天,马英九还实时上传首次在官邸“打卡”的画面,与网友分享。   2016年台湾“大选”时,这场“网友争夺战”更是“寸土必争”。   2015年10月,台湾一系列食品安全问题相继被曝出,蔡英文团队频繁在YouTube上通过图表统计和动画短片,来表达她在食品安全问题上的立场,直至2016年“大选”,这些宣传视频吸引了大约9万次观看。如今,民进党在YouTube的专属频道订阅数有17万,比国民党的1200多高了百倍不止。   “我们称此为动画政策,它可以在两三分钟内把事实解释清楚,还可以迅速通过Line、‘脸书’及其它形式的社交媒体加以传播。”民进党媒体创意中心前主任李厚庆说,为了迎战,需要多个社交媒体融合发展。   “大选”期间,蔡英文除了“脸书”,还在其他社交网站,如Instagram和Line上开通个人主页,创建标签、发表帖子,拉近年轻选民。   对于批评与指责,蔡英文团队选择不删留言,甚至曾称“欢迎大家来到‘脸书’的世界”。与此同时,他们也不遗余力培养“网络青年军”。这群被称为“绿林军”的青年在社交媒�w上充当舆论主攻手,只要有不利该党的新闻出现,便聚集而上,把自己的人气“刷”上去。   正是因此,2016年大选时蔡英文“脸书”的关注者比对手朱立伦多了80万人,而在2012年,她与对手马英九的差距也是80万粉丝,只不过当时她是少的那个。   相比之下,国民党方面没有多方作战,但也得到不少关注。当时该党“总统”候选人朱立伦的“脸书”主页,不仅有他的竞选广告片,也播放简短视频和卡通来宣讲他的政策。其中一段84秒的无声视频,只有一束光在朱立伦的额头上来来回回闪动,引起了众多网民的好奇。   对此,朱立伦几天后放出解释,称“我有缺点,是头发少了一点;但同时也是优点,会比别人亮一点”,这个视频的意思就是,“一路都有亮点”。   虽然这个视频引起了不少“回光返照”的揶揄,但最终还是得到了多数网友的“赞”。   雇“网秘”与“小编团”   “每次看到‘精彩的’留言,都有一股很想亲自回应的冲动。”   马英九在卸任视频中解释了他录此短片的原因,可是有网友质疑,原来,对马英九而言,亲自操刀只有冲动,没有行动。   同样的疑问也针对于其他政客,网友们点赞的原帖是不是政客本人发出?这些政治人物又是不是亲自浏览网友的留言呢?   也许不是。   蔡英文为吴敦义点赞“风波”延烧一段时间后,“总统府”出面澄清,称点赞这件事只是负责管理总统“脸书”的小编误触,目前已经更正。   这个“误触”出乎人们意料。实际上,无论是公开资料还是私下信源皆显示,蔡英文的“小编团”不管是规模还是经验,都是台湾政治人物中首屈一指的。   2008年蔡英文靠博客拉人气时,就配有“网络秘书”,以年轻人的视角帮其撰文,其中第三任“网秘”黄���B更是以“知性美女”走红网络,拉动点击率节节升高,也把自己送上了嘉义县议员的位子。   2009年,当选民进党主席的蔡英文下令成立网络部,选用熟悉网络社群操作技巧的“神秘高手”林阁雍担当主任。   此后,民进党发展出3个部门统筹网络业务。其中,新闻部专门负责接收各个社交媒体的用户回复,并分析判断是否立即处理;媒体创意中心收集各个社交媒体的网络信息,吸取别人的“好点子”;还有一个新闻舆情部,负责监看电视新闻、网络实时新闻、谈话节目等。   3个部门几乎24小时运作,不管民众发什么,甚至无论是否涉及了民进党和蔡英文,都尽在他们的掌握之中。同时,为防止重要文件外泄,民进党还给蔡英文起代号为“董事长”,政策委员会为“动脑部”,新闻舆情部为“吵架部”,媒体创意中心为“创意部”等,宛如一场网络“谍战”。   而反观“百年老店”国民党,因“不当党产”问题捉襟见肘、希望党员们“共体时艰”的主席洪秀柱这边,人员并不充裕。   “这的确是我的失误,但也是我真实的心声。”前述“母鸡门”发生后,当班小编孙楷恭承认,都是自己惹的祸,这位年轻的小编目前仍是中原大学的学生,同时担任洪秀柱社交媒体的志工。   据了解,目前洪秀柱的“小编团”有像他这样不固定的十几名志愿工作者轮班,负责全部网络宣传,包括在YouTube发表政见、在“脸书”公布计划、回复留言,运营粉丝团等。洪秀柱的“脸书”上,这些人也是频频露面,并且会在回复中“署名”――“肿小编”、“壮壮小编”、“爆肝小编”都是“回复名人”。   几天后的3月19日,洪秀柱的“脸书”主页上发了一张公鸡动图,配文称这是在“负鸡请罪”,“不要害小编、禽流感快过”,大方承认帖子都是小编团发出。   当然也有一些政治人物的账号是自己操刀,比如爱发自拍的谢长廷。   谢长廷现任台驻日代表,曾于陈水扁时期做过“行政院长”、现在已经年过七旬的他玩起“脸书”来,同样兴致不减――时不时发点自拍,洗着头的、坐地铁的,用自拍杆的、45度角的他全都试过;有时谢长廷也会用其他政坛人物的表情包当做配图,抒发感慨。   2014年,在接受岛内媒体采访时,有记者问他是否亲自操作,这位政坛“自拍狂魔”立马拿起手机,自拍一张,发到“脸书”,称“有图有真相,也请看官替我证明”。

范文二:猪八戒拉选票 投稿:黎冑冒

各位女士们、先生们:     你们好!     俺是老猪,今年500岁。本人一直想当一个大名鼎鼎的人物。本人爱大家,从不吃里扒外,而且关心大家,还曾陪唐僧西去取经呢!本人还曾微服私访,做过小本生意。     俺在取经途中,步行十万八千里,一路上降妖除魔,竭尽全力保护唐三藏。一路上,俺抛头颅、洒热血,赴汤蹈火,在所不辞,立下汗马功劳,并协助大师兄,历经九九八十一难,终于取得真经。取经路上的故事可以说是感人肺腑。     但让俺老猪沮丧的是,俺功劳有天高,苦劳有海深,却只被如来任命为“净坛使者”,真是气煞俺也!这正是俺竞选“小小市”市长的理由。     让俺欣慰的是,俺老猪攻读五年,终于获得博士学位,并先后在《天方夜谭》杂志上发表了《老猪照镜子——里外不是人》和《孙猴子照镜子——成佛之道》。更让人惊叹的是,俺文曲星学院聘为主编,还当上了第五届猪大代表呢!不过,俺对艺术的了解太肤浅,还需要不断学习。     为了这次竞选,俺夏战三伏酷暑,冬斗数九严寒;晴天一身灰,雨天一身泥,真真显出了猪大代表的风范!我相信:“有实力,当然也有魅力!”     我老猪肯定不负众望,尽力为大家做事!希望大家多多支持,谢谢。            竞选人:老猪(猪八戒)                 猪年猪月猪日

范文三:严禁拉票贿选 投稿:白嚞嚟

严禁拉票贿选。不准在民主推荐、民主测评、组织考察和选举中搞拉票等非组织活动,通过宴请、安排消费活动、打电话、发短信、当面拜访、委托或者授意中间人出面说情、举办联谊活动等形式,请求他人给予自己关照;不准贿赂代表;不准参与或者帮助他人拉票贿选。对拉票贿选的,一律排除出考察人选,已列为候选人的取消候选人资格,已经提拔的责令辞职、免职、降职或者依法罢免,贿选的还要依纪依法处理;参与或者帮助他人拉票贿选的,比照为自己拉票贿选的行为给予相应处理。

严禁买官卖官。不准以谋取个人职务晋升、调任、转任、留任或者提高职级待遇等为目的,贿赂他人;不准利用职务上的便利以为他人谋取职务晋升、调任、转任、留任或者提高职级待遇等为目的,索取、收受或者变相索取、收受贿赂。对买官卖官的,一律先予停职或者免职,再根据情节轻重进一步给予组织处理或者纪律处分;涉嫌违法犯罪的,移送司法机关依法处理;通过行贿手段获取的职务坚决予以撤销。

严禁跑官要官。不准采取拉关系、走门子或者要挟等不正当手段,谋取职务或者职级待遇;不准封官许愿,或者为他人提拔调动说情、打招呼。对跑官要官的,一律不得提拔重用,视情节给予批评教育或者相应的组织处理,并记录在案;对搞封官许愿或者为跑官要官的人疏通关系、说情、打招呼的,要严肃批评,造成用人失察失误等严重后果的还要追究责任。

严禁违规用人。不准违反规定程序选拔任用干部;不准突击提拔调整干部;不准任人唯亲,指定提拔调整人选;不准违反规定超职数配备领导干部,或者违反规定提高干部的职级待遇;不准利用职务便利私自干预下级或者原任职地区、单位的干部选拔任用工作;不准私自泄露民主推荐、民主测评、考察、酝酿、讨论决定干部等有关情况。对违反规定作出的干部任用决定,一律无效,并严肃追究相关人员的责任。

严禁干扰换届。不准以威胁、欺骗等手段妨害代表自由行使选举权、被选举权和表决权;不准编造、传播谣言,诬告陷害或者侮辱诽谤他人;不准在换届选举期间私自向代表赠送纪念品和

散发各种宣传材料;不准阻挠对违反换届纪律问题的调查和处理。对干扰破坏换届选举工作的,一律严肃查处,涉嫌违法犯罪的移送司法机关处理。

5个严禁”:

严禁拉票贿选、严禁买官卖官、严禁跑官要官、严禁违规用人、严禁干扰换届

17个不准”:

1、不准在民主推荐、民主测评、组织考察和选举中搞拉票等非组织活动,通过宴请、安排消费活动、打电话、发短信、当面拜访、委托或者授意中间人出面说情、举办联谊活动等形式,请求他人给予自己关照;

2、不准贿赂代表;

3、不准参与或者帮助他人拉票贿选;

4、不准以谋取个人职务晋升、调任、转任、留任或者提高职级待遇等为目的,贿赂他人;

5、不准利用职务上的便利以为他人谋取职务晋升、调任、转任、留任或者提高职级待遇等为目的,索取、收受或者变相索取、收受贿赂;

6、不准采取拉关系、走门子或者要挟等不正当手段,谋取职务或者职级待遇;

7、不准封官许愿,或者为他人提拔调动说情、打招呼;

8、不准违反规定程序选拔任用干部;

9、不准突击提拔调整干部;

10、不准任人唯亲,指定提拔调整人选;

11、不准违反规定超职数配备领导干部,或者违反规定提高干部的职级待遇;

12、不准利用职务便利私自干预下级或者原任职地区、单位的干部选拔任用工作;

13、不准私自泄露民主推荐、民主测评、考察、酝酿、讨论决定干部等有关情况;

14、不准以威胁、欺骗等手段妨害代表自由行使选举权、被选举权和表决权;

15、不准编造、传播谣言,诬告陷害或者侮辱诽谤他人;

16、不准在换届选举期间私自向代表赠送纪念品和散发各种宣传材料;

17、不准阻挠对违反换届纪律问题的调查和处理。 “5个一律”:

1、对拉票贿选的,一律排除出考察人选,已列为候选人的取消候选人资格,已经提拔的责令辞职、免职、降职或者依法罢免,贿选的还要依纪依法处理;参与或者帮助他人拉票贿选的,比照为自己拉票贿选的行为给予相应处理。

2、对买官卖官的,一律先予停职或者免职,再根据情节轻重进一步给予组织处理或者纪律处分;涉嫌违法犯罪

的,移送司法机关依法处理;通过行贿手段获取的职务坚决予以撤销。

3、对跑官要官的,一律不得提拔重用,视情节给予批评教育或者相应的组织处理,并记录在案;对搞封官许愿或者为跑官要官的人疏通关系、说情、打招呼的,要严肃批评,造成用人失察失误等严重后果的还要追究责任。

4、对违反规定作出的干部任用决定,一律无效,并严肃追究相关人员的责任。

5、对干扰破坏换届选举工作的,一律严肃查处,涉嫌违法犯罪的移送司法机关处理。

范文四:严禁拉票贿选 投稿:毛冗冘

严禁拉票贿选。不准在民主推荐、民主测评、组织考察和选举中,通过宴请、打电话、发短信、当面拜访等形式拉票;不准贿赂代表;不准参与或者帮助他人拉票贿选。对拉票贿选的,一律排除出考察人选,已列为候选人的取消候选人资格,已经提拔的责令辞职、免职、降职或者依法罢免,贿选的还要依纪依法处理;参与或者帮助他人拉票贿选的,比照为自己拉票贿选的行为给予相应处理。对买官卖官的,

严禁买官卖官。在严禁买官卖官方面,不准以谋取个人职务晋升、调任、转任、留任或者提高职级待遇等为目的,贿赂他人;不准利用职务上的便利,以为他人谋取职务晋升等索取、收受贿赂。对买官卖官的,一律先予停职或者免职,再根据情节轻重进一步给予组织处理或者纪律处分;涉嫌违法犯罪的,移送司法机关依法处理;通过行贿手段获取的职务坚决予以撤销。对跑官要官的。

严禁跑官要官。不准采取拉关系、走门子或者要挟等不正当手段,谋取职务或者职级待遇;不准封官许愿,或者为他人提拔调动说情、打招呼。对跑官要官的,一律不得提拔重用,视情节给予批评教育或者相应的组织处理,并记录在案;对搞封官许愿或者跑官要官的人疏通关系、说情、打招呼的,要严肃批评,造成用人失察失误等严重后果的还要追究责任。对违反规定作出的干部任用决定。

严禁违规用人。不准违反规定程序选拔任用干部;不准突击提拔调整干部;不准任人唯亲,指定提拔调整人选;不准违反规定超职数配备领导干部,或者违反规定提高干部的职级待遇;不准利用职务便利私自干预下级或者原任职地区、单位的干部选拔任用工作;不准私自泄露民主推荐、民主测评、考察、酝酿、讨论决定干部等有关情况。对违反规定作出的干部任用决定,一律无效,并严肃追究相关人员的责任。

严禁干扰换届。不准以威胁、欺骗等手段妨害代表自主行使选举权、被选举权和表决权;不准编造、传播谣言,诬告陷害或者侮辱诽谤他人;不准在换届选举期间私自向代表赠送纪念品和散发各种宣传资料;不准阻挠对违反换届纪律问题的调查和处理。对干扰破坏换届选举工作的,一律严肃查处,涉嫌违法犯罪的移送司法机关处理。

范文五:关于外联部拉赞助的搞笑剧本 投稿:邹鉞鉟

最佳答案应负上级任务匆忙写的一遍,结构不是很合理,可以修改

人物:小王(男)

小王:(走模特步上场,(配合时装秀的音乐)走得极其潇洒.)同志们好,同志们辛苦了,我就是武科大才貌双全,德艺双馨,品格出众,以德服人的闻名武科大的……

(外联部长上台,拍小王肩膀):说下去

小王:噢,我就是我就是武科大才貌双全,德艺双馨,品格出众,以德服人的闻名武科大外联部长座上第一干事王小伍是也。

部长频频向台下挥手,:同志们好

大家从四周跑过来:部长好

部长:同志们五一玩得辛苦了

大家:不累

部长:五一来了,我们外联部的工作要更上一层楼呀

大家:为人民服务

接下来有一个光荣而伟大的任务,据探子回报,在距武商建二商场约48度角,径长约为50米处有一家所谓的多利服装店,生意不错

女一:(打断)此店位处黄金地段,他们服务周到,待客诚实,童叟无欺。

女二:特别值得一提的是他们独家销售的多利系列服装,制作精良,耐刮耐磨,而且样儿也行。

男一:穿上这种服装,(扮酷)才知道男人不帅不要紧,但要穿得有个性。

男二:穿上这种服装,(扮酷)才知道男人不怕帅,就怕帅得没人看呀

部长:好,现在言归正转,上头有命令下来了,为配合校园文化艺术节,我们社联最近准备在学校周围搞一个现场服装秀活动。需要能找到有意向合作的商家,而且能为我们的MODEL提供免费的服装。我们现在的目标就是多利服装店,这次活动成功与否,全看我们外联的这次行动了,不过,听说这家服装店从不与学生合作,任务是相当艰巨呀,我希望有人能自告奋勇,勇挑重任,如果有人认为自己有能力负责这次行动,请上前一步走。

除小王大家一起往后退一步

部长:小王,我果然没看错你……

小王:(打断)部长,你弄错了,我没有向前走呀,部长,我真的不行。

部长:小王,你就别谦虚了,我知道你内心现在一定能为接受这个伟大的煅练而欣喜万分……

小王:(打断)可是部长,最近我的事很多呢,我们快要考试了,还有,我的高数重修开始了,还有,我对拉赞助,从来没有做过,根本没什么经验。

部长:(一把拉住小王)小王,不要说你这次不帮我,这是上头上达的死命令,去也得去,不去也得去,上次你让我帮忙要的国贸班女生的电话号码,我已经弄到了,你能不能拿到,全靠你的表现了。

小王:部长,你不会这么黑我吧,咱们可是纯洁的上下关系。你不要用这个来诱惑我,这对我没用的

部长:只要你愿意帮我这个忙,我帮你约他出来吃饭。

小王:你说的呀,男子汉,说

话一言九鼎。

部长:谁食言,谁上厕所

合:一去无回。

部长(对大家),刚才小王同学已经向我表了决心,他愿意一人独立承担这个艰巨而伟大的任务,让我们为他事事敢为人先的精神鼓掌。(大家鼓掌)小王,临行前,你还有什么要说的吗?

小王:(悲壮的音乐)正所谓我不入地狱,谁入地狱。

定格。雷声,话外音:我到底还是经不住诱惑呀我,2004年5月8号晚7:00,我跟一个错误的人在一个错误的时间在一个错误的地点做出了一个错误的承诺,错误,就这样开始了。

二幕(一柜台,一西装男士在柜台前转悠,一牌子上写着多利服装店)

小王在店外往里瞅了瞅,退了回来,又瞅了瞅,又退了回来。

小王:自语,呆会儿进去该怎么说呢,经理,你好,我是武汉科技大学校社联部的首席干事王小伍,我这次来主要是想谈一下我们合作的事情。

(模仿经理)是这样呀,欢迎欢迎,请问具体合作的内容呢?

噢,是这样我们最近准备搞一个服装秀的活动,需要借用你们的服装。

噢,这个没问题,瞧你小子长这么帅,今天我就看你面子上,服装嘛,借了能还就行了,以后有什么需要叫一声就行了。

您真是太客气了,多谢了,耶!就这么简单。

(小王往里面走了两步,又退了回来,)这心里咱就跳得这么厉害呢,不行,吸气呼气,再吸气,OK,喝点水压压惊,拿出一瓶矿泉水,手发抖,把水都抖了出来。

小王:好了,万事俱备,老天保佑我,划十字,冲进店里,走到西装男士面前,极快速地:经理,你好,我是武汉科技大学校社联部的首席干事王小伍,我这次来主要是想谈一下我们合作的事情。

是这样呀,欢迎欢迎,请问具体合作的内容呢?噢,是这样我们最近准备搞一个服装秀的活动,需要借用你们的服装。噢,这个没问题,瞧你小子长这么帅,今天我就看你面子上,服装嘛,借了能还就行了,以后有什么需要叫一声就行了。您真是太客气了,多谢了,搞定收功。

小王准备出门,对了,好象忘了还要做什么事呢。回过头,看见西装男士一脸茫然地站在那儿。

小王急忙走上前:噢,对不起,我第一次,太激动了,

男士:噢,没关系,有话好好说,来,先喝杯茶。

(小王握住茶杯的手不停地抖,把水都抖了出来。)

小王把水杯放在桌上,吸气,呼气,吸气

男士:这是干什么?

小王:家传的放松心情的内功心法,

男士:噢

小王:好了,OK,事情是这样的,我,就是武科大才貌双全,德艺双馨,品格出众,以德服人的闻名武科大外联部第一干事王小伍是也。为配合校园文化艺术节,我们社联最近准备在学校周围搞一个

现场服装秀活动。需要能找到有意向合作的商家,而且能为我们的MODEL提供免费的服装。

男士:噢 ,原来是这样,真是对不起,我实在是帮不了这个忙,

小王:不是吧,是不是我说的不够具体,

男士:不是

小王:是不是您对我们的活动不感兴趣。

男士:非常感兴趣。

小王:那是什么原因?

男士:其实我是……

服务员上场:先生您要的衣物。

男士:嗯是这个号码,给钱,。

服务员:欢迎再次光临。

小王:原来你不是……

男士:是的,我只是一名顾客,所以不能帮上你的忙,祝你成功了。(下场)

小王:我KAO。

服务员:请问先生需要什么衣服吗?

小王:对不起,我不是来买衣服的,请问小姐,你们的经理在吗?

服务员:对不起,我们的经理有事出去了。

小王:那不要紧,我可以等。

服务员: 您还是等会儿再来吧,我们现在正在做生意,大概五点钟,经理就回来了。

小王:那好吧。下场

(灯暗又亮,表明时间的流逝)

小王:看表,5点半了,经理应该回来了吧。进服装店门。

小王:请问,经理回来了没有。

服务员:您等一会,我现在就把经理叫出来。

经理上场,(握手)请座,请座。

经理:请问有什么事吗?

小王:是这样的,我,就是才貌双全,德艺双馨,品格出众,以德服人的闻名武科大外联部第一干事王小伍是也。为配合校园文化艺术节,我们社联最近准备在学校周围搞一个现场服装秀活动。需要能找到有意向合作的商家,而且能为我们的MODEL提供免费的服装。

经理:打断,对不起,是这样的,我们这家多利服装店只是一家分店,总部还在北京呢,公司里明文规定,服装不外借。

小王:(发愣)其实经理,我觉得规定是死的,人是活的,就好像我们学校规定了考试要遵守纪律,但是无论情况如何恶劣,总有同学能突破封锁……

经理:打断,可是同学,公司跟学校完全是两回事,如果我违反了公司的规定,轻则可能降薪,重点的就要降职了。

小王:经理,你叫我小王就可以了。听经理的口音,你好象是河南人吧。(河南话)是河南老乡呢

经理:(河南话)你是河南哪地方的。

小王:俺是湘弯的

经理:湘弯,俺晓得那地方,俺是新弯的。

小王:那好巧呀,俺们只隔一个村子。

经理:对的,对的,你还记得在村子口的那棵槐树吗?

小王:记得,记得,俺走的那天,它都长得有五层楼高了,现在那棵树还在不。

经理:在呀在呀,俺还记得那只叫旺财的狗呢。

小王:唉呀,俺记得那只狗好漂亮呀。

服务员上前:举一个牌子,上写,“公共场合,请讲普通话”

小王:(普通话)他乡遇老

乡。

经理:两眼闪金光。

小王经理:耶

小王:那我们现在再来谈谈合作的事情。

经理:小王,我不是不愿意帮忙,公司的制度不能随便地破坏呀,我可担不起这个责任。

小王:其实我也明白你的难处,正所谓人人有本难念的经嘛,其实我在学校里除了看书写字外,还学得了一门手艺,

经理:噢,是什么。

小王:我还会看星座呢。

经理:有意思,那你帮我看看。

小王:我看,经理一定是金牛座的,金牛座的人一般身形魁梧,体格健壮。(瞧见经理不说话)或者是白羊座的。白羊座的男人对爱情特别真诚,而且相当有爱心,懂得关怀和体贴人。(瞧见经理不说话),那要不是狮子座,狮子座的男人特别有事业心,有一股子韧劲,凡事不达目的誓不罢休,而且一般还相当的帅呀,哈哈,我就是狮子座的。(瞧见经理不说话)

经理:其实,我也不晓是自己是哪个座的。

小王:原来是这样呀,不过没关系,其实是哪个座的都不要紧,我相信呀,事在人为,做什么事,只要肯付出,肯努力,一定会成功的。

经理:是呀,是呀,当年呀,我高中没毕业就到外面去打工作,当时差点饿死在街头,幸亏有一个餐厅老板收留我。

小王:原来经理也在餐厅打过工呀,我暑假的时候也在一个小餐馆洗过盘子呢,不过,只干了一天。

经理:噢,是觉得累吗?

小王:不是的,干活的第一天,我就摔了五个盘子。我怕老板罚钱,就先跑了。

两人大笑。

小王:其实,我觉得做生意除了精明,诚信外,还有一点很重要。

经理:什么

小王:大胆。我是学经济的,以于市场来说,变换莫测,各行业都竞争得很激烈,一味地裹足不前只能是封闭自己,而真正的企业家则善于根据当前的形势进行大胆的创新,前几年在某地有一个袜子厂

生意很不好,后来一个职工建议所有的所有号码的袜子都统一价格,这样,可以利用顾客购物的心理来扩大市场,但是,如果,改革失败的话,袜子厂可能一下子就垮了,那个厂长经过郑重思考,采取了这个方案,于是,袜子销量猛增。这个厂也因此取得了可观的经济效益。

经理:嗯,有道理。

小王:我们这次合作搞服装秀,如果能穿上你们提供的服装,等于给你们做了活广告,可以为你们提高产品的知名度,这是一次很难得的机会,我希望你能把握这个机会,如果这次活动做得成功,相信你们店的生意会越来越好,虽然服装外借有违公司规定,可是公司里怎么会处罚一个业绩良好的职工呢

经理:嗯,我会详细考虑你的提议,这样吧,你留下一个电话,我有消息,好联系你。

小王:好的。写下手机号

经理送小

王出门:希望以后能多多有这样的合作机会。

小王:谢谢经理,以后我们长期地把合作做下去。

小王(出了门)耶。

第三幕:

小王:(对台下观众)经过我契而不舍的追求,这次赞助终于被我搞定了,这一次拉赞助真不简单,嘴皮子都磨了两斤,大家一定很想看看,我们外联部的真人服装秀吧,那就,COME ON!打响指,音乐响。

服装秀开始。…………

作者:曹新

范文六:彩票选号小助手 投稿:钱韬韭

课程设计(论文)任务书

人文社会科学

学院

公共事业管理

专业

一、课程设计(论文)题目二、课程设计(论文)工作自2011年6月11日起至日止。

三、课程设计(论文)地点:15#415615四、课程设计(论文)内容要求:1.本课程设计的目的

2011年6月25

为配合《VisualBasic程序设计教程》课程的教学,希望通过本课程的设计,使学生能够在掌握VisualBasic的基础知识、基本概念之后提高综合运用所学知识编制实用程序的能力,将理论教学中设计的知识和实际应用贯穿起来,以达到对所学知识熟练掌握、灵活运用的目的。

2.课程设计的任务及要求1)基本要求:

对于给定的设计题目,知道如何进行分析、理解,以做到思路清晰懂得如何将一个大问题进行模块分解,领会结构程序设计的方法,并深刻认识到面向对象程序设计与面向过程程序设计的区别熟练掌握VB常用控件的使用,灵活运用各种数据类型进一步掌握在集成环境下调试程序和修改程序的方法和技巧2)创新要求:

在基本要求达到后,可进行创新设计,如使代码更加简单3)课程设计论文编写要求

(1)要按照书稿的规格打印与写课程设计论文

(2)论文包括目录、功能描述、设计思路、具体实现、运行调试与分析讨论、设计体会与小结、参考文献、附录(源代码)等(3)课程设计论文装订按学校的统一要求完成4)答辩与评分标准:

(1)考勤与学习态度:20分;(2)设计思路:20分;(3)代码实现:20分;

(4)调试与分析:20分;(5)回答问题:10分;(6)论文规范性:10分。5)参考文献

1.熊李艳,周美玲主编;吴昊,杜玲玲副主编《VisualBasic程序设计教程》:人民邮电出版社

2.李光明《VisualBasic6.0编程实例大制作》冶金工业出版社

3袁帅,郭月强等编写的《VisualBasic编程实例教程》北京希望电子出版社6)课程设计进度安排

内容查阅相关资料编程写试验报告

3天数44

地点北区15栋图书馆北区15栋615

学生寝室、北区15栋615学生签名:秦董丽

2011年6月23日

课程设计(论文)评审意见

(1)考勤与态度(20分):优()、良((2)设计思路(3)代码实现(5)回答问题

(20分):优()、良((20分):优()、良((10分):优()、良(

)、中()、中()、中()、中()、中()、中(

)、一般()、一般()、一般()、一般()、一般()、一般(

)、差()、差()、差()、差()、差()、差(

););););););

(4)调试与分析(20分):优()、良((6)论文规范性(10分):优()、良(

评阅人:职称:2009年1月17日

目录

绪论..........................................................................-1-一、功能描述........................................................-2-二、设计思路........................................................-2-三、具体实现........................................................-4-四、运行调试及结果分析...................................-8-五、设计体会与小结.........................................-12-六、参考文献......................................................-13-七、附录(核心代码)..........................................-13-

绪论

“Visual”指的是开发图形用户界面的方法。不需编写大量代码去描述界面元素的外观和位置,而只要把预先建立的对象加到屏幕上,一点即可。

Basic指的是beginnersall-purposesymbolicinstructioncode,一种在计算机技术发展历史上应用最为广泛的语言。

VisualBasic不仅是VisualBasic编程语言。VisualBasic编程系统和VBA都使用这一语言。

VisualBasic6.0包括三种版本,分别为学习版、专业版和企业版3三种版本,满足不同的开发要求。

3种版本中,企业版功能最全,专业版包括了学习版的功能。VB具有丰富数据类型是种符合结构化设计思想语言,VB采用了面对对象的思想,它基本思路是把复杂的设计问题分解为多个能够完成独立功能且相对简单的对象集合。所谓“对象”就是个可操作实体如窗体、窗体中命令按钮、标签、文本框等,面向对象编程就是指程序员可根据界面设计要求直接在界面上设计出窗口、菜单、按钮等类型对象并为每个对象设置属性。在Windows环境下是以事件驱动方式运行每个对象的都能响应多个区别事件,每个事件都能驱动段代码事件过程,该代码决定了对象功能。通常称这种机制为事件驱动的编程机制。可由用户操作触发也可以由系统或应用触发例如单击个命令按钮就触发了按钮Click(单击)事件该事件中代码就会被执行,若用户未进行任何操作(未触发事件)则就处于等待状态整个应用就是由彼此独立事件过程构成,VB为编程提供了个集成开发环境在这个环境中编程者可设计界面、

编写代码、调试直至把应用编译成可在Windows中运行可执行文件并为它生成安装VB集成开发环境为编程者提供了很大方便用vb设计出来的彩票选号小助手就是用vb设计程序的集成开发环境在这个环境中编程者设计界面、编写代码、调试直至把应用编译成可在Windows中运行可执行用于彩票选号的程序。一.功能描述

程序启动窗口

在启动窗口中单击“体育彩票”按钮后,进入体彩传统型电脑彩票的选号窗口。在该窗口中,每一注可单独投注,也可一次产生5注号码。单击“开始”按钮,则单选框所对应的那一注的各个号码开始滚动,当单击“停止”按钮后,左边窗口中的号码从左到右依次停止滚动,产生一注号码,其中最右边的特别号码只能是0~4中的一个。

在福利彩票选好窗体中单击右边的单选框选择投注的注数时,左边的

“幸运号码”区会相应地做出调整。如选择三注,则只显示三行空格。

单击“清除”按钮,则清除显示内容,以便进行下次投注,单击“返

回”则返回到启动窗口。

二.设计思路

根据题目要求,设计一个供彩民买彩票时投注选号的程序(即

自动生成投注号,不是开奖程序)。

目前我国发行的彩票主要有两大类,即体育彩票和福利彩票,每一类彩票都有多种投注方法。

窗体1中设计三个命令按钮,第一个命令按钮控制的是窗体2(传统型体育彩票),点击该命令按钮应该弹出窗体2,窗体1隐藏;第二个命令按钮控制的是窗体3(35选7电脑福利彩票),点击该命令按钮的时候弹出窗体3,窗体1隐藏

在窗体2中需要实现这个目的,彩民自己选一个彩票号码,由6位数号码(自0、1、2、3、4、5、6、7、8、9中选出)和一个特别号码(自0、1、2、3、4中选出)组成。即6位自然数号码为000000~999999共100万个号码。特别号码为0~4共5个自然数,特别号码放在6位自然数号码后,与6位数自然数号码不形成排列或顺序关系。根据这些,建立两个框架,在第一个框架中,建立7个text控件数组;在第二个框架中设计option控件数组,为了实现数字的滚动,建立7个计时器,另外建立了四个命令按钮,分别为开始、停止、自动、返回主界面,在这需注意,开始和停止两个命令不能同时使用。窗体3需要实现的目的是在1~35共35个自然数中选择任何7个数组合成1注进行投注,单注中数字不能重复出现,电脑机选最少1注,最多5注,这5注号码不能重复。

根据这些要求,首先建立两个框架,然后在第一个框架中设计Text的控件数组,一共35个;在第二个框架中建立5个option;另外需要建立三个命令按钮,分别是开始、清楚、返回主界面。

通过利用vb6.0设计程序。打开vb6.0程序,设计彩票选号程序界面,在一个工程中生成三个form窗体,分别对各个窗体进行界面控件设计,再对各个控件进行代码编写。

一些具体声明的变量和函数方法如下:PrivateSubCommand1_Click()

(控件点击的调用方法)

Command2.Enabled=(窗体控件是否可用)PrivateSubForm_Load()(窗体运行)PrivateSubTimer1_Timer()(计时器)CallCommand2_Click(调用控件)DimkAsInteger;For

DoEvents

PrivateSubCommand1_Click()Form1.HideForm2.Show

EndSub(不同窗体的切换方法)

Option5.Value=True

Text1(i).Text=(对控件属性进行赋值的方法)Founction过程Usechar等函数

三.具体实现

把各个窗体中的各个控件的option属性改成想要的内部创建文件的代码如下

(form1)

1).PrivateSubCommand1_Click()Form1.HideForm2.ShowEndSub

PrivateSubCommand2_Click()Form1.HideForm3.ShowEndSub

PrivateSubCommand3_Click()

EndEndSub(在窗体一中实现体彩和福彩及退出程序的选择的代码)

(form2)

1).设置计时器interval属性不为2).DimaAsInteger

PrivateSubCommand1_Click()Command2.Enabled=TrueCommand1.Enabled=FalseTimer1.Enabled=True……….….EndSub

PrivateSubCommand2_Click()DimiAsLongj=0

Command2.Enabled=FalseFori=1To3000Forz=1To3000j=jNextzNextiDoEvents….……

PrivateSubTimer1_Timer()Randomize

Text1(a).Text=Rnd*100Mod10EndSub…….…….

PrivateSubTimer7_Timer()Randomize

Text7(a).Text=Rnd*20Mod5EndSub

(实现计时器和文本框里变化数字的衔接)3)..PrivateSubOption1_Click(IndexAsInteger)DimiAsIntegerFori=1To5

IfOption1(i-1).ValueThena=i-1EndIfNextiEndSub

PrivateSubCommand3_Click()Command1.Enabled=FalseCommand2.Enabled=FalseDimkAsIntegerFork=1To5a=k-1

CallCommand1_ClickDoEventsFori=1To3000Forz=1To3000j=jNextzNexti

DoEvents

CallCommand2_ClickDoEventsNextkEndSub(Form3)

1).FunctionGenNnm()AsString

Dimstr1AsString

DimiAsInteger,NumAsIntegerDimusecharAsStringusechar

=

"0102030405060708091011121314151617181920212223242526272829303132333435"

str1=""RandomizeFori=1To36

Num=Len(usechar)*Rnd+1IfNumMod2=1Then

str1=str1+Mid(usechar,Num,2)Else

str1=str1+Mid(usechar,Num-1,2)EndIfNextiGenNnm=str1EndFunction

PrivateSubOption2_Click()

DimiAsInteger

Fori=14To34

Text1(i).Visible=False

Nexti

Fori=0To13

Text1(i).Visible=True

Nexti

Fori=0To34

Text1(i).Text=""

Nexti

EndSub

(option所涉及的彩票注数与文本框里显示联系起来的代码)

2)).PrivateSubCommand1_Click()

DimiAsInteger,jAsInteger,dAsInteger

DimaAsString

d=1

Fori=0To34

Text1(i).Text=Mid$(GenNnm,d,2)

d=d+2

Nexti

'1-7排序并去初重复

件个数的衔接)(通过该方法实现所选投股数与窗体所能显示的text控

四)运行调试及结果分析

图3.1启动窗口

⑵在启动窗口中单击“体育彩票”按钮后,进入体彩传统型电脑彩票的选号窗口(如图3.2所示)。在该窗口中,每一注可单独投注,也可一次产生5注号码。单击“开始”按钮,则单选框所对应的那一注的各个号码开始滚动,当单击“停止”按钮后,左边窗口中的号码从左到右依次停止滚动,产生一注号码,其中最右边的特别号码只能是0~4中的一个(如图3.3所示)

图3.2“体育彩票”界面

图3.4生成一组号码

如果单击“自动”按钮,则从上到下一次产生5注号码(如图3.4所示)

图3.5生成全部号码

图3.6

“福利彩票”界面

图3.7生成3注号码

单击右边的单选框选择投注的注数时,左边的“幸运号码”区会相应地做出调整。如选择三注,则只显示三行空格。

单击“清除”按钮,则清除显示内容,以便进行下次投注,单击“返回”则返回到启动窗口。

结果:程序设计基本符合要求

五.设计体会与小结

为了让我们加深对VB教程学习的理解,期末老师引导我们做了这个课程设计。起初还十分担心,因为对自己掌握的VB只是并不自信。但是,为了做好本次课程设计,我认真复习了《VisualBasic程序设计教程》的相关知识,对实验中所需涉及到的知识有更深入的了解和掌握。在这一切的充分准备下,我认为,程序设计目的已较明确,程序实现起来较顺利,这让我体会到了平时踏实积累学习知识的重要性。实验中与同学的交流合作,让我们彼此间的知识和思维进行了碰撞和进步。本次课程设计的实验报告确实让我学习到了许多新鲜的知识,我更进一步了解了VisualBasic程序设计教程的相关知识,由于使用了VB语言进行程序的编写,这就在一定程度上锻炼了自己在VB方面的水平,也让我深刻地理解了,一种语言可以应用到很多的方面,尤其是在当今社会,对计算机的掌握水平提出了更高的要求。作为一名合格的大学生,一名以后能胜任自己岗位的工作者,更要不断提升自己对计算机的掌握水平。通过这次课程设计,我对原有的VB教材更加熟悉,了解更加透彻,运用更加灵活,获益匪浅。

我想这些都会对我以后的工作学习产生深刻的影响。即使以后不从事系统软件方面的工作,这些代码实现的技巧也会对我作其他软件开发工作带来极大的助益。同时,对阅读内核代码进行阅读、总结的过程也提高了我的分析问题、解决问题的能力,而这种能力是无论做什么工作都需要的。

在这过程中,让我懂得了团队合作非常的重要,在这期间我有很多不懂的问题,通过和同学一起讨论,很多问题都得到了有效的解决,这样不仅加深了和同学之间的友谊,也使我们在编程中有许

多的乐趣。

这次程序设计,使我认识到,自己之前对VB的教材了解不够深入,只停留在知道的层面,这远远不够,我应该在以后的学习中,学会“学以致用”,知识只有用得多了才更熟练更深入,必须强化这一观念,不断提升自己在各方面的学习进步。

六)参考文献

1.熊李艳,周美玲主编;吴昊,杜玲玲副主编《VisualBasic程序设计教程》:人民邮电出版社

2.李光明《VisualBasic6.0编程实例大制作》冶金工业出版社

3袁帅,郭月强等编写的《VisualBasic编程实例教程》北京希望电子出版社4郑炳文编著《visualBasic程序设计例题汇编》清华大学出版社

附录(核心代码)

Form1中的代码

PrivateSubCommand1_Click()Form1.HideForm2.ShowEndSubPrivateSubCommand2_Click()Form1.HideForm3.ShowEndSubPrivateSubCommand3_Click()EndEndSubForm2中的代码DimaAsIntegerPrivateSubCommand1_Click()Command2.Enabled=TrueCommand1.Enabled=FalseTimer1.Enabled=TrueTimer2.Enabled=TrueTimer3.Enabled=TrueTimer4.Enabled=TrueTimer5.Enabled=True

Timer6.Enabled=TrueTimer7.Enabled=TrueEndSubPrivateSubCommand2_Click()DimiAsLongDimzAsLongDimjAsLongj=0Command2.Enabled=FalseFori=1To3000Forz=1To3000j=jNextzNextiDoEventsTimer1.Enabled=FalseFori=1To3000Forz=1To3000j=jNextzNextiDoEventsTimer2.Enabled=FalseFori=1To3000Forz=1To3000j=jNextzNextiDoEventsTimer3.Enabled=FalseFori=1To3000Forz=1To3000j=jNextzNextiDoEventsTimer4.Enabled=FalseFori=1To3000Forz=1To3000

j=jNextzNextiDoEventsTimer5.Enabled=FalseFori=1To3000Forz=1To3000j=jNextzNextiDoEventsTimer6.Enabled=FalseFori=1To3000Forz=1To3000j=jNextzNextiDoEventsTimer7.Enabled=FalseCommand1.Enabled=TrueEndSub

PrivateSubOption1_Click(IndexAsInteger)DimiAsIntegerFori=1To5IfOption1(i-1).ValueThena=i-1EndIfNextiEndSubPrivateSubCommand3_Click()Command1.Enabled=FalseCommand2.Enabled=FalseDimkAsIntegerFork=1To5a=k-1CallCommand1_ClickDoEventsFori=1To3000

Forz=1To3000j=jNextzNextiDoEventsCallCommand2_ClickDoEventsNextkEndSubPrivateSubCommand4_Click()Form2.HideForm1.ShowEndSubPrivateSubForm_Load()Command2.Enabled=FalseOption1(0).Value=TrueTimer1.Enabled=FalseTimer2.Enabled=FalseTimer3.Enabled=FalseTimer4.Enabled=FalseTimer5.Enabled=FalseTimer6.Enabled=FalseTimer7.Enabled=FalseEndSub

PrivateSubTimer1_Timer()RandomizeText1(a).Text=Rnd*100Mod10EndSubPrivateSubTimer2_Timer()RandomizeText2(a).Text=Rnd*100Mod10EndSubPrivateSubTimer3_Timer()RandomizeText3(a).Text=Rnd*100Mod10EndSubPrivateSubTimer4_Timer()

RandomizeText4(a).Text=Rnd*100Mod10EndSubPrivateSubTimer5_Timer()RandomizeText5(a).Text=Rnd*100Mod10EndSubPrivateSubTimer6_Timer()RandomizeText6(a).Text=Rnd*100Mod10EndSubPrivateSubTimer7_Timer()RandomizeText7(a).Text=Rnd*20Mod5EndSubForm3中的代码OptionExplicit

PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,dAsIntegerDimaAsString

d=1Fori=0To34Text1(i).Text=Mid$(GenNnm,d,2)d=d+2Nexti'1-7排序并去初重复aa:Fori=1To6Forj=0ToiIfVal(Text1(j).Text)>Val(Text1(i).Text)Thena=Text1(i).TextText1(i).Text=Text1(j).TextText1(j).Text=aEndIfNextjNextiForj=0To6

IfVal(Text1(j).Text)=Val(Text1(j+1).Text)Thend=1Fori=0To6Text1(i).Text=Mid$(GenNnm,d,2)d=d+2NextiGoToaaEndIfNextj

'7-14排序并去处重复bb:Fori=8To13Forj=7ToiIfVal(Text1(j).Text)

EndIfNextjNexti

Forj=14To20IfVal(Text1(j).Text)=Val(Text1(j+1).Text)Thend=29Fori=14To20Text1(i).Text=Mid$(GenNnm,d,2)d=d+2NextiGoToccEndIfNextj'21-28排序dd:Fori=22To27Forj=21ToiIfVal(Text1(j).Text)

Nextj

'28-35排序并去处重复ee:

Fori=29To34Forj=28ToiIfVal(Text1(j).Text)

FunctionGenNnm()AsStringDimstr1AsStringDimiAsInteger,NumAsIntegerDimusecharAsStringusechar="0102030405060708091011121314151617181920212223242526272829303132333435"str1=""RandomizeFori=1To36Num=Len(usechar)*Rnd+1IfNumMod2=1Thenstr1=str1+Mid(usechar,Num,2)Elsestr1=str1+Mid(usechar,Num-1,2)EndIfNextiGenNnm=str1

EndFunction

PrivateSubCommand2_Click()DimiAsIntegerFori=0To34Text1(i).Text=""NextiEndSub

PrivateSubCommand3_Click()Form3.HideForm1.ShowEndSub

PrivateSubForm_Load()Option5.Value=TrueEndSub

PrivateSubOption1_Click()DimiAsIntegerFori=7To34Text1(i).Visible=FalseNextiFori=0To34Text1(i).Text=""NextiEndSub

PrivateSubOption2_Click()DimiAsIntegerFori=14To34Text1(i).Visible=FalseNextiFori=0To13Text1(i).Visible=TrueNextiFori=0To34Text1(i).Text=""Nexti

EndSub

PrivateSubOption3_Click()DimiAsIntegerFori=21To34Text1(i).Visible=FalseNextiFori=0To20Text1(i).Visible=TrueNextiFori=0To34Text1(i).Text=""NextiEndSub

PrivateSubOption4_Click()DimiAsIntegerFori=28To34Text1(i).Visible=FalseNextiFori=0To27Text1(i).Visible=TrueNextiFori=0To34Text1(i).Text=""NextiEndSub

PrivateSubOption5_Click()DimiAsIntegerFori=0To34Text1(i).Visible=TrueNextiFori=0To34Text1(i).Text=""NextiEndSub

范文七:彩票选号小助手 投稿:蔡欩欪

彩票购买程序

《软件设计基础-VB》课程设计报告第2页,共36页目录1.课程设计目的···································· ···································· ···································· 2.课程设计任务与要求 ································ ································ ······························· 3.课程设计说明书··································· ··································· ·································· 4.课程设计成果···································· ···································· ···································· 5.程序调试过程···································· ···································· ···································· 6.设计问题的不足和改进方案 ···························· ···························· ··························· 7.课程设计心得···································· ···································· ···································· 8.附录 ·········································· ········································· ········································· 9.参考文献······································· ······································· ······································

《软件设计基础-VB》课程设计报告第3页,共36页1.课程设计目的《软件设计基础-VB》课程设计是这门课程的实践性教学环节之一,本次设计结合实际应用的要求,使课程设计既覆 盖 VB 的知识点,又接近工程实际需要。目的是通过课程设计的综合训练,培养学生实际分析问题、解决问题的能力,以 及编程和动手能力,最终目标是通过课程设计这种形式,帮助学生系统掌握 VB 这门课程的主要内容,养成良好的编程习 惯,更好的完成教学任务。2.课程设计任务与要求:要求:本次课程设计利用《软件设计基础-VB》课程中所学到的编程知识和编程技巧,完成具有一定难度和工作量的程序设 计题目,帮助学生掌握编程、调试的基本技能,独立完成所布置的任务。 要求: 1、对系统进行功能需求分析 2、设计合理的数据结构和系统框架 3、界面设计美观、清楚、合理 4、编程简练,程序功能齐全,能正确运行 5、具有一定的创新性 6、说明书、流程图要清楚 7、课题完成后必须按要求提交课程设计报告 任务:将自己选择题目的任务要求简单填写在此处。设计一个工彩民购买彩票(体彩和福彩)的程序。

《软件设计基础-VB》课程设计报告第4页,共36页3.课程设计说明书⑴功能描述⑴ 程序的启动窗口如图 1 所示。图 1 启动窗口 ⑵ 在启动窗口中单击“体育彩票”按钮后,进入体彩传统型电脑彩票的选号窗口(如图 2 所示) 。在该窗口中, 每一注可单独投注,也可一次产生 5 注号码。单击“开始”按钮,则单选框所对应的那一注的各个号码开始滚动,当单击 “停止”按钮后,左边窗口中的号码从左到右依次停止滚动,产生一注号码,其中最右边的特别号码只能是 0~4 中的一 个。

《软件设计基础-VB》课程设计报告第5页,共36页图 2 “体育彩票”界面

《软件设计基础-VB》课程设计报告第6页,共36页图 3 生成一组号码 如果单击“自动”按钮,则从上到下一次产生 5 注号码(如图 4 所示) 。图 4 生成全部号码 也可以单击每个数字方格来改变此格内的数字。单击“返回”按钮,则程序返回启动窗口。 ⑶ 单击启动窗口上的“福利彩票”按钮,则进入图 5 所示窗口。使用单选框指定注数,然后单击“开始”按钮, 则在“幸运号码”区域显示随机产生的号码(见图 6) ,要求程序中每注所产生的 7 个投注号码中没有重复的数,显示时从 小到大排列,若一次投注超过一注,则相互之间不能重复。

《软件设计基础-VB》课程设计报告第7页,共36页图 5 “福利彩票”界面

《软件设计基础-VB》课程设计报告第8页,共36页图 6 生成 3 注号码 单击右边的单选框选择投注的注数时,左边的“幸运号码”区会相应地做出调整。如选择三注,则只显示三行空 格。 单击“清除”按钮,则清除显示内容,以便进行下次投注,单击“返回”则返回到启动窗口。⑵概要设计 主要写模块说明,模块结构图,系统流程图(例 N-S 流程图) (五号,宋体)模块结构图: 根据功能分析, 建立系统的体系结构, 即将整个系统分解成若干子模块, 用框图表示各功能模块之间的接口关系。

《软件设计基础-VB》课程设计报告第9页,共36页彩票选号系统启动界面 (form1)(form1)“体育彩票”界面(form2)“福利彩票”界面(form3)退出进 行 体 育 彩 票 选 号返 回 启 动 界 面进 行 福 利 彩 票 选 号返 回 启 动 窗 口退 出 系 统⑶详细设计

《软件设计基础-VB》课程设计报告 总体流程图:第10页,共36页彩票选号系统启动界面 (form1)(form1)“体育彩票”界面(form2)“福利彩票”界面(form3)退出进 行 体 育 彩 票 选 号返 回 启 动 界 面进 行 福 利 彩 票 选 号返 回 启 动 窗 口退 出 系 统各功能模块流程图: ⑷代码实现 详细说明各功能模块的实现过程,所用到的算法、技巧等(附上代码) 。如:本系统总共 10 个窗体: form1~form10 详细如下: form1—首页 作用: “进入应用程序” 。 所用控件:5 个标签,4 个时钟。 设计思路: 用时钟控制 label1、 2,3,4 的运动。 单击 label1,2,5 和命令选择器可进入后面窗体, label3.

《软件设计基础-VB》课程设计报告 无链接窗体,无 label4 。 详细内容:属性较特殊的需要说明。代码如下: 1、对 Form1 设计①功能介绍: 主要用于进行 form1 和 form2 界面的交换使用,并提供退出程序控件。 ②过程分析: 使用 unload 和 show 即可实现以上功能。 ③设计应用界面 在 form1 窗体上添加命令按钮 command1、command2、command3 和标签 label1 ④设置对象属性第11页,共36页控件名 command1 command2 command3属性名 caption Fontsize caption Fontsize caption Fontsize Backcolor Caption Borderstyle Minbutton Starupposition Caption Forecolor Fontname Fontsize属性值 体育彩票 35 选 7 福利彩票 退出说明from1彩票选号小助手 1-fixed single True 2-屏幕中心 彩票选号小助手 华文行楷禁止用户改变窗体大小 允许用户最小化程序 启动时界面在屏幕中心Label1⑤编写程序代码Private Sub Command1_Click() Form2.Show Unload Me End SubPrivate Sub Command2_Click() Unload Me Form3.Show End Sub

《软件设计基础-VB》课程设计报告 Private Sub Command3_Click() End End Sub第12页,共36页Private Sub Form_Load() Label1.BackStyle = 0 Label1.Caption = "彩票选号小助手" Timer1.Interval = 600 End SubPrivate Sub Timer1_Timer() Label1.Caption = Mid(Label1.Caption, 2, Len(Label1.Caption) - 1) + Left(Label1.Caption, 1) End Sub 2、对 Form2 的设计①功能介绍 手动或者自动产生 1 到 5 组体育彩票号码。 ②分析 使用 doevents 语句产生号码依次停止效果 使用 timer 语句产生滚动效果 具体实现过程如图 23

《软件设计基础-VB》课程设计报告载入 from2第13页,共36页初始化 timer 控件和 其他控件的可用性开始自动返回界面产 生滚 动效 果停止自动产生五组随机号码载入 from1 卸载 from2产生一组随机号码 图 23 form2 实现过程③设计应用界面 在窗体上添加七个 timer 控件 timer1——timer2, 添加四个 command 控件 command1——command4, 两个 frame 控件 frame1、 frame2,向 frame1 中添加七个 text 控件数组,分别为:text1(0)——text1(4) 、text2(0)——text2(4) 、text3(0)— —text3(4) 、text4(0)——text4(4) 、text5(0)——text5(4) 、text6(0)——text6(4) 、text7(0)——text7(4) 。 向 frame2 中添加一个 option 控件数组:option1(0)——option1(4) ④设置对象属性

《软件设计基础-VB》课程设计报告 控件 command1 command2 command3 command4 text1()—text6() 属性名 Caption Caption Caption Caption Text Backcolor Fontsize Text Backcolor Fontsize Caption Caption Caption Caption Caption Fontsize Interval Caption Borderstyle Minbutton Starupposition Caption Fontsize Caption Fontsize 属性值 开始 停止 自动 返回主界面第14页,共 说明36页清空 text清空 textText7(0)—text7(4) option1(0) option1(1) option1(2) option1(3) option1(4) Option1(0)-option(4) timer1-timer7 form2第一注 第二注 第三注 第四住 第五注 25 传统型体育彩票 1-fixed single 禁止用户改变窗体大小 True 2-屏幕中心 幸运号 请投注 允许用户最小化程序 启动时界面在屏幕中心frame1 frame2⑤编写程序代码Private Sub Command1_Click() For i = 0 To 4 If Option1(i).Value = True Then a=i Exit For End If Next i Command2.Enabled = True Command1.Enabled = False Timer1.Enabled = True Timer2.Enabled = True

《软件设计基础-VB》课程设计报告 Timer3.Enabled = True Timer4.Enabled = True Timer5.Enabled = True Timer6.Enabled = True Timer7.Enabled = True Option1(0).Value = False Option1(3).Value = False End Sub Private Sub Command2_Click() Command2.Enabled = False For i = 1 To 2500 For z = 1 To 2500 j=j Next z Next i DoEvents Timer1.Enabled = False For i = 1 To 2500 For z = 1 To 2500 j=j Next z Next i DoEvents Timer2.Enabled = False For i = 1 To 2500 For z = 1 To 2500 j=j Next z Next i DoEvents Timer3.Enabled = False第15页,共36页

《软件设计基础-VB》课程设计报告 For i = 1 To 2500 For z = 1 To 2500 j=j Next z Next i DoEvents Timer4.Enabled = False For i = 1 To 2500 For z = 1 To 2500 j=j Next z Next i DoEvents Timer5.Enabled = False For i = 1 To 2500 For z = 1 To 2500 j=j Next z Next i DoEvents Timer6.Enabled = False For i = 1 To 2500 For z = 1 To 2500 j=j Next z Next i DoEvents Timer7.Enabled = False For i = 1 To 2500 For z = 1 To 2500 j=j第16页,共36页

《软件设计基础-VB》课程设计报告 Next z Next i DoEvents Command1.Enabled = True End Sub Private Sub Command3_Click() Command1.Enabled = False Command2.Enabled = True Command3.Enabled = False Dim k As Integer For k = 0 To 4 Option1(k).Value = True a=k Timer1.Enabled = True Timer2.Enabled = True Timer3.Enabled = True Timer4.Enabled = True Timer5.Enabled = True Timer6.Enabled = True Timer7.Enabled = True DoEvents For i = 1 To 3000 For z = 1 To 3000 j=j Next z Next i DoEvents Call Command2_Click Next k Command1.Enabled = True Command2.Enabled = False第17页,共36页

《软件设计基础-VB》课程设计报告 Command3.Enabled = True End Sub Private Sub Command4_Click()第18页,共36页If MsgBox("确定要退出该界面吗?" + Chr(13) + Chr(10) + "数据将消失", vbYesNo + vbExclamation) = vbNo Then Exit Sub Unload Me Form1.Show End Sub Private Sub Form_Load() Command2.Enabled = False Option1(0).Value = True Timer1.Enabled = False Timer2.Enabled = False Timer3.Enabled = False Timer4.Enabled = False Timer5.Enabled = False Timer6.Enabled = False Timer7.Enabled = False End Sub ' 提示用户退出界面所得数据将消失Private Sub Image1_Click()End SubPrivate Sub Timer1_Timer() Randomize Text1(a).Text = Rnd * 100 Mod 10 End Sub Private Sub Timer2_Timer() Randomize Text2(a).Text = Rnd * 100 Mod 10

《软件设计基础-VB》课程设计报告 End Sub Private Sub Timer3_Timer() Randomize Text3(a).Text = Rnd * 100 Mod 10 End Sub Private Sub Timer4_Timer() Randomize Text4(a).Text = Rnd * 100 Mod 10 End Sub Private Sub Timer5_Timer() Randomize Text5(a).Text = Rnd * 100 Mod 10 End Sub Private Sub Timer6_Timer() Randomize Text6(a).Text = Rnd * 100 Mod 10 End Sub Private Sub Timer7_Timer() Randomize Text7(a).Text = Rnd * 20 Mod 5 End Sub第19页,共36页3、对 Form3 设计

《软件设计基础-VB》课程设计报告第20页,共36页① 功能介绍 随机产生用户需要的一到五组的福利彩票号码。 ② 分析 使用控件数组简化程序代码的数量,提高程序的稳定性。使用循环结构产生各组控件需要的值。用逐一比较法排除相 同项 k=0 重要算法实现过程:如图 24k = 1+kk

《软件设计基础-VB》课程设计报告第21页,共36页在窗体上添加三个 command 控件 command1——command3, 两个 frame 控件 frame1、 frame2, frame1 中添加七个 text 向 控件数组,分别为:text1(0)——text1(4) 、text2(0)——text2(4) 、text3(0)——text3(4) 、text4(0)——text4(4) 、 text5(0)——text5(4) 、text6(0)——text6(4) 、text7(0)——text7(4) 。 向 frame2 中添加一个 option 控件数组:option1(0)——option1(4) ④设置对象属性控件 command1 command2 command3 text1()—text7() option1(0) option1(1) option1(2) option1(3) option1(4) Option1(0)-option(4) form2属性名 Caption Caption Caption Text Backcolor Fontsize Caption Caption Caption Caption Caption Fontsize Caption Borderstyle Minbutton Starupposition Caption Fontsize Caption Fontsize属性值 开始 清除 返回主界面说明清空 text投一注 投二注 投三注 投四住 投五注 福利彩票 1-fixed single 禁止用户改变窗体大小 True 2-屏幕中心 幸运号 请投注 允许用户最小化程序 启动时界面在屏幕中心frame1 frame2⑤ 编写程序代码Private Sub Command1_Click() Option1(4).Value = False n=1 For i = 0 To 4 n=i+1 If Option1(i).Value = True Then Exit For Next i Dim a(1 To 7) As Integer For i = 0 To n For j = 1 To 7 Randomize

《软件设计基础-VB》课程设计报告 a(j) = Int(Rnd * 35 + 1) Next j For k = 1 To 7 For m = k + 1 To 7 If a(k) = a(m) Then v = Int(Rnd * 35 + 1)第22页,共36页Do While v = a(1) Or v = a(2) Or v = a(3) Or v = a(4) Or v = a(5) Or v = a(6) Or v = a(7) v = Int(Rnd * 35 + 1) Loop a(k) = v End If Next m Next k For k = 1 To 7 For m = k + 1 To 7 If a(k) > a(m) Then x = a(k) a(k) = a(m) a(m) = x End If Next m Next k If i = 5 Then Exit Sub End If Text1(i) = a(1) Text2(i) = a(2) Text3(i) = a(3) Text4(i) = a(4) Text5(i) = a(5) Text6(i) = a(6)

《软件设计基础-VB》课程设计报告 Text7(i) = a(7) Next i Option1(1).Value = False End Sub第23页,共36页Private Sub Command2_Click() For i = 0 To 4 Text1(i).Text = "" Next i For i = 0 To 4 Text2(i).Text = "" Next i For i = 0 To 4 Text3(i).Text = "" Next i For i = 0 To 4 Text4(i).Text = "" Next i For i = 0 To 4 Text5(i).Text = "" Next i For i = 0 To 4 Text6(i).Text = "" Next i For i = 0 To 4 Text7(i).Text = "" Next i End SubPrivate Sub Command3_Click() If MsgBox("确定要退出该界面吗?" + Chr(13) + Chr(10) + "数据将消失", vbYesNo + vbExclamation, "提示")

《软件设计基础-VB》课程设计报告 = vbNo Then Exit Sub Unload Me Form1.Show End Sub第24页,共36页Private Sub Form_Load() Option1(4).Value = True End SubPrivate Sub Option1_Click(Index As Integer) Dim i As Integer For i = 4 To Index + 1 Step -1 Text1(i).Visible = False Text2(i).Visible = False Text3(i).Visible = False Text4(i).Visible = False Text5(i).Visible = False Text6(i).Visible = False Text7(i).Visible = False Text1(i).Text = "" Text2(i).Text = "" Text3(i).Text = "" Text4(i).Text = "" Text5(i).Text = "" Text6(i).Text = "" Text7(i).Text = "" Next i For j = 0 To Index Text1(j).Visible = True Text2(j).Visible = True Text3(j).Visible = True

《软件设计基础-VB》课程设计报告 Text4(j).Visible = True Text5(j).Visible = True Text6(j).Visible = True Text7(j).Visible = True Text1(j).Text = "" Text2(j).Text = "" Text3(j).Text = "" Text4(j).Text = "" Text5(j).Text = "" Text6(j).Text = "" Text7(j).Text = "" Next j End Sub第25页,共36页4.课程设计成果

《软件设计基础-VB》课程设计报告运行结果(可用屏幕抓图的方法说明) (五号,宋体)(多页) 1、Form1 运行前第26页,共36页运行后 在启动窗口中单击“体育彩票”按钮后,进入体彩传统型电脑彩票的选号窗口。在该窗口中,每一注可单独投注,也 可一次产生 5 注号码。单击“开始”按钮,则单选框所对应的那一注的各个号码开始滚动,当单击“停止”按钮后,左边 窗口中的号码从左到右依次停止滚动,产生一注号码,其中最右边的特别号码只能是 0~4 中的一个2、Form2 运行前

《软件设计基础-VB》课程设计报告第27页,共36页运行后

《软件设计基础-VB》课程设计报告第28页,共36页如果单击“自动”按钮,则从上到下一次产生 5 注号码

《软件设计基础-VB》课程设计报告单击退出按钮界面第29页,共36页3、Form3 运行前

《软件设计基础-VB》课程设计报告第30页,共36页运行后 单击右边的单选框选择投注的注数时,左边的“幸运号码”区会相应地做出调整。如选择一注,则只显示一行空格,如果 选择二注,则只显示两行空格。

《软件设计基础-VB》课程设计报告第31页,共36页

《软件设计基础-VB》课程设计报告第32页,共36页退出界面

《软件设计基础-VB》课程设计报告 5.程序调试过程写出程序调试步骤,及遇到的问题。第33页,共36页调试过程:程序运行过程中出现错误时,根据提示对程序进行调试遇到问题:

《软件设计基础-VB》课程设计报告 6.设计问题的不足和改进方案第34页,共36页①“彩票选号小助手”系统界面的新颖度欠佳,如果想要吸引用户使用这款软件这必须在颜色搭配以及背景图案上多下点功夫。比如说在启动时做一个动画之类的。②“彩票选号小助手”系统没有帮助信息,帮助信息是使用户能够更加轻松的使用本程序。 ③在完善方面我们还可以添加一些文本窗口,加入一些关于彩票的说明。 ④在该程序基础上再添加一个保存数据,设好代码将产生的数据予以保存,这样方便用户及时、随时参考。7.课程设计心得 这次的程序设计课程从网上和书籍中得到了很多帮助,总体来说还算是顺利。从中学到了很多书本上 没有学到的东西。也发现了自己在 vb 程序设计上的种种不足。完成课程设计后有一种成就感,更深的体会 到程序设计的乐趣,知道了 vb 程序的强大,更想进一步地对它进行系统的学习,编写出更有使用价值的程 序。 通过学习程序设计语言的基本思想、语法知识和编程方法,不仅能够提高学生的程序设计能力、而且 对学生分析并解决实际问题的能力|、逻辑思维能力有很大的帮助。 通过此次的课设,对于怎样才能更好更快地完成一个程序的设计我总结了一下几点。 首先我认为学习程序设计最重要的一点是要注重理解一些重要的概念,vb 程序设计本身并不复杂,翻 开一本程序设计学习的书籍,看到的无非就是变量,函数,条件语句,循环语句等概念,但要真正能进行 程序设计,需要深入理解这些概念,因此在程序入门阶段还是应该重视概念的学习。我们学习 vb 是通过老 师的演示和讲解而了解并学习了这门课程,那些都是有局限性的,如果仅靠老师在课堂上传授的知识就能 完成对一个程序的设计那简直就是痴人说梦。所以程序设计免不了要参考一些文献。对一些概念性的东西 进行更深的了解。 其次,自己动手编写程序,程序设计入门阶段要经常自己动手抄写或编写一些小程序,亲自动手进行 程序设计是创造性思维应用的体现,是培养逻辑思维的好方法,因此一定要多动手编写程序,而且要从小 程序开发开始,逐渐提高写程序的能力,只有不断的从自己的程序中积累经验,从中进步,才能写出好的 程序。程序设计是高强度的脑力劳动,不是听会的,也不是看会的,而是练会的,只有自己动手,编写一 些程序,才会有成就感,进而对课程产生兴趣,学起来才比较从容,动手能力的培养是这门课和其他课程 最大的不同之处,重点放在思路,算法,编程构思和程序实现上,语句只是表达工具,要求积极思考,做 到灵活运用,编程序不像做其他的事情,写程序之前一点要计划周到,把所有可能性都想到,并想好相应 的解决方法,不然思想会很乱,很容易出现错误。还有就是编程序最重要的其实是思想,思想确定之后用

《软件设计基础-VB》课程设计报告 什么语言或什么方法就简单了,接下来就是设计并写成代码的事情了第35页,共36页再者,阅读、查阅 借鉴别人设计的好程序,多看别人设计好的程序代码,包括教材上的例题程序。在 读懂别人的程序之后,要想他为什么这么设计能不能将程序改成更多的功能。这样就可以学到别人优秀的 东西。帮组自己提高。提高自身水平。 感谢学校和老师能够设置这样的课程,这样的锻炼的机会。不仅让我们了解了不足。还提高了我们对 学习的渴望,而不再是骄傲自满。懂得了理论和实践的区别和联系。实践不能没有理论。但是学好了理论 部代表学会了实践。

《软件设计基础-VB》课程设计报告 8.附录第36页,共36页有些需要说明的部分。如添加 ActiveX 等非不标准部件,或使用文件操作时对路径有特殊要求等。若 没有特殊要求,此处为“无” 。 1、2、 3、9.参考文献 1、陈明锐.Visual Basic 程序设计及应用教程.北京:高等教育出版社,2008.12

范文八:彩票选号小助手 投稿:高貲貳

题目:彩票选号小助手

知识点:基本控件的使用;控件数组;多模块程序设计;定时器使用;随机数。

1.题目介绍:

本程序要求设计一个供彩民买彩票时投注选号的程序,即自动生成投注号(不是开奖号)。

2.功能要求:

(1)实现体育彩票选号:6位数号码(0~9中任选)和一个特别号码(0~4中选出);

(2)实现福利彩票选号:35选7:1~35共35个自然数中选择任何7个组合为1注(单注中数字不能重复)。

(3)启动程序,显示图1所示的参考界面。

图1 启动窗口

(4)单击“体育彩票”按钮后,进入体彩传统型电脑彩票的选号窗口,如图2所示。每一注可单独投注,也可以一次产生5注。单击“开始”按钮,号码开始滚动,“停止”按钮,号码从左到右依次停止滚动,产生一注号码。最右边的特别号码只能是0~4中的一个,图3所示。若单击“自动”按钮,则从上到下依次产生5注号码,图4所示。也可以单击每个数字方格来改变此格内的数字。

图2 “体育彩票”界面

图3 生成一注号码

图4 自动生成全部号码

(5)单击“福利彩票”按钮后,进入福利彩票的选号窗口,如图5所示。每注7个号码中没有重复数字,且从小到大排列显示。若一次投注多注,不能重复,图6所示。

图5 “福利彩票”界面

图6 生成三注号码

3.难点与提示

(1)显示幸运号码可用标签或文本框,并应用控件数组较为简单。

(2)号码随机生成应用Rnd函数,自动滚动生成要用到Timer定时器。

4.更上一层楼

(1)仅实现简单功能,是否能够增加其他玩法。

(2)能否增加“摇号”功能模拟开奖。

范文九:彩票选号小助手1 投稿:史灮灯

华东交通大学

课程设计(论文)任务书

学院 测绘 专业 2 班

一、课程设计(论文)题目 彩票选号小助手 二、课程设计(论文)工作自 2010年 6月 26日起至 2010 年 7 月 3日止。 三、课程设计(论文) 地点: 计算机中心 四、课程设计(论文)内容要求: 1. 本课程设计的目的

(1)进一步巩固和加深对“VB程序设计”课程基本知识的理解和掌握,了解VB语言在项目开发中的应用。

(2)学习程序设计开发的一般方法,了解和掌握项目开发过程及方式,培养正确的设计思想和分析问题、解决问题的能力,特别是项目设计能力。 2. 课程设计的任务及要求 (1) 基本要求:

(1) 对系统功能进行需求分析;

(2) 使用Visual basic开发环境进行程序开发; (3) 提出系统的设计方案; (4) 编写源程序代码并进行调试。 (2) 创新要求

在基本要求达到后,可进行创新设计。 (3) 课程设计报告撰写及装订要求

课程设计报告的撰写要求表述简明,图表准确。 报告按如下内容和顺序用A4纸进行打印并装订成册。 (1)要按照书稿的规格打印与写课程设计论文

(2)论文包括目录、功能描述、设计思路、具体实现、运行调试与分析讨 论、设计体会与小结、参考文献、附录(源代码)等 (3)课程设计论文装订按学校的统一要求完成 (4)封面

采用统一的课程设计封面,并按要求填写好封面要求的个人信息和选题。 (5)设计任务书 (6)评阅书 (7)目录 (8)正文 (9)主要参考文献 (4) 课程设计评分标准:

(1)达到课程设计的目的与要求,程序的可读性较好,并调试正确,60分;

(3)通过对标准化、规范化文档的掌握并查阅有关技术资料等,培养项目设计开发能力。

(2)能正确回答设计的中老师所提问题,可增加10分; (3)课程设计报告书写规范整齐,可增加10分; (4)心得体会认真总结,可增加10分; (5)程序有创新性,可增加10分;

成绩评定实行优秀、良好、中等、及格和不及格五个等级。不及格者需重做。 (5) 课程设计进度安排

(1)准备阶段(6学时):选择设计题目、了解设计目的要求、查阅相关资料。 (2)程序模块设计分析阶段(8学时):程序总体设计、详细设计。 (3) 代码编写调试阶段(10学时):程序模块代码编写、调试、测试。

(4) 撰写论文阶段(6学时):总结课程设计任务和设计内容,撰写课程设计论文。 (6) 课程设计题目具体要求

(1)要求编制一个能够设计一个 供彩民买彩票时投注选号的程序(即自动生成投注号,不是开奖程序)。

(2)基本要求是运行程序,显示主界面。通过提供的程序基本代码,通过引用,循环,和函数的配合,对程序重复的消去,达到题目的要求。可以进行简单的体育彩票和福利彩票的选号。

(3)对控件的调用,计时器的应用,不同窗体的切换方法,对控件的属性进行赋值的方法,过程、函数的应用。

学生签名:

2011年7月3 日

课程设计(论文)评阅意见

评阅人 周美玲 职称 讲师

2011年7月3日

目录

绪论 ....................................................................................................................... - 1 - 第1章 功能描述 ........................................................................................... - 2 - 第2章 总体设计 ........................................................................................... - 2 -

2.1变量和函数方..………………………………...- 4 -

第3章 具体实现 ........................................................................................... - 4 -

3.1Form1内部代码..…………………………….....-4- 3.2Form2内部代码..…………………………….....-5- 3.3排序并去初重复……………………………......- 8 -

第4章 运行调试及结果分析 ................................................................... - 8 -

4.1“体育彩票”界面…………………………...... - 8 - 4.2“福利彩票”界面…………………………….. - 8 -

第5章 设计体会与小结 ......................................................................... - 13 - 参考文献 ........................................................................................................ - 14 - 附录(核心代码)

………………………………......- 14 -

7.1 form1 中代码…………………………….. ...- 14 - 7.2 form2 中代码…………………………….. ...- 14 - 7.3 form3 中代码……………………………...... - 14 -

绪论

“Visual”指的是开发图形用户界面的方法。不需编写大量代码去描述界面元素的外观和位置,而只要把预先建立的对象加到屏幕上,一点即可。

Basic指的是beginner sall-purpose symbolic instruction code,一种在计算机技术发展历史上应用最为广泛的语言。

Visual Basic不仅是Visual Basic编程语言。Visual Basic编程系统和VBA都使用这一语言。

Visual Basic6.0包括三种版本,分别为学习版、专业版和企业版3三种版本,满足不同的开发要求。

3种版本中,企业版功能最全,专业版包括了学习版的功能。VB具有丰富数据类型是种符合结构化设计思想语言,VB采用了面对对象的思想,它基本思路是把复杂的设计问题分解为多个能够完成独立功能且相对简单的对象集合。所谓“对象”就是个可操作实体如窗体、窗体中命令按钮、标签、文本框等,面向对象编程就是指程序员可根据界面设计要求直接在界面上设计出窗口、菜单、按钮等类型对象并为每个对象设置属性。 在Windows环境下是以事件驱动方式运行每个对象的都能响应多个区别事件,每个事件都能驱动段代码事件过程,该代码决定了对象功能。通常称这种机制为事件驱动的编程机制。可由用户操作触发也可以由系统或应用触发例如单击个命令按钮就触发了按钮Click(单击)事件该事件中代码就会被执行,若用户未进行任何操作(未触发事件)则就处于等待状态整个应用就是由彼此独立事件过程构成,VB为编程提供了个集成开发环境在这个环境中编程者可设计界面、编写代码、调试直至把应 用编译成可在Windows中运行可执行文件并为它生成安装VB集成开发环境为编程者提供了很大方便 用v b设计出来的彩票选号小助手就是用v b设计程序的集成开发环境在这个环境中编程者设计界面、编写代码、调试直至把应用编译成可在Windows中运行可执行用于彩票选号的程序。

- 1 -

第一章 功能描述

图1-1程序启动

窗口

在启动窗口中单击“体育彩票”按钮后,进入体彩传统型电脑彩票的选

号窗口。在该窗口中,每一注可单独投注,也可一次产生5注号码。单击“开始”按钮,则单选框所对应的那一注的各个号码开始滚动,当单击“停止”按钮后,左边窗口中的号码从左到右依次停止滚动,产生一注号码,其中最右边的特别号码只能是0~4中的一个。

在福利彩票选好窗体中单击右边的单选框选择投注的注数时,左边的“幸运号码”区会相应地做出调整。如选择三注,则只显示三行空格。

单击“清除”按钮,则清除显示内容,以便进行下次投注,单击“返回”则返回到启动窗口。

第二章 总体设计

根据题目要求,设计一个 供彩民买彩票时投注选号的程序(即自动生成投注号,不是开奖程序)。

目前我国发行的彩票主要有两大类,即体育彩票和福利彩票,每一类彩票都有多种投注方法。

窗体1中设计三个命令按钮,第一个命令按钮控制的是窗体2(传统型体育彩票),点击该命令按钮应该弹出窗体2,窗体1隐藏;第二个

- 2 -

命令按钮控制的是窗体3(35选7电脑福利彩票),点击该命令按钮的时候弹出窗体3,窗体1隐藏

在窗体2中需要实现这个目的,彩民自己选一个彩票号码,由6位数号码(自0、1、2、3、4、5、6、7、8、9中选出)和一个特别号码(自0、1、2、3、4中选出)组成。即6位自然数号码为000000~999999共100万个号码。特别号码为0~4共5个自然数,特别号码放在6位自然数号码后,与6位数自然数号码不形成排列或顺序关系。 根据这些,建立两个框架,在第一个框架中,建立7个text控件数组;在第二个框架中设计option控件数组,为了实现数字的滚动,建立7个计时器,另外建立了四个命令按钮,分别为开始、停止、自动、返回主界面,在这需注意,开始和停止两个命令不能同时使用。 窗体3需要实现的目的是在1~35共35个自然数中选择任何7个数组合成1注进行投注,单注中数字不能重复出现,电脑机选最少1注,最多5注,这5注号码不能重复。

根据这些要求,首先建立两个框架,然后在第一个框架中设计Text的控件数组,一共35个;在第二个框架中建立5个option;另外需要建立三个命令按钮,分别是开始、清楚、返回主界面。 通过利用vb6.0设计程序。打开vb6.0程序,设计彩票选号程序界面,在一个工程中生成三个form窗体,分别对各个窗体进行界面控件设计,再对各个控件进行代码编写。

一些具体声明的变量和函数方法如下:

Private Sub Command1_Click() (控件点击的调用方法) Command2.Enabled = (窗体控件是否可用) Private Sub Form_Load() (窗体运行) Private Sub Timer1_Timer() (计时器) Call Command2_Click (调用控件) Dim k As Integer; For

DoEvents

Private Sub Command1_Click() Form1.Hide Form2.Show

- 3 -

End Sub (不同窗体的切换方法)

Option5.Value = True

Text1(i).Text = (对控件属性进行赋值的方法) Founction过程 Usechar等函数

第三章 具体实现

把各个窗体中的各个控件的option属性改成想要的 内部创建文件的代码如下

(form1)

1).Private Sub Command1_Click()

Form1.Hide Form2.Show End Sub

Private Sub Command2_Click()

Form1.Hide Form3.Show End Sub

Private Sub Command3_Click()

End End Sub (在窗体一中实现体彩和福彩及退出程序的选择的代码) (form2)

1).设置计时器interval属性不为0 2).Dim a As Integer

Private Sub Command1_Click() Command2.Enabled = True

- 4 -

Command1.Enabled = False Timer1.Enabled = True … … …. …. End Sub

Private Sub Command2_Click() Dim i As Long j = 0

Command2.Enabled = False For i = 1 To 3000

For z = 1 To 3000

j = j Next z Next i DoEvents …. … …

Private Sub Timer1_Timer() Randomize

Text1(a).Text = Rnd * 100 Mod 10 End Sub … …. … ….

Private Sub Timer7_Timer() Randomize

Text7(a).Text = Rnd * 20 Mod 5 End Sub

(实现计时器和文本框里变化数字的衔接) 3)..Private Sub Option1_Click(Index As Integer)

- 5 -

Dim i As Integer For i = 1 To 5

If Option1(i - 1).Value Then

a = i - 1 End If Next i End Sub

Private Sub Command3_Click() Command1.Enabled = False Command2.Enabled = False Dim k As Integer For k = 1 To 5 a = k - 1

Call Command1_Click DoEvents For i = 1 To 3000

For z = 1 To 3000

j = j Next z Next i DoEvents

Call Command2_Click DoEvents Next k End Sub (Form3)

- 6 -

1).Function GenNnm() As String

Dim str1 As String

Dim i As Integer, Num As Integer

Dim usechar As String

usechar="0102030405060708091011121314151617181920212223242526272829303132333435"

str1 = ""

Randomize

For i = 1 To 36

Num = Len(usechar) * Rnd + 1

If Num Mod 2 = 1 Then

str1 = str1 + Mid(usechar, Num, 2)

Else

str1 = str1 + Mid(usechar, Num - 1, 2)

End If

Next i

GenNnm = str1

End Function

Private Sub Option2_Click()

Dim i As Integer

For i = 14 To 34

Text1(i).Visible = False

Next i

For i = 0 To 13

Text1(i).Visible = True

Next i

For i = 0 To 34

Text1(i).Text = ""

Next i

End Sub

(option所涉及的彩票注数与文本框里显示联系起来的代码)

2)).Private Sub Command1_Click()

Dim i As Integer, j As Integer, d As Integer

Dim a As String

d = 1

For i = 0 To 34

Text1(i).Text = Mid$(GenNnm, d, 2)

d = d + 2

Next i

'1-7排序并去初重复 (通过该方法实现所选投股数与窗体所能显示的text控件个数的衔接

第四章 运行调试及结果分析

图4-1 启动窗口

窗体1中设计三个命令按钮,第一个命令按钮控制的是窗体2(传统型体育彩票),点击该命令按钮应该弹出窗体2,窗体1隐藏;第二个命令按钮控制的是窗体3(35选7电脑福利彩票),点击该命令按钮的时候弹出窗体3,窗体1隐藏

⑵ 在启动窗口中单击“体育彩票”按钮后,进入体彩传统型电脑彩票的选号窗口(如图4-2所示)。在该窗口中,每一注可单独投注,也可一次产生5注号码。单击“开始”按钮,则单选框所对应的那一注的各个号码开始滚动,当单击“停止”按钮后,左边窗口中的号码从左到右依次停止滚动,产生一注号码,其中最右边的特别号码只能是0~4中的一个(如图4-3所示)。

图4-2 “体育彩票”界面

图4-3 生成一组号码

如果单击“自动”按钮,则从上到下一次产生5注号码(如图4-3所示)。

图4-4 生成全部号码

图4-5 “福利彩票”界面

图4-6 生成3注号码

单击右边的单选框选择投注的注数时,左边的“幸运号码”区会相应地做出调整。如选择三注,则只显示三行空格。

单击“清除”按钮,则清除显示内容,以便进行下次投注,单击“返回”则返回到启动窗口。

结果:程序设计基本符合要求

第五章 设计体会与小结

为了让我们加深对VB教程学习的理解,期末老师引导我们做了这个课程设计。起初还十分担心,因为对自己掌握的VB只是并不自信。但是,为了做好本次课程设计,我认真复习了《Visual Basic程序设计教程》的相关知识,对实验中所需涉及到的知识有更深入的了解和掌握。在这一切的充分准备下 ,我认为,程序设计目的已较明确,程序实现起来较顺利,这让我体会到了平时踏实积累学习知识的重要性。实验中与同学的交流合作,让我们彼此间的知识和思维进行了碰撞和进步。本次课程设计的实验报告确实让我学习到了许多新鲜的知识,我更进一步了解了Visual Basic程序设计教程的相关知识,由于使用了VB语言进行程序的编写,这就在一定程度上锻炼了自己在VB方面的水平,也让我深刻地理解了,一种语言可以应用到很多的方面,尤其是在当今社会,对计算机的掌握水平提出了更高的要求。作为一名合格的大学生,一名以后能胜任自己岗位的工作者,更要不断提升自己对计算机的掌握水平。通过这次课程设计,我对原有的VB教材更加熟悉,了解更加透彻,运用更加灵活,获益匪浅。

我想这些都会对我以后的工作学习产生深刻的影响。即使以后不从事系统软件方面的工作,这些代码实现的技巧也会对我作其他软件开发工作带来极大的助益。同时,对阅读内核代码进行阅读、总结的过程也提高了我的分析问题、解决问题的能力,而这种能力是无论做什么工作都需要的。

在这过程中,让我懂得了团队合作非常的重要,在这期间我有很多不懂的问题,通过和同学一起讨论,很多问题都得到了有效的解决,这样不仅加深了和同学之间的友谊,也使我们在编程中有许多的乐趣。

这次程序设计,使我认识到,自己之前对VB 的教材了解不够深入,只停留在知道的层面,这远远不够,我应该在以后的学习中,学会“学以致用”,

知识只有用得多了才更熟练更深入,必须强化这一观念,不断提升自己在各方面的学习进步。

第六章 参考文献

[1]熊李艳,周美玲主编;吴昊,杜玲玲副主编《Visual Basic程序设计教程》

[M].北京 :人民邮电出版社 ,2007.

[2]李光明《Visual Basic 6.0编程实例大制作》[M] 冶金工业出版社

[3]袁帅,郭月强等编写的《Visual Basic编程实例教程》[M] 北京希望电子出版社

[4]郑炳文编著《visual Basic程序设计例题汇编》[M]清华大学出版社 附录(核心代码)

Form1中的代码

Private Sub Command1_Click()

Form1.Hide

Form2.Show

End Sub

Private Sub Command2_Click()

Form1.Hide

Form3.Show

End Sub

Private Sub Command3_Click()

End

End Sub

Form2中的代码

Dim a As Integer

Private Sub Command1_Click()

Command2.Enabled = True

Command1.Enabled = False

Timer1.Enabled = True

Timer2.Enabled = True

Timer3.Enabled = True

Timer4.Enabled = True

Timer5.Enabled = True

Timer6.Enabled = True

Timer7.Enabled = True

End Sub

Private Sub Command2_Click()

Dim i As Long

Dim z As Long

Dim j As Long

j = 0

Command2.Enabled = False

For i = 1 To 2500

For z = 1 To 2500

j = j

Next z

Next i

DoEvents

Timer1.Enabled = False

For i = 1 To 2500

For z = 1 To 2500

j = j

Next z

Next i

DoEvents

Timer2.Enabled = False

For i = 1 To 2500

For z = 1 To 2500

j = j

Next z

Next i

DoEvents

Timer3.Enabled = False

For i = 1 To 2500

For z = 1 To 2500

j = j

Next z

Next i

DoEvents

Timer4.Enabled = False

For i = 1 To 2500

For z = 1 To 2500

j = j

Next z

Next i

DoEvents

Timer5.Enabled = False

For i = 1 To 2500

For z = 1 To 2500

j = j

Next z

Next i

DoEvents

Timer6.Enabled = False

For i = 1 To 2500

For z = 1 To2500

j = j

Next z

Next i

DoEvents

Timer7.Enabled = False

Command1.Enabled = True

End Sub

Private Sub Option1_Click(Index As Integer) Dim i As Integer

For i = 1 To 5

If Option1(i - 1).Value Then

a = i - 1

End If

Next i

End Sub

Private Sub Command3_Click()

Command1.Enabled = False

Command2.Enabled = False

Dim k As Integer

For k = 1 To 5

a = k - 1

Call Command1_Click

DoEvents

For i = 1 To 2500

For z = 1 To 2500

j = j

Next z

Next i

DoEvents

Call Command2_Click

DoEvents

Next k

End Sub

Private Sub Command4_Click()

Form2.Hide

Form1.Show

End Sub

Private Sub Form_Load()

Command2.Enabled = False

Option1(0).Value = True

Timer1.Enabled = False

Timer2.Enabled = False

Timer3.Enabled = False

Timer4.Enabled = False

Timer5.Enabled = False

Timer6.Enabled = False

Timer7.Enabled = False

End Sub

Private Sub Timer1_Timer()

Randomize

Text1(a).Text = Rnd * 100 Mod 10

End Sub

Private Sub Timer2_Timer()

Randomize

Text2(a).Text = Rnd * 100 Mod 10

End Sub

Private Sub Timer3_Timer()

Randomize

Text3(a).Text = Rnd * 100 Mod 10

End Sub

Private Sub Timer4_Timer()

Randomize

Text4(a).Text = Rnd * 100 Mod 10

End Sub

Private Sub Timer5_Timer()

Randomize

Text5(a).Text = Rnd * 100 Mod 10

End Sub

Private Sub Timer6_Timer()

Randomize

Text6(a).Text = Rnd * 100 Mod 10

End Sub

Private Sub Timer7_Timer()

Randomize

Text7(a).Text = Rnd * 20 Mod 5

End Sub

Form3中的代码

Option Explicit

Private Sub Command1_Click()

Dim i As Integer, j As Integer, d As Integer

Dim a As String

d = 1

For i = 0 To 34

Text1(i).Text = Mid$(GenNnm, d, 2)

d = d + 2

Next i

'1-7排序并去初重复

aa:

For i = 1 To 6

For j = 0 To i

If Val(Text1(j).Text) > Val(Text1(i).Text) Then

a = Text1(i).Text

Text1(i).Text = Text1(j).Text

Text1(j).Text = a

End If

Next j

Next i

For j = 0 To 6

If Val(Text1(j).Text) = Val(Text1(j + 1).Text) Then

d = 1

For i = 0 To 6

Text1(i).Text = Mid$(GenNnm, d, 2)

d = d + 2

Next i

GoTo aa

End If

Next j

'7-14排序并去处重复

bb:

For i = 8 To 13

For j = 7 To i

If Val(Text1(j).Text)

a = Text1(i).Text

Text1(i).Text = Text1(j).Text

Text1(j).Text = a

End If

Next j

Next i

For j = 7 To 13

If Val(Text1(j).Text) = Val(Text1(j + 1).Text) Then

d = 15

For i = 7 To 13

Text1(i).Text = Mid$(GenNnm, d, 2)

d = d + 2

Next i

GoTo bb

End If

Next j

'14-21排序并去处重复

cc:

For i = 15 To 20

For j = 14 To i

If Val(Text1(j).Text)

a = Text1(i).Text

Text1(i).Text = Text1(j).Text

Text1(j).Text = a

End If

Next j

Next i

For j = 14 To 20

If Val(Text1(j).Text) = Val(Text1(j + 1).Text) Then

d = 29

For i = 14 To 20

Text1(i).Text = Mid$(GenNnm, d, 2)

d = d + 2

Next i

GoTo cc

End If

Next j

'21-28排序

dd:

For i = 22 To 27

For j = 21 To i

If Val(Text1(j).Text)

a = Text1(i).Text

Text1(i).Text = Text1(j).Text

Text1(j).Text = a

End If

Next j

Next i

For j = 21 To 27

If Val(Text1(j).Text) = Val(Text1(j + 1).Text) Then

d = 43

For i = 21 To 27

Text1(i).Text = Mid$(GenNnm, d, 2)

d = d + 2

Next i

GoTo dd

End If

Next j

'28-35排序并去处重复

ee:

For i = 29 To 34

For j = 28 To i

If Val(Text1(j).Text)

a = Text1(i).Text

Text1(i).Text = Text1(j).Text

Text1(j).Text = a

End If

Next j

Next i

For j = 28 To 33

If Val(Text1(j).Text) = Val(Text1(j + 1).Text) Then

d = 55

For i = 28 To 34

Text1(i).Text = Mid$(GenNnm, d, 2)

d = d + 2

Next i

GoTo ee

End If

Next j

End Sub

Function GenNnm() As String

Dim str1 As String

Dim i As Integer, Num As Integer

Dim usechar As String

usechar =

"0102030405060708091011121314151617181920212223242526272829303132333435"

str1 = ""

Randomize

For i = 1 To 36

Num = Len(usechar) * Rnd + 1

If Num Mod 2 = 1 Then

str1 = str1 + Mid(usechar, Num, 2)

Else

str1 = str1 + Mid(usechar, Num - 1, 2)

End If

Next i

GenNnm = str1

End Function

Private Sub Command2_Click() Dim i As Integer

For i = 0 To 34

Text1(i).Text = "" Next i

End Sub

Private Sub Command3_Click() Form3.Hide

Form1.Show

End Sub

Private Sub Form_Load() Option5.Value = True End Sub

Private Sub Option1_Click() Dim i As Integer

For i = 7 To 34

Text1(i).Visible = False Next i

For i = 0 To 34

Text1(i).Text = "" Next i

End Sub

Private Sub Option2_Click() Dim i As Integer

For i = 14 To 34

Text1(i).Visible = False Next i

For i = 0 To 13

Text1(i).Visible = True Next i

For i = 0 To 34

Text1(i).Text = "" Next i

End Sub

Private Sub Option3_Click() Dim i As Integer

For i = 21 To 34

Text1(i).Visible = False Next i

For i = 0 To 20

Text1(i).Visible = True Next i

For i = 0 To 34

Text1(i).Text = "" Next i

End Sub

Private Sub Option4_Click() Dim i As Integer

For i = 28 To 34

Text1(i).Visible = False Next i

For i = 0 To 27

Text1(i).Visible = True Next i

For i = 0 To 34

Text1(i).Text = "" Next i

End Sub

Private Sub Option5_Click() Dim i As Integer

For i = 0 To 34

Text1(i).Visible = True Next i

For i = 0 To 34

Text1(i).Text = "" Next i

End Sub

范文十:选村官,拉选票[散文欣赏] 投稿:陈悀悁

四年一届的村官选举又开始了,无论是办事处,村公所,还是比较小的村民小组都忙碌了起来,显得十分热闹。原任的村官们都想再当选,继续连任,上几届退下来的想死灰复燃,东山再起;从来没有当过的村官而又想过过官瘾,也是一个个跃跃欲试,志在必得。一个个都象吃了秤坨铁了心,大有不选上就誓不罢休之势。因此一届又一届的村官们也就象走马灯上的人影子一样,这届你当选,也许下一届我又当选,轮流着来。

不管当村官是出于什么目的,理由是什么,总之,在任的不想落选,没有在任的想挤上台,于是原任的村官和现在想当村官的是个个摩拳擦掌。于是各式各种各样的方法都用上,只要能够想得出来的办法都想了出来,凡是能够使得出来的手段都使了出来。真可谓挖空心思,来一个不约而同的拉选票。

于是大家都使出了浑身解数,先来一个全家总动员,老子儿子齐上阵,老婆儿女都出动,七大姑、八大姨都请了来,分了工,派上了用场,大家分头行动。走家窜户去窜连,凭着三寸不烂之舌,攀亲戚、拉关系,三代祖宗、八代儿孙,不管沾亲也好,带故罢,扯得上扯不上都胡乱攀扯。按自己的想法,凭着自己的寓愿,大谈特谈心目中的候选人如何如何能干,做人如何如何的好,枚举所谓的政绩,到时候一定得选举某某人来当,然后就是当选后的应诺,无非就是当上能给你带来什么好处,不管人家爱听不爱听,高兴不高兴。因此一部分村官就在这样家族式的拉票中产生了。

平时不大有人光顾的人家也相应的热闹了起来,有时一个晚上都会来上好几个拉选票的说客,这个刚出门,那个又进门,来了一拔又拔。逗得一个村子的狗咬,这家的狗咬声才刚刚停止,那家的狗又叫了起来,狗叫声此起彼落。拉选票的甚至相互会碰到,有时在门口,有时在路口,家中也会打照面。涵养好一点的相互点点头,大家心照不宣。要是涵养差一点的就会相互怒目而视,直至吐口水,甚至对骂,相互扯台,对骂中什么难听的话都能够听得到。

很多人家每逢换届选村官就不得清静,不得安宁,连续几天到了深夜还不能就寝,第二天还要早起干活。农村风俗又没有下逐客令的道理,有几家干脆锁了门出去躲清静。

记得在上几上届的选举中我们办事处就出现了五十块钱买一张选票的行径,在开始第一轮唱票时,就发现有一张选票上这样写道:“某某人出五十块钱一张选票叫我选他,我就是不选,就是不选”的奇闻。( 文章阅读网:www.sanwen.net )

由于一部分村干部在自己的任职期间毫无建树,声名都不佳。记得前几年就有人对一部分村干部进行了这样评论,“花钱靠救济,吃粮靠返销,村干部无所作为”。村干部相继在村民当中逐渐失去了诚信,所以就有很大一部分村民在选举的时候往往采取的是弃权,不是全部都画圈圈,就是全部都打叉叉,有一部分想当村官的人当选后了无非是能够捞一把,而不诚心诚意地为村民办实事,有的人几年村干部当下来,就成了村里的暴发户,据了解,根本没有其它途径的经济来源,因此有一部分乡村就流传着这样一口头禅,“若要富,当干部。”就拿我们村来说吧,参加竞选的有很大一部分就是原来就当过村官的人和现任的村官,历届村民小组长都不过是办事处听话的乖宝宝,一向办事处说了算,办事处的头头叫往东,绝不敢往西,无非是折腾那几个征地款,办事处借一部分,镇上借一部分,反正是无息借款,或是利息很低,没有期限,反正管它猴年马月去还,借来花了又作说,过几年我就调走了,当去要钱的时候,这个推那个,下届推上届。现在就有一种怪现象,差钱的是老爹,借人家钱的反倒只能当孙子,甚至村干部任意借出去,借剩下的存在办事处办的农经站,结果是放贷出去钱收不回来,而利益受损失的无非是村民。

倘使不把村上的那几个征地款折腾光,办事处和村民小组长的位置竞选争斗就不会停息。

单位征剩的零星小块土地也是办事处占些,办事处做主分给另外的村民小组一些,现在对于我们村的村民来说要钱没钱,要田又没有田栽,除了少数人另谋生路外,大部分人是闲着身子饿着肚子。

而在今年的换届选举中用得最多的是请吃饭。平时都是村民请村官吃饭,不管那一家办事情,无论事情大小,都得请村官吃饭,更不用甩红包送礼了,要不然村官们就可能会给你小鞋穿,不仅事情办不了,而且还会找你的茬。

可是一到选村官,就发生了戏剧性的变化,事情来了个180度的大转弯,不是村民们请村官吃饭,而是村官请具有选举权的村民们吃饭。今年的换届选举前,有几家就一连受到了好几个候选人的邀请。

而有的乡村还出现了咄咄怪事,想要当村官的人和原在任的村官请吃饭,请一人,全家都去跟着去,反正又不用送礼。对于小老百姓来说,村官家的饭难得吃,不吃白不吃,吃了又作说,到时候选不选你,选举权还在我手里捏着。

每一届的村官选举,自然是选上的洋洋得意,喜形于色,没有选上就象泄了气的皮球,即便强颜装欢也显得很勉强。

由于当选的人都要上台宣誓就职,于是在历届的村官选举会上各种奇闻笑谈也就相应的产生了。

下高田村有一个杀猪的当被选举上村官是这样宣誓就职的,“关于这个村长的位置么,我盼望有好几个年头了。今天,承蒙上级党委看得起,委以重任。也感谢铁哥们的承让,众位好友的捧场,父老乡亲们的抬爱,把我推上了这个村长的位置。我一定好好干,以报答上级党委对本人的栽培、提携之恩……。我当了村长后的第一件事就是,带领大家多多养猪,十个八个不嫌多,三个两个不嫌少,使大家尽快发家致富。”

上高田某某在上发言是:“现在都讲改革开放,改革开放是什呢?就是挖沟打坝,多打粮食多种菜。”

菜园村的一个原来是村里的饲养员在竞选村官的演讲为:“在菜园村这几年我没有功劳也是有苦劳的,全村的牛都是我整出来的……。”

诸如此类的枚不胜举。

站点地图