综合工作资料

第一篇：综合工作资料

《综合工作资料》目录

1、综治工作中心建设方案

2、进一步加强专职巡逻对管理办法

3、行业调解组织涉法涉诉信访案件化解方案

4、留守儿童妇女方案

5、集中、日常矛盾纠纷排查方案

6、矛盾纠纷调处计划

7、矛盾纠纷排查调处领导小组

8、经营性矛盾纠纷排查调处工作措施

9、矛盾纠纷调处中心领导小组10、2013年综治工作计划

11、加强企业安保的通知

12、流动人口管理工作制度、计划、领导小组

13、宣传费用支出

14、综治宣传工作领导小组

15、上半年宣传工作总结

16、综治干部培训

17、大调解工作方案

18、宣传工作计划

第二篇：《五彩池》综合资料

[《五彩池》综合资料]

一、教材说明

这是一篇精读课文，《五彩池》综合资料。课文讲了“我”到四川松潘县旅游时在藏龙山看到的五彩池的情景。课文生动、形象地描写了五彩池美丽的景色，赞美了大自然的神奇，表达了“我”热爱祖国河山的思想感情。

课文以“听说、向往——亲身前往、目睹奇景——简介成因——赞叹人间瑶池”为思路，重点讲述了五彩池的数量、颜色、大小、深浅和形状，以及池水显出不同颜色的原因：一是池底长着许多姿态各异、高低不同的石笋；二是阳光折射的作用；三是池边茂盛的树木花草在池水中的倒影，使池水瑰丽多彩。

课文开头讲五彩的瑶池在天上，而结尾讲五彩池就在人间，首尾呼应，意味深长。课文运用大量生动形象的语言及打比方的句子，把感情的表达和景色描写交融起来，这些都是本文在表达上的特点。

选编这篇课文的意图，一是让学生了解五彩池这一神奇瑰丽的自然景观及其成因，感受大自然的神奇和美丽；二是引导学生感受语言美，想象这些句子所描绘的景象，培养形象思维的能力，同时注意学习和积累语言。

课文主要内容不难理解，但形象思维能力的培养和语言的理解却有一定难度，是学习本

课的重点和难点。同时，对五彩池成因的理解也是知识性难点之一。

二、学习目标

1.认识本课21个生字，学会其中的16个。能正确读写下列词语：昆仑山、腾云驾雾、藏龙山、神奇、漫山遍野、光辉、凝成、镰刀、普通、石笋、丘陵、险峻、折射、瑰丽。

2.能有感情地朗读课文，背诵第二、四自然段。摘录、积累有关词句。

3.了解五彩池的特点及其成因，感受大自然的美，培养热爱祖国的思想感情。

4.理清课文叙述顺序，理解文中打比方的句子。

三、重点难点例析

了解五彩池的特点以及池水显出不同颜色的原因。例析：

课文通过对五彩池的大小、形状、颜色及显出不同颜色的原因的描述，抒发了作者对祖国秀丽河山的赞美之情和对大自然的喜爱之情。

课文第2-4自然段具体描绘五彩池是什么样的以及池水为什么呈现各种色彩，是从三方面讲的：一讲五彩池的数量、颜色、大小、深浅和形状。“晴朗”、“灿烂的阳光下”这是池水呈现多种颜色的一个重要原因。“漫山遍野”、“大大小小”、“无数”是讲水池很多，不可计数。然后运用对比、比喻修辞方法，生动形象地描绘了五彩池的形状；二讲五彩池池水的特点：“所有的池水来自同一条溪流”，说明各池中的水源相同，然而“流到各个水池里，颜色却不同了”，甚至一池水有几种颜色，上下左右各不相同，“可是把水舀起来看，又跟普通清水一个样”真是神奇！三讲其原因：一是“池底长着许多石笋”而且姿态不同，“表面凝结着一层细腻的透明的石粉”；二是阳光射到池底，石笋成了折光镜，把阳光折射成不同颜色；三是池边树木花草茂盛，五光十色的倒影，使池中水更加瑰丽多彩。

四、教学建议

2.从整体入手，启发学生通览全文，交流对这篇课文的总体感受。然后引导学生讨论课文叙述的顺序。课文先讲五彩池在什么地方，再讲五彩池是什么样子的，接着讲五彩池池水的颜色以及池水显出不同颜色的成因，基本上是按叙述的内容组段成篇的。

3.本课的重点内容——五彩池的特点以及池水显出不同颜色的原因，可以采用合作学习的方式进行。将全班学生分成四—六个小组，围桌而坐，讨论五彩池有哪些特点和五彩池显出不同颜色的原因。然后推选代表向全班同学汇报讨论结果，其他同学给予补充或纠正。最后教师做一些简要的归纳。

第二自然段主要是介绍五彩池的数量、颜色、大小、深浅和形状，应引导学生重点抓住打比方的句子进行学习，感受五彩池的神奇与美丽。①找出打比方的句子读一读。②讨论这些打比方的句子把什么比作什么，以及这样写的好处。③发挥想象力，利用课文插图，结合上下文，想象这些句子所描写的如诗如画的情景。第三自然段主要讲五彩池池水的特点，应引导学生抓住“却”“可是”以及方位词“上层、下层、左半边、右半边”来理解不同的水池颜色各异，同一池水颜色不同的神奇之处。---------------------------

了解池水呈现不同颜色的成因，可先引导学生读第四自然段，进行探究性讨论交流。如有条件，可以用课件展示池底地质结构特点，理解在阳光照射下，表面凝结细腻透明石粉的石笋怎样起到折光镜的作用(也可用三菱片演示)。最后，师生共同归纳出原因：一池底有高低不平的石笋；二石笋表面有石粉；三阳光折射；四花木倒影。

课文最后一句“原来五彩的瑶池就在人间，不在天上。”可引导学生通过如下方法来理解，一是回顾课文开头，启发学生理解作者引用神话故事的目的就是衬托人间的五彩池；二是联系课文内容，理解现实中的五彩池比天上的瑶池更美，从而体会作者对神奇的大自然的热爱之情。

此外，课文开头交待“我”是在“夏天”的一个“晴朗”日子看到五彩池，这与下文的关系很密切。夏天雨水充足，花草繁茂，是大自然呈现生机勃勃的季节，为下文描绘五彩池的绚丽神奇做了铺垫；天气晴朗，无数水池在灿烂的阳光下才会闪耀各种光辉。这些前后有联系的内容，学生自学时可能忽略，教师可做适当的提示。

4.这篇课文景美，文也美，教学中要引导学生在反复朗读中，读出作者初见五彩池时的惊讶之情，了解池水颜色不同的原因时的喜悦之情，从而感受五彩池的美，体会作者热爱大自然的感情。在理解内容、了解了课文叙述顺序的基础上，做到熟读成诵。

5.关于词语的教学。本课是写景叙事的文章，宜用直观形象的方法来学习词语。直观形象的方法包括图片、实物、调动学生的生活积累、运用类比的方法、启发学生用动作来表示等。如“腾云驾雾”一词，可以引导学生回忆《西游记》中的某些镜头；“一丈、一亩”可以用类似长度、面积的事物来类比等等。

6.关于了解五彩池色彩斑斓的现象形成的原因，建议与自然

第三篇：九年级综合学习资料

1、岁月如歌

仿佛还是昨天，我们兴高采烈地路过初中大门，可一眨眼，三年的学习时光已悄然逝去，今天，朝夕相处的同学，老师，依依不舍地相聚在离别的路口，让我们再次回眸那些一起欢笑，共同奋斗过的难忘岁月，重温那份永远存于心的浓浓情谊，并畅想绚丽多彩的未来吧！

1、往日盘点：A.假如你在接受采访，请用简明的语言告诉记者在三年的学习中最大的收获是什么？B.回首初中三年的生活,你肯定参加过许多有意义的活动,请写出一项活动的名称及取得的效果。

答案示例：A例：回首三年的学习，我最大的收获是掌握了自主学习的方法；阅读能力有了很大的提高；积累了许多诗词名句；认识了很多朋友等等。B活动名称：远足活动效果：锤炼了意志，开拓了视野，增长了才干。

2、临别赠言：（1）离别难免伤感，请你写出两句（上下句）适宜作为赠言的古诗送给朋友，以激励或劝慰他（她）。答案示例：激励类：长风破浪会有时，直挂云帆济沧海（李白）男儿何不带吴钩，收取关山五十州（李贺）劝慰类：海内存知已，天涯若比邻（王勃）

（2）毕业在望，分手之际，你最想写给老师的赠言是：。

答案示例：①人生旅程上，您丰富我的心灵，开发我的智力，为我点燃了希望的光芒。谢谢您，老师！②老师，您是海洋，我是贝壳，是您给了我斑斓的色彩 „„ 我当怎样地感谢您！③踏遍心田的每一角，踩透心灵的每一寸，满是对您的敬意。

3、依依相聚：

（1）离别前，九（1）班同学计划于6月10日19时到21时举办“共话友情，畅想未来”的师生联欢晚会，如果大家推选你负责，请你设计活动实施的步骤。第一步：；第二步：；第三步：；第四步：。

答案示例：依次：主持人宣布活动开始；齐唱校歌；开展主题班会；老师总结。

（2）班级征集晚会主题语，要求是简洁、形象的一句话或一个短语，你写的是什么？ 答案示例：（1）花季情，良师恩（2）友谊地久天长（3）共话友情，畅想未来（3）晚会在热闹的气氛中结束了,请你设计一则结束语,宣告晚会结束。

答案示例：敬爱的老师！亲爱的同学！让我们珍藏起离别的愁绪，挥一挥手，道一声珍重。祝恩师们事业顺利，桃李满天下。祝同学们学业步步高升，生活开开心心。老师们，同学们，2009届九（1）班毕业晚会到此结束。再见！（敬爱的老师，亲爱的同学，当听到初夏第一声蝉鸣，我们却迎来了分手的最后一刻，三年了，一千多个日日夜夜，我们一起度过了这人生中最难忘的时光；多少次，在晨光中，我们勤思苦读，多少次，在灯光下，我们埋头苦做，我们风雨同舟，我们携手共进，然而，天下没有不散的宴席。今天，让我们以青春飞扬的心情，共度最后一个美丽夜晚吧！）（4）以班委会名义给学校团委书记黄老师写一封邀请信，请他参加这次主题班会(限50字左右，格式符合书信要求)。

2、微笑着面对生活

九年级（1）班的同学正在举办“面对困难，我们该怎么办”的讨论会。假如也邀请你参加。你一定能完成下面的任务！

1.请你为本次活动拟一个主题语。答案示例：（1）困难中我们走向坚强（2）微笑改变生活（3）微笑伴我成长。2.请你为活动安排合理的步骤。

答案示例：（1）主持人宣布活动主题及内容。（2）请同学们讲述名人战胜困难的故事（3）学生代表谈感受表决心。

3.请谈谈本次活动的感受。

答案示例：通过本次活动。我明白了困难并不可怕，关键的是我们应该有战胜困难的勇气，这样我们才能树立信心、战胜困难、迎接成功。

4.生活中我们该怎样面对困难面对呢？请提一条建议。

答案示例：在人的一生中，遇到困难是不可避免的，关键的是我们要有乐观的心志去面对困难，这样就会把困难、失败变成前进路上的垫脚石。

5、请写出一句与“困难·逆境”有关的名人名言作为自己的座右铭。

答案示例：（1）顽强的毅力可以征服时间上任何一座高峰。——狄更斯（2）逆转不就是性格的试金石吗？——巴尔扎克

6、如果你是这次活动的主持人，请你为这次活动设计一段开场白。

答案示例：在有的人眼里，困难好像无底的深渊，掉下去就再也没有了希望。在有的人眼里，困难则好象万能的磨刀石，越磨越快，越搓越勇。亲爱的同学们，面对困难，我门应该怎么办呢？

7、面对困难，我们该怎么做呢？许多仁人志士给了我们最好的答案。你能说出两个这样的名人故事吗？

答案示例：（1）海伦.凯勒在逆境中站起。（2）将身体炼成钢铁的奥斯特洛夫斯基。（3）爱迪生笑对千次失败，终于为人类发明经久耐用的电灯泡。

8、面对困难，我们该怎么做呢？如果班会上安排你发言，那么你的主要观点是什么？请用两三句话表达出来。

答案示例：面对困难。我门要想办法克服它。要善于把大困难分解成一个个小困难。然后个个击破。

9、你的一位同学在多次考试中，虽然经过不断的努力，但成绩还是不够理想，他感到前途渺茫，打算放弃。通过本次活动后，你打算该怎样劝说他？

答案示例：别灰心，俗话说：“谁笑到最后，谁才是胜利者”，请相信自己，你一定会从失败中站起来。

3、好读书，读好书

1、如果你是“读书活动”的组织者，请你谈谈活动的目的。不少于两条。

答案示例：（1）通过开展读书活动，提升文学素养，陶冶情操，培养高尚的道德情操和健康的审美情趣，形成正确的价值观和积极的人生态度；（2）通过开展读书活动，来拓宽视野，丰富知识。（3）通过开展读书活动，塑造我们健康、美好的心灵。（4）通过开展读书活动，提高对读书的意义的认识，让大家喜欢读书，养成勤于读书的好习惯。

2、请给本次活动确定主题。答案示例：（1）阅读名著，陶冶情操（2）书香满校园；（3）书海泛舟（4）我和名著有个约会（5）我读书，我快乐（6）让书香伴随花香，让名家走进心灵（7）青春书为伴（8）“与书籍结伴而行”

3、请给活动拟一条宣传标语答案示例：（1）读书破万卷，下笔如有神（2）读万卷书，行万里路（3）书是为类精神食粮（4）阅读名著，陶冶情操（5）鸟欲高飞先振翅，人求上进多读书（8）书籍是人类进步的阶梯

4、如果你来主持本次活动，你会采取哪几种活动形式来开展？说出三种以上。

答案示例：（1）举行一次读书问卷调查（2）请新华书店到学校搞一次书展（3）请作家作一场“走进名著”报告会（4）在全校（或班级）举办“读书交流会”（5）在全校（或班级）举办“读书演讲会”（6）举行“名著走向舞台”话剧表演（7）举行名著知识竞赛（8）编辑“读书名言”（9）“读书故事”大家讲；（10）出“读书经验谈”专题墙报（黑板报）

5、请你设计出活动开场白。答案示例：（1）同学们，阅读文学名著，能够培养高尚的道德情操和健康的审美情趣；形成正确的价值观和积极的人生态度；“三日不读书，面目可憎”，让好读书，读好书成为我们生活的习惯，让我们在古今中外的名著海洋中遨游吧！（2）同学们，著名作家莎士比亚曾说过：“书籍是全世界的营养品。”高尔基曾说过：“书籍是人类进步的阶梯。”俄国作家列夫.托尔斯泰说过：“理想的书籍是智慧的钥匙。”书籍在你寂寞时陪伴着你；在失败时给你鼓励；在伤心时给予你安慰。今天就让我们共同走进书籍吧！

6、请以“举行名著知识竞赛”为例，写出具体活动步骤。

答案示例：步骤一：主持人讲话(致开场白)；步骤二：选手分别上台进行名著知识演讲；步骤三：评分、颁奖；步骤四：老师总结。

7、活动结束后，你认为此次活动还有哪些不足，请你写出两条活动建议。

答案示例：（1）学校图书室应多储备一些中外名著和适合学生阅读的书籍；（2）学校图书室应增加对学生开放次数；（3）学校多举办些读书活动，营造更加浓厚的读书氛围；（4）建议学校举办一次关于读书的讲座。

8、请写出一条你收集到的名人读书方法。答案示例：（1）孔子的“学思结合法”：学而不思则罔，思而不学则殆“（2）冰心“创新法”：读书恨与古人同。

9、在“读书名言发布会”活动中请你发布三条信息。答案示例：（1）英国著名戏剧家莎土比亚曾大声告诉我们：“书是全世界的营养品。（2）我国明朝著名诗人朱熹还说过：“读书要有三到：眼到、口到、心到。”（3）我国唐代著名诗人杜甫也说过：“读书破万卷，下笔如有神。”（4）前苏联无产阶级文学家高尔基说：“书是知识的源泉。”（5）歌德还告诉我们：“读一本好书，就是和一个高尚的人谈话。”

10、在活动中，同学们都认为读书要有好方法，运用正确的读书方法才能有收获。请谈谈你对读书方法的认识。答案示例：读书要像蜂采蜜，一要多读，读各类书；二要努力读懂，不能不懂装懂；三要在读书过程中反复思考，领会吸取书中的有用知识。

11、许多同学对读书还是不屑一顾，你也希望大家多读经典名著，在活动结束时，请你送给同学们几句劝勉的话。

答案示例：经典名著是人类文化的精华。阅读名著，如同与大师们携手共游，可以增长见识，启迪智慧，提高语文能力和人文素养。

12、请你写出两句关于读书的比喻。

答案示例：（1）书犹药也，善读可医愚。——刘向（2）理想的书籍是智慧的钥匙。——高尔基

13、中学生存在阅读量达不到400万字的情况，请分析造成这种情况的原因，并提出改进建议。答案示例：原因：课业负担重，学生没时间读书，学校缺少书籍及阅览室。建议：学校应开放阅览室，多购置书籍，学校每天应安排一节读书课，让学生自由阅读，扩大阅读量。

14、请向同学推荐一部你最喜欢的名著，并说说理由。

答案示例：《名人传》。理由：不仅是部文学名著，而且在提高人们对于历史和伟人的认识、树立正确的人生观等方面，都有重要意义。

15、对于应该读什么样的书，人们历来各有看法，下边是最有代表性的三种观点。你认同哪种，理由是什么。

观点A：读经典的书，就开阔了精神的视野。观点B：读流行的书，就走在了时代的前列。观点C：读实用的书，就架设了生活的桥梁。

答案示例：我认同观点(A或B)。理由：A经典名著是人类文化的精华。阅读名著，如同与大师们携手共游，可以增长见识，启迪智慧，提高语文能力和人文素养。B流行书用的是现代生活中鲜活的语言，反映的是当代人的思想感情，读起来轻松省力，有兴趣，吸收快。

4、话说千古风流人物

班上将开展“话说千古风流人物”的语文活动，请你完成下列任务。1．为营造气氛，请你为该活动拟一个宣传标语。答案示例：千古风流人物，永恒的精神领袖！

2．在“讲保卫国土故事”活动环节中，你将向同学们介绍（人名），有关这位风流人物的主要事迹是： 答案示例：郑成功、收复台湾失地，赶走荷兰入侵者，维护国土的完整，是伟大的民族英雄。

3．襄樊人杰地灵，风流人物辈出，你最崇拜谁？写出该风流人物写的诗文名句（完整的一句）。风流人物：诗文名句答案示例：诸葛亮、受任于败军之际，奉命于危难之间

4．轮到“讲名人故事”小组发言时，该小组还没有准备好，导致活动冷场，针对此情况，你会提出怎样的建议？答案示例：①小组长要加强分工协调 ②活动策划者要在活动前统筹，过问各环节负责人准备情况。

5．按要求回答问题：班上将开展“话说襄樊历史人物”综合性学习活动，要求你在活动中介绍一位襄樊历史人物。为了完成任务，你将采访有关人士。

备选历史人物：诸葛亮、皮日休、柳永、孟浩然、米芾、张自忠、黄火青、聂海胜

（1）你打算采访（人名），你知道你要采访的这位人物的主要事迹是：。人物：诸葛亮主要事迹：辅佐刘备建立蜀汉，形成三国时三足鼎立的局势。

（2）为联系采访，你打电话给采访对象：襄樊教育学院专门研究诸葛亮的教授。开头你该怎么说？要求说明目的，语言得体。涉及学校名称和自己姓名时，请用A、B、C等字母代替。

答案示例：老师，您好！我是B中学的学生C，我们班上正开展“话说襄樊历史人物”活动，我想了解诸葛亮的有关情况，您是研究诸葛亮的权威，我很希望当面向您请教有关问题。（3）请你根据需要，拟定3个准备在采访中提出的问题。

答案示例：①诸葛亮的主要贡献是什么？②青少年时期的诸葛亮有哪些值得我们青少年学习的地方？③作为研究诸葛亮的学者，诸葛亮给您印象最深的是什么？

拓展型试题：

襄樊拥有丰富的人文资源和景观，三国文化是襄樊的历史瑰宝，诸葛亮在海外声名远扬，我们要借用这张“名片”，进一步扩大对外开放，发展旅游经济，将襄樊建成文化大市、旅游大市，因此襄樊决定举办以“三国”文化为中心的“中国襄樊诸葛亮文化旅游节”活动。

1．请你为这次活动拟一条宣传语。答案示例：赏襄樊风光，学诸葛智慧

2．这次旅游节决定举办一场“三国文化知识竞赛”活动，邀请你当主持人，你将怎样主持这次活动，请写出活动步骤。（不少于三步）

答案示例：①主持人讲话，宣布竞赛规则要求②选手参加竞赛③评奖，宣布比赛结果④主持人作总结

3．襄樊的旅游景点多而分散，为了使旅游业拉动经济发展，实现“文化搭台，经济唱戏”的目标，请你给旅游部门提两条合理化建议。

答案示例：①将襄樊旅游文化资源进行整合，编辑成册，分发给游客，让他们“一册在手，畅游无阻”。②利用媒体，加大宣传力度。

4．请谈一谈你对这次活动的感受或者收获。

答案示例：“中国襄樊诸葛亮文化旅游节”活动让我对襄樊地域文化有了更深的了解，让我更热爱自己的家乡，我也要向那些名人学习，从现在做起，努力学习，争取长大后为家乡作贡献。

5、我所了解的孔子和孟子

《我所了解的孔子和孟子》是我们曾经经历的一次语文综合性学习活动，也许这次活动，已成为难以磨灭的生命印记，成为我们享受生活快乐的一种体验，请依据本次综合性学习活动回答下列问题。

1、如果本次活动语文老师让你设计活动方案，请你补充完整下边的设计。

活动目的：。

答案示例：让同学们比较全面地了解孔子和孟子，亲身体验和了解灿烂悠久的中华文化，培养学生的民族自豪感，从而综合提升同学们的人文素养。

活动准备：。

答案示例：确定活动主题并进行活动分组，推选出小组长，安排各小组活动内容。活动展示过程：开班会汇报交流活动成果。活动总结：请语文老师对活动进行总结。

2、［孔孟小档案］在活动准备阶段，老师给你们小组分配了两个课题，请完成：（1）简介孔孟：A．孔子：B、孟子：

答案示例：名丘字，字仲尼，春秋时鲁国人，思想家、教育家，被尊为孔圣人，是儒家学派的代表人物。名轲，战国人，思想家教育家，是孔子之孙孔伋的再传弟子，是继孔子之后的一位儒家大师，被尊为亚圣。（2）了解孔子弟子和门人：我们通常说孔子有弟子，其中最突出的有人，如、、。答案示例：三千、七十余、子贡、曾参、颜回

3、［孔孟名言知多少］请将孔子和孟子的名言各举一例，并稍加点评。

答案示例：A．三人行，必有我师焉。这句话教育我们要有谦虚的美德。B．天时不如地利，地利不如人和。这句话点明了决定战争胜负的三要素，并突出了人和的重要性。

3、作为活动的策划人，你打算以何种形式汇报交流各小组的活动成果，写出你的打算（不少于两种）。答案示例：1情景表演 2演讲 3展出 4班会

4、为了开好本次班会，如果让你设计一个开场白，你打算该如何设计?

答案示例：同学们，五千年灿烂悠久的中华文化曾经在人类文明史上创造过无数的奇迹，孔子和孟子便是这些奇迹中两颗耀眼的明星，他们超人的智慧、深邃的思想、积极的人生态度，影响了一代又一代的中国人。一个星期来，我们通过阅读、上网查找和请教老师，搜集了有关孔子、孟子的大量资料，并精心编排，今天在这里展示我们的成果，请老师多多指导。

5、在互动交流过程，同学们开展了孔孟知识抢答，试试看你能否抢答出下列问题。

①孔子――我国封建社会的圣人，其思想核心是“”，其思想的保守方面是“”，其思想的精华是“” ；孟子――儒家学派最重要的继承人，《孟子》一书的思想主体是伦理政治学说，其理论基础是论，孟子思想的核心是“”学说，即“民贵君轻”。

答案：仁、礼、知、性善、仁政

②说出《论语》中的成语四个答案示例：温故知新温故知新 任重道远 杀身成仁③《孟子》中成语也很多，请说出两个答案示例：生于忧患，死于安乐舍生取义 ④孔子和孟子是春秋战国时期著名的思想家、教育家，请分别举一个与孔子和孟子有关的传说故事。答案示例：孔子：周游列国 孔子韦编三绝孟子：孟母三迁 三断机杼

6、青春随想

1、如果你班举办一次歌颂青春的主题班会，请你拟一个班会主题。

2、如果你有一个美丽的心愿，请你把它写在一张纸上，折成一只小船，放在水中，让它带着你的心愿，漂向远方。我的心愿：

3、《青春随想》综合性学习展示课上，老师先让每个同学说一句话，作为自己的青春座右铭，你的座右铭是：

4、你写出二条关于青春的名言警句、俗语、谚语。

5、请简要写出一个名人在青春时期的故事。

6、请写出青少年心理健康的标志。（至少3条）

7、学校《金星》报准备开辟一个“青春论坛” 栏目，现请你作为本栏目的编辑，你准备设计哪些

专题？（不得少于二个）

8、请你为《金星》报的“青春论坛” 写一个开篇词。（150字左右）

9、青春如花似玉，热烈灿烂，青春让我们充满热情、朝气。倘若本班要举行一个主题班会，请你

为主持，请你设计一个开场白。

附答案：

1、放飞青春

2、我希望自己将来能成为之一个科学家。

3、少壮不努力，老大徒伤悲。

3、青春须早为，岂能长少年。（孟效）莫等闲，白了少年头，空悲切。

4、刘胡兰被捕时，面对敌人的铡刀，毫不畏惧，英勇就义。

5、见教材。

6、专题一：《青春的对话》二：《我的青春宣言》

7、青春是人生最美丽的花朵，青春是人生最壮丽的篇章，因为在青春的季节我们有的是激情和希

望。我们是十五六岁的少年，我们正值人生的花季。青春的血液在奔流，青春的心儿在跃动，青春的脚步在延伸。驻足青春的驿站，我们回味昨天，畅想明天，青春的岁月如花似火！朋友，请跟我来，让我们一起踏上青春的快车，去欣赏那一道道亮丽的风景线！

8、同学们，青春绚丽多彩，朝气蓬勃，青春是一首流淌的歌，青春是一杯香醇的酒。此时此刻，我们欢聚一堂，让我们以美妙的歌声，轻盈的舞姿展开青春的翅膀，尽情的翱翔吧！

******************************************************************************* 1．你班将举行一次《青春颂歌》的主题班会，请你设计一段开场白。参考答案：

(1)．同学们!仰首是人生，俯首是青春。青春的血液在奔流，青春的心儿在跳动，我们热爱青春，我们

相信“爱拼才会赢!”在人生的花季中，我们携手并肩，共同唱响：青春万岁!

(2)我们是十五六岁的少年，我们正值人生的花季。青春的血液在奔流，青春的心儿在跃动，青春的脚步在延伸。驻足青春的驿站，我们回味昨天，畅想明天，青春的岁月如火如花！请跟我来，我们一起上青春的车，欣赏那一道道亮丽的风景线！

2、歌颂青春的电影电视：《英雄儿女》《大浪淘沙》《钢铁是怎样炼成的》《歌唱你，叶欣》《激情燃烧的岁月》

3、和青春有关的歌曲：《青春啊青春》《共青团之歌》《花样年华》《让我们荡起双桨》《在希望的田野上》《青春舞曲》《青春进行曲》

4、和青春有关的书籍：杨沫的《青春之歌》、《花季雨季》、王蒙的《青春万岁》、《无怨的青春》、《年轻的思绪》、《青春》、《青春的梦幻》、《青春的童话》。

5、写一句有关“青春”的格言（名言警句）。青春须早为，岂能长少年。（孟郊）少年智则国智,少年强则国强。（梁启超）青春时期的任何事情都是考验。（史蒂文森）青春是不耐久藏的东西。（莎士比亚）自信和希望是青年的特权。（大仲马）

斗争的生活使你干练，苦闷的煎熬使你醇化；这是时代要造成青年为能担负历史使命的两件法宝。（茅盾）更多见课本P1016、给自己写一则青春的座右铭（青春心语）

（1）了解世界，是我们的兴趣；探索人生，是我们的愿望；学习知识，是我们的追求。（2）理想像手中的利斧，斩断荆棘冲击平庸；有了理想，梦中便有了希冀。（3）青春离开了伟大的理想，只不过是东流水上漂浮的落叶。

（4）灿烂的理想，使我们年轻的心胸如宇宙般辽阔，让五色斑斓的星星在心空中闪烁。

7、为了让学生多侧面了解青春，进一步感受青春的活力、青春的朝气、青春的奋斗，学校将举行一次以“青春”为主题的盛大文艺汇演。

（1）组委会将为全体学生征集文艺汇演主题语，要求是语言简洁、形象的一句话或短语。

示例：飞扬的青春飞扬的神采

（2）假如你是本次活动的主持人，请你设计一段精彩的开场白。（80字左右）（示例见上1）

（3）为了让学生感受到青春的火热、灿烂、美丽，让他们发自内心地热爱青春、热爱生活，学校想开辟更多的活动途径。如果是你会设计哪些活动形式？ 活动形式一：举行文艺汇演活动形式二：观摩专题影视 活动形式三：举行演讲比赛活动形式四：参观教育基地 活动形式五：进行征文比赛活动形式六：开展橱窗宣传 活动形式七：举办书画展览

8、我们正在走进五彩缤纷、朝气蓬勃的青春花季。步入青春，自我独立，个性逐渐形成。为了让自己青春的脚步迈得雄健有力，就必须拥有健康的心理。你认为心理健康的标志有哪些呢？请写出四点。示例：（1）积极向上，精神饱满，朝气蓬勃，有自信心、进取心、自尊心。（2）善于适应环境。（3）情绪稳定而愉快。（4）能建立互敬互爱、相互理解的人际关系。

9、学校《金星报》准备开辟一个“青春论坛”栏目，现请你作为本栏目的编辑，你准备设计哪些专题？（不得少于两个）

我的设计：专题一：《青春的对话》专题二：《我的青春宣言》专题三：《我的未来不是梦》专题四：《青春座右铭》专题五：《男女生如何相处》

10、你的青春偶像是谁？崇拜他的理由是什么？

示例：保尔.柯察金，因为他一生十分坎坷，在双目失明的情况下还坚持写书，对自己毫不顾惜，用顽强的毅力完成了巨著。保尔可谓强者的化身。

第四篇：综合实践活动资料

综合实践活动资料 电池的危害

有关资料显示，一节一号电池烂在地里，能使1平方米的土壤永久失去利用价值；一粒纽扣电池可使600吨（60万升）水无法饮用，相当于一个人一生的饮水量。对自然环境威胁最大的五种物质，电池里就包含了三种：汞、铅、镉。若将废旧电池混入生活垃圾一起填埋，渗出的汞及重金属物质就会渗透土壤、污染地下水，进而进入鱼类、农作物中，破坏人类的生存环境，间接威胁到人类的健康。废旧电池的危害性：废旧电池的危害主要集中在其中所含的少量的重金属上，如铅、汞、镉等。这些有毒物质通过各种途径进入人体内，长期积蓄难以排除，损害神经系统、造血功能和骨骼，甚至可以致癌。铅：神经系统(神经衰弱、手足麻木)、消化系统(消化不良、腹部绞痛)、血液中毒和其他的病变。汞：精神状态改变是汞中毒的一大症状。脉搏加快，肌肉颤动，口腔和消化系统病变。镉、锰：主要危害神经系统。洋快餐的危害

在中国的洋快餐有肯德基、麦当劳等。“洋快餐”具有三高（高热量、高脂肪、高蛋白质）和三低（低矿物质、低维生素和低膳食纤维）的特点。营养学家为“洋快餐”取了个绰号———叫做“能量炸弹”和“垃圾食品”。世界桥梁之最

现存最古老的敞肩拱石桥是河北赵县赵州桥。隋朝开皇十五年至大业元年（595～605年）建。

现存最早的也是桥洞最多的联拱石桥是江苏苏州宝带桥。唐元和十一年（816年）始建。

现存最早的十字桥是山西晋祠鱼沼飞梁，北宋崇宁元年（1102年）建。最早的开关活动式大石桥是广州潮州广济桥。明宣德十年（1435年）建。世界上跨度最大的石拱桥——1946年瑞典建成的绥依纳松特桥,跨度为155m.世界上第一座具有钢筋混凝土主梁的斜拉桥——1925年在西班牙修建跨越但波尔河的水道桥,主跨为60.35m.世界上跨径最大的预应力混凝土斜拉桥——西班牙的卢纳巴里奥斯桥,跨径达440m,采用了双面辐射形密索布置.世界第一的悬索桥——日本明石海峡桥,横跨日本内海,使日本神户与淡路岛紧紧相连.这座大桥全长3190M,中央跨度1990m于1998年竣工.它可以承受里氏8.5级地震.孔数最多的桥——苏州的宝带桥，有53各桥孔。最大的交叉桥——北京三元交叉桥。

最早的桥梁——陕西西安市的灞桥。有二桥六百多年历史了。最大最重的石梁桥——福建省漳州的虎渡桥。最长的石梁桥——福建省晋江县的安平桥。造纸的历史

造纸为我国古代四大发明之一。早在1800多年前，造纸术的发明家蔡伦即使用树肤(即树皮)、麻头(麻屑)、敞布(破布)、破鱼网等为原料制成“蔡侯纸”，于公元105年献给东汉和帝，受到高度赞扬。造纸术的发明对中国和世界文明进步做出了巨大贡献。

在造纸术发明的初期，造纸原料主要是破布和树皮。造纸的历史

造纸为我国古代四大发明之一。早在1800多年前，造纸术的发明家蔡伦即使用树肤(即树皮)、麻头(麻屑)、敞布(破布)、破鱼网等为原料制成“蔡侯纸”，于公元105年献给东汉和帝，受到高度赞扬。造纸术的发明对中国和世界文明进步做出了巨大贡献。

在造纸术发明的初期，造纸原料主要是破布和树皮。花的意义

竹

竹之雅意也是清幽，风骨亮节，与其他三友并列之。人常说瘦竹，并且比喻那些为人廉洁刚正不讹的仙风道古。

兰

兰是四君子当中的佼佼者，她的淡雅，她的香。人们喜欢兰花，喜欢她的高雅。

梅

梅花香自苦寒来,喜欢梅花高雅的气质,不畏严寒,独独在雪中肆意盛开,不管不顾的旁若无人。

菊

人云：“人淡如菊。”

牡丹是我国特有的名贵花卉,雍容华贵、富丽端庄、芳香浓郁,素有“国色天香”之美称,被誉为富贵吉祥、繁荣昌盛的象征。

荷花

洁身自好

紫罗兰：象征希望、节操和幸运。水仙花：象征友情、真诚和恳切。白百合：象征纯洁和忘我的境界。玫瑰花：象征真情的爱。

康乃馨：象征体贴和遐思。送母亲或送病人 空气污染

Pm2.5 pm为英文particulate matter的缩写，翻译成中文叫做颗粒物。pm2.5是指大气中直径小于或等于2.5微米的颗粒物，有时也被称作入肺颗粒物。我们日常常见的雾霾天气大 多数情况下就是由pm2.5造成的。虽然pm2.5在大气中的含量极少，但是，由于质量小，携带病毒及有害物质时间长、传输渠道多样、移动距离较远、对人 体造成的危害较大，pm2.5的确是名符其实的隐型杀手!pm2.5就是汽车的尾气排出后升到天空造成了污染

茶艺

1.绿茶：茶是不经过发酵的茶，即将鲜叶经过摊晾后直接下到一二百度的热锅里炒制，以保持其绿色的特点。

名贵品种有：龙井茶、碧螺春茶、黄山毛峰茶、庐山云雾、六安瓜片、蒙顶茶、太平猴魁茶、君山银针茶、顾渚紫笋茶、信阳毛尖茶、平水珠茶、西山茶、雁荡毛峰茶、华顶云雾茶、涌溪火青茶、敬亭绿雪茶、峨眉峨蕊茶、都匀毛尖茶、恩施玉露茶、婺源茗眉茶、雨花茶、莫干黄芽茶、五山盖米茶、普陀佛茶。

2.红茶 ：红茶与绿茶恰恰相反，是一种全发酵茶（发酵程度大于80％）。红茶的名字得自其汤色红。

名贵品种有：祁红、滇红、英红。

红茶----红茶与绿茶的区别，在于加工方法不同。红茶加工时不经杀青，而且萎凋，使鲜叶失云一部分水分，再揉捻（揉搓 成条或切成颗粒），然后发酵，使所含的茶多酚氧化，变成红色的化合物。这种化合物一部分溶于水，一部分不溶于水，而积累在叶片中，从而形成红汤、红叶。红茶主要有小种红茶、工夫红茶和红碎茶三大类。

3.黑茶：黑茶原来主要销往边区，像云南的普洱茶就是其中一种。普洱茶是在已经制好的绿茶上浇上水，再经过发酵制成的。普洱茶具有降脂、减肥和降血压的功效，在东南亚和日本很普及。不过真要说减肥，效果最显著的还是乌龙茶。

黑茶----原料粗老，加工时堆积发酵时间较长，使叶色呈暗褐色。是藏、蒙、维吾尔等兄弟民族不可缺少的日常必需品。有“湖南黑茶”、“湖北老青茶”、“广西六堡茶”、四川的“西路边茶”“南路边茶”、云南的“紧茶”、“扁茶”、“方茶”和“圆茶”等品种。

4.乌龙茶 ：乌龙茶也就是青茶，是一类介于红绿茶之间的半发酵茶。乌龙茶在六大类茶中工艺最复杂费时，泡法也最讲究，所以喝乌龙茶也被人称为喝工夫茶。

名贵品种有：武夷岩茶、铁观音、凤凰单丛、台湾乌龙茶。

青茶（乌龙茶）----属半发酵茶，即制作时适当发酵，使叶片稍有红变，是介于绿茶与红茶之间的一种茶类。它既有绿茶的鲜浓，又有红茶的甜醇。因其叶片中间为绿色，叶缘呈红色，故有“绿叶红镶边”之称。

5.黄茶 ：著名的君山银针茶就属于黄茶，黄茶的制法有点像绿茶，不过中间需要闷黄三天；

黄茶----在制茶过程中，经过闷堆渥黄，因而形成黄叶、黄汤。分“黄芽茶”（包括湖南洞庭湖君山银芽、四川雅安、名山县的蒙顶黄芽、安徽霍山的霍内芽）、“黄小茶”（包括湖南岳阳的北港在、湖南宁乡的沩山毛尖、浙江平阳的平阳黄汤、湖北远安的鹿苑）、“黄大茶”（包括的大叶青、安徽的霍山黄大茶）三类。

6.白茶：白茶则基本上就是靠日晒制成的。白茶和黄茶的外形、香气和滋味都是非常好的。

名贵品种有：白豪银针茶、白牡丹茶。

白茶----是我国的特产。它加工时不炒不揉，只将细嫩、叶背满茸毛的茶叶晒干或用文火烘干，而使白色茸毛完整地保留下来。白茶主要产于福建的福鼎、政和、松溪和建阳等县，有“银针”、“白牡丹”、“贡眉”、“寿眉”几种。

知识产权

知识产权，也称其为“知识所属权”，指“权利人对其所创作的智力劳动成果所享有的财产权利”，一般只在有限时间期内有效。各种智力创造比如发明、文学和艺术作品，以及在商业中使用的标志、名称、图像以及外观设计，都可被认为是某一个人或组织所拥有的知识产权。据斯坦福大学法学院的Mark Lemley教授，广泛使用该术语“知识产权”是一个在1967年世界知识产权组织成立后出现的。（最近一段时间部分互联网公司如：腾讯、阿里等，也将其简称为IP）

知识产权是关于人类在社会实践中创造的智力劳动成果的专有权利。随着科技的发展，为了更好保护产权人的利益，知识产权制度应运而生并不断完善。如今侵犯专利权、著作权、商标权等侵犯知识产权的行为越来越多。17世纪上半叶产生了近代专利制度；一百年后产生了“专利说明书”制度；又过了一百多年后，从法院在处理侵权纠纷时的需要开始，才产生了“权利要求书”制度。在二十一世纪，知识产权与人类的生活息息相关，到处充满了知识产权，在商业竞争上我们可以看出他的重要作用。

发明专利、商标以及工业品外观设计等方面组成工业产权。工业产权包括专利、商标、服务标志、厂商名称、原产地名称、制止不正当竞争，以及植物新品种权和集成电路布图设计专有权等。

《中华人民共和国专利法》、《商标法》、《著作权法》、《发明奖励条例》等单行法和行政法规也都对相关的知识产权作了规定。

中国七大传统节春节（正月初一）、元宵（正月十五）、清明（4月5日前后）、端午（五月初五）、七夕（七月初七）、中秋（八月十五）、重阳（九月初九）

等 探月历程

（六年级第一册p43页）

第五篇：vb学习综合资料

VB教程：序言-不再游戏

我们需要什么

我们需要什么？当我们在一个精彩的游戏世界中游历了一番之后，或是惊叹于某一工具软件的小巧精致之余，多少总会产生些许编程的冲动。编程吗，在以前如果你对电脑还是一个门外汉，那实在是一件可望而不可及的事情。如果运用基于DOS下的编程语言，譬如C、Qbasic、Pascal等等，真不知何年何月才能有所成就。

编程是需要天赋的，你必须在大脑中对整个程序有一个清晰的轮廓，一个高效的流程，这并不是每个人都能做到的，你必须思之慎之，这也使编程变成一件最枯燥无味的事情。但在第四代计算机语言（可视化编程）出现后，可以确切的说它开发了人们的更多天赋，并不局限于那些头脑异常清晰的人，每一个人都可以发现自己也可以编出一些从前不敢问津的程序，想象力的充分发挥才是第四代语言的精粹。

Visual Basic（以下简称VB）可以说是可视化语言的先驱了，而且它也是可视化程度最高的一个，从几年前VB诞生之日起到现在，它已经经历了五个版本，而且现在微软正在紧张的进行着VB6.0的研制、测试，这么高的更新率，不外乎说明两个问题：用户对VB的热衷，微软对VB的重视。不可否认微软对市场的预测能力是极为高明的，而它强大的技术、财力支持也使它在许多以前未进入的领域，在不长的时间内有成为最有力的竞争对手，如IE之于浏览器领域，《帝国时代》之于游戏都是最好的例证。对于VB现在也有一个很强的竞争对手――Delphi，有人把它称作VB杀手，这显然有偏激之处，VB的确有它的不足之处，但Delphi又何尝不是呢，而且以微软对VB的倾心，VB的功能必然会越来越强大。

VB的诞生

VB的出现可以说是Microsoft Windows的日渐成熟的必然产物。Microsoft Windows为程序员和最终用户提供了一个共同的人机界面。对用户，Windows提供了一个图形鼠标的操作环境，该环境对所有的应用程序都一样；对于程序员，Windows提供了一组预定义工具----称之为Microsoft Windows 的软件开发工具箱（SDK），该工具能使程序员建立一个与Windows界面相同的应用程序，而且，程序员不必关心最终用户的硬件配置情况。在这一开发环境中，程序员唯一困难的是Microsoft SDK提供了六百多个函数和与其一致的事件驱动（event-driven）编程技术。两种新方法的交叉使众多的程序员重新陷入困境，程序员不仅要掌握程序驱动编程技术和六百多个函数的功能，而且还得用C语言描述这些问题。因此一般情况下，程序员首先要掌握C程序设计技术，而后再开始学习SDK。这样的条件下就要求在Microsoft多任务环境下出现一种操作方便，使用简单的新工具－－－－Visual Basic由此诞生。

何为可视

英文Visual的意思是“视觉的”，“可视的Baisc”这个名字可能抽象了点，但实际上它却是最直观的编程方法，之所以叫做“可视”，你只要看到VB的界面就会明白，实际上你无需编程，就可以完成许多步骤。在VB中引入了控件的概念，在Windows中控件的身影无处不在，各种各样的按钮、文本框、无线钮，都是控件的种类，VB把这些控件模式化，并且每个控件都有若干属性用来控制控件的外观，工作方法。这样你就可以象在画板上一样，随意点几下鼠标，一个按钮就完成了，这些在以前的编程语言下是要经过相当复杂的工作的。

我的希望：

我在学习VB的过程中也曾遇到了许多困难，而且用的参考书大都来自译文，毕竟美国人和中国人的表达方式有所不同。这也造成了理解上的困难，所以我想为什么我不能写一个给中国人看到VB教程呢，于是我这么做了。也曾经在杂志上发表过几篇用VB制作小程序的文章，但受杂志的限制（篇幅、内容等等）（我得听小编的），总没有一个机会系统的介绍一下VB，造成了小小的遗憾。不过，我自己的主页建好后，终于这个愿望可以实现了，利用HTML可以方便的把文字与图片结合起来，不失为一个教学良所，也希望能够得到大家的支持。希望“VB教程”能给你我一个互相学习的机会，如果你能从中获益那将是我最大的快乐，那时你一定会发现编程比游戏有趣得多。:)

VB教程：第一章-Hello World!

没学过编程的人常常会问，编程难不难，这个问题很难回答。难，的确很难，要编一个好的程序尤其是这样，并且有些程序还要用到一些其他专业的知识，比如说一个图形处理程序，就要对图像的格式有所了解，甚至一些美术知识；但编程也很容易，就拿VB来说，编一个自娱自乐的小工具还是一件相当惬意的事情呢，当然它没法完全代替人工，譬如说完成你的家庭作业、向学校发射导弹„„

作为第四代计算机语言，VB的特点是显而易见的。因为是“可视的”所以我们不妨先看看VB的界面（图1_1）（我用的是VB4.0 32位版），很容易可以看到，屏幕上有五个窗口，（1）是菜单栏；（2）是工具箱（Tools Box），里面是VB所需的控件；（3）是VB程序要设计的窗体（Form）；（4）控件及窗体的属性（Properties），在VB中每一个控件都有其自己的属性，比如文本框有Text属性，而任何一个控件都有一个自己唯一的名字，这使得我们无需编程就可以完成部分编程的工作；（5）是VB的文件控制窗口，VB的每一个程序称为一个项目（Project），一个项目文件里往往包括以下两种文件，窗体（Form）文件和模块（Bas）文件，当然还有Class文件，这些文件组成一个完整的程序，而项目文件（Vbp）则用来描述程序所包含的内容。

实际上，我一直认为学习的最好方法就是实际操作一下，好，下面我们就来看一个最简单的程序，和所有的编程教科书一样，我们把第一个程序称为“Hello，world！”。

首先，我们先来熟悉一下窗体。如果你用过Win95附件所带的画图板的话，那么你一定会很快熟悉VB的窗体设计方法，用鼠标单击一下工具箱中的任何一个控件，然后在窗体上任意拖动鼠标，你就会得到一个所需的控件；当然还有其他的方法得到控件，你可以在工具箱上双击得到一个控件；或是按住Ctrl键，再单击所需控件，重复第一次的步骤，你会发现，不用再回去点击工具箱了，点右键可以恢复鼠标指针，这样对于重复画同一个控件尤其有用。

对于我们的第一个小程序，知道这些就已经足够了。现在你可以在我们的窗体上画如下控件一个图片框（Picture Box），用来显示图画，每一个控件建立的时候，系统都会给它设一个默认的名字(Name)，这个PictureBox的名字就叫做Picture1，为了方便起见，我们以后的控件都使用缺省的名称。选定Picture1，在左边的属性窗口中找到Picture属性，单击会出现，点击为Picture1选一个图像文件，VB支持的图像文件有BitMap、WMF、ICO三种，微软为用户提供了一套图标文件，存放在VB目录的Icons目录下，选择Iconsmiscface01.ico文件，这样图标就被装入了Picture1。再选择Pictrue1的Autosize属性，设为1-True，则会发现Picture1以变成和图像一样大了；把BorderStyle定为0-None，去掉图片边框。用同样的方法再添加两个图片框：Picture2（Picture：face02.ico），Picture3（Picture：face03.ico）。

图片框完成了，第二步，建立三个无线钮（Option Button），由于它象收音机的无线电按钮而得名），把它们的标签名属性（Caption）分别定为“悲哀”，“高兴”，“没治了”，放置成图1_2的样子。

最后我们还需要三个文本框（Text Box），分别把它们的Text属性设为””（空字符串），程序的最后界面如图1_3，这样按下菜单窗口的运行按钮，运行一下程序，还可以吧，不过现在程序还无法工作，就算是VB也不能免俗，还必须输入代码才能使程序运作。

VB是一门典型的面向对象编程的语言，它的整个程序都是由事件驱动的。那么，什么是事件呢？其实，我们的生活中充满了各式各样的事件，比如说“闯红灯”这个事件的发生会导致被警察追杀、走路撞到电线杆时会痛。上面的例子虽然有些滑稽，但它可以清楚的解释事件的含义，就象你马上就能体会到的在什么地方单击鼠标时会发生什么，按下键盘时会发生什么，这就是事件，而事件就是这么容易。

要进入VB的代码设计区，只需在需要的控件或窗体上双击鼠标即可得到这样的窗口。如图1_4，每一个VB程序都由若干小程序组成，这使得用VB编程更加容易，这些小程序，分为“过程”（Procedure）和“函数”（Function），二者都可以传递参数，所不同的是函数有一个返回值，而过程没有，仅此而已。

双击窗体的任何一个部分，将出现一个空的过程：“Form_Load()”，这是一个非常重要的过程，它所驱动的事件就是该窗体被加载的事件，打个比方，就象计算机启动时的批处理程序（Autoexec.bat）。这个程序里我们要对控件进行一些设置。我们刚才也曾对控件进行设置，但那是在程序设置中进行的，有时我们也需要在程序中改变某些控件的属性，通过程序代码。VB中规定，一个控件属性的访问方法：名称.属性，于是我们对本程序的控件进行如下设置：

Private Sub Form_Load()

Picture1.Visible = False Picture2.Visible = False Picture3.Visible = False Text1.Visible = False Text2.Visible = False Text3.Visible = False

End Sub

Private表示此过程是局部的，Sub表示子过程的开始，与之相对的是End Sub表示过程的结束，Visible属性表示控件的可见性，这个属性的值有两个True和False。

注意：

VB里对大小写是不加区分的，而且，已定义的名称，以后再用到时，系统会自动把它变成相应的大写或小写。

小知识：

1.VB里的对变量及常量的规矩。

变量一般为Abc的格式，常量为ABC，另外这些变量和常量名不得同VB内的关键字相同，也不可以使用一些特殊符号，这些我们将在以后介绍，注意在学习中养成好习惯，使程序便于自己和别人的浏览。

2.程序书写的窍门：

不要真的一句一句把程序打完，利用快捷键：拷贝Ctrl+C，剪切Ctrl+T，粘贴Ctrl+P。

按下F5，运行一下程序，现在发现只剩下无线钮了。如图1_5。

Private Sub Form_Load()

Picture1.Visible = False Picture2.Visible = False Picture3.Visible = False Text1.Visible = False Text2.Visible = False Text3.Visible = False Option4.Left =-2000 Option4.Value = True

End Sub

Left属性表示控件离窗体左边框的距离，设置为－2000，则在窗体内不会看到这个控件，并使之Value=True。再运行程序，一切如愿，如图1_6.注意：为什么不用Option4.Visible=False？

因为，一旦设置无线钮为不可见，那么再使它的Value为真是没有意义的，不信自己试试。

下面我们可以继续进行了。在刚才的代码窗口里，将Object选择为Option1，Proc选择为Click，即得到一个Option1_Click的过程。代码如下：

Private Sub Option1_Click()

Picture1.Visible = True Picture2.Visible = False Picture3.Visible = False Text1.Visible = True Text2.Visible = False Text3.Visible = False Text1.Text = “再见，残酷的世界。”

End Sub

相同的建立Option2_Click和Option2_Click：

Private Sub Option2_Click()

Picture2.Visible = True Picture1.Visible = False Picture3.Visible = False Text2.Visible = True Text1.Visible = False Text3.Visible = False Text2.Text = “今天心情不错。”

End Sub

Private Sub Option3_Click()

Picture3.Visible = True Picture2.Visible = False Picture1.Visible = False Text3.Visible = True Text2.Visible = False Text1.Visible = False Text3.Text = “Hello,World。”

End Sub

好，我们的开山之作完成了！按下F5，玩一下吧。这个程序虽然简单，但也用到了许多基本知识，你开始感兴趣了吗？^_^

VB教程：第二章-事件、属性及数据类型

以后两章可能会比较枯燥，但不可否认也很重要，所以为了学好VB，我们一定要打好基础才行。

一、事件

通过上一章的例子，你可能对“面向对象的编程”已经有了一定了解，它是由事件驱动的，对于不同的对象，所能感应到的事件也会不同，譬如说当你把鼠标移进某一区域时就会触发MouseMove事件，这很直观，也容易理解，但也有些事件比较抽象，下面我来对一般的事件进行一下解释。

窗体和图象框类事件

Paint事件：当某一对象在屏幕中被移动，改变尺寸或清除后，程序会自动调用Paint事件。注意：当对象的AutoDraw属性为True（－1）时，程序不会调用Paint事件。

Resize事件：当对象的大小改变时触发Resize事件。

Load事件：仅适用于窗体对象，当窗体被装载时运行。

Unload事件：仅适用于窗体对象，当窗体被卸载时运行。

2.当前光标（Focus）事件

GotFocus事件：当光标聚焦于该对象时发生事件。

LostFocus事件：当光标离开该对象时发生事件。

注意：Focus英文为“焦点”、“聚焦”之意，最直观的例子是，比如有两个窗体，互相有一部分遮盖，当你点下面的窗体时，它就会全部显示出来，这时它处在被激活的状态，并且标题条变成蓝色，这就是GotFocus事件，而相反，另外一个窗体被遮盖，并且标题条变灰，称为LostFocus事件。上面所说的“光标”并非指鼠标指针。

3.鼠标操作事件

Click事件：鼠标单击对象。

DbClick事件：鼠标双击事件。

MouseDown、MouseUp属性：按下/放开鼠标键事件。

MouseMove事件：鼠标移动事件。

DragDrop事件：拖放事件，相当于MouseDown、MouseMove和MouseUp的组合。

DragOver事件：鼠标在拖放过程中就会产生DragOver事件。

4.键盘操作属性

KeyDown、KeyUp事件：按键的按下/放开事件。

KeyPress事件：按键事件。

5.改变控制项事件

Change事件：当对象的内容发生改变时，触发Change事件。最典型的例子是文本框（TextBox）。

DropDown事件：下弹事件，仅用于组合框（ComboBox）对象。

PathChange事件：路径改变事件，仅用于文件列表框（FileBox）对象。

6.其他事件

Timer事件：仅用于计时器，每隔一段时间被触发一次。

二、属性

每个对象都有它的属性，并且“Name”属性是共有的，有了“Name”属性才可以在程序中进行调用。对于属性，可以在窗体的布局操作中完成，也可以在程序运行中改变，这取决你的需要，但有些属性是只读的，它只能在控件布局时改变。我将在以后的实例中具体介绍各个属性的作用。

三、数据类型

学过编程的人都知道大多数的计算机语言都规定了各自的数据类型，VB也不例外。其实，在一个最简单的程序中数据类型是可以不作规定的，也就是说，变量可以使用各种类型，但是在一个复杂的程序里，这样做就很危险，因为很可能给同一个变量赋予了不同的类型，而导致程序出错。所以，为了程序的严谨和便于查看，正确的定义数据类型是必要的。定义数据的另一个原因是，不同的数据占用不同的内存数量，譬如整型（Interger）数据占2字节，而长整型数据占4个字节，定义合适的数据类型，不管你相信不相信，它可以节省内存！

VB常用的数据类型有：整型（Integer，表示-32768至32767之间的整数）、长整型（Long，表示-2,147,483,648至2,147,483,647之间的整数）、实型（Single，表示-3.37E+38至3.37E+38之间的实数）、双精度实型（Double，表示-1.67E+308至1.67E+308之间的实数），字符（String，每个字符占一字节，可以储存0～65,535个字符），布尔（Boolean，只有两个值True/-1，或False/0）。

数据类型的定义方法：

定义变量最简单的方法是用“Dim”关键字，它的语法：

Dim 【变量名】As 【数据类型】

如：Dim Index As Integer

也可以在一行中定义多个变量，如：

Dim Index As Integer , Dim Number As Long

把多个变量定义成同一类型可以写成：

Dim Index , Number As Integer

有时为了简便，也以符号进行简单的定义，作用是和上面一样的。整型可以用“%”代替，长整型可以用“&”代替，实型可以用“!”，双精度实型可以用“#”定义，如刚才的第一个例子可以写成：

Dim Index% 等价于 Dim Index As Integer

对于常量的定义用Const定义，如：Const COLOR=255。

为了在程序中便于查阅，我们对变量和常量的写法进行规定，变量一般用小写方式，常量则全部大写。

注意：使用常量的好处，对于程序中经常出现的数值，应设常量等于它，这样一是书写方便，其二，如果要改变该数值，只需改变定义常量的语句值，而不需改变每个语句，提高了效率。

数组的定义类似于变量定义，所不同的是数组需要指定数组中的元素个数，例如：

Dim IntegerArray(99)As Integer

这个数组中包含100个元素，脚标从0到99。

也可以指定脚标的起始值，例如：

Dim IntegerArray(2 to 10)As Integer

这个数组含有九个元素，脚标从2到10。

还可以定义多维数组：

Dim ThreeD(4,2 to 5,3 to 6)As Integer

上例定义了一个三维数组(4×4×4)。

记录的定义

记录定义是把控制权交给用户的方法，它让用户可以定义自己的数据类型，它使用关键字“Type”，方法是：

Type 【数据类型标识符】

<域名> As <数据类型> <域名> As <数据类型> <域名> As <数据类型> „„„„„„„„„„

End Type

例如，定义一个地址数据：

Type Address

Street As String ZipCode As String Phone As String

End Type

这个地址数据里包括三个属性，街区、邮政编码和电话，可以把某数据定义成此类型：

Dim MyHome As Address

要调用或改变“MyHome”的值时，类似于对对象的属性的操作：

变量名.域名＝“„„”

为了简化书写重复的部分,可以用关键字“With”：

With MyHome

.Street=”阜成路”.ZipCode=”100037”.Phone=”12345678”

End With

VB教程：第三章-VB语言

一、VB与Basic

VB之所以叫做“Visual Basic”就是因为它使用了Basic语言作为代码，所以它们之间有着千丝万缕的关系，如果学过Basic的话，看到VB的程序结构会感到很亲切。但VB作为新生物，也超越了Basic的限制，有了许多自己的特点：

VB建立了一种新的变量类型――货币型变量，通过使用仅带有二位小数的货币变量，就能避免因使用实型变量而带来的数值积累误差问题。

VB在调用函数（Function）时，必须在函数名后跟一对括号。

VB对白兰地使用范围重新做了规范，在Basic里把隐含变量都当作全局变量，而在VB里对隐含变量都当作局部变量。

VB里的说明语句（Declare），仅支持动态链结库（DLL）的子程序和无变量函数。

使用数组，必须事先用Dim或Redim进行定义。

二、注释语句

在使用注释语句之前必须先了解注释的作用，注释不仅仅是对程序的解释，有时它对于程序的调试也非常有用，譬如说可以利用注释屏蔽一条语句以观察变化，发现问题和错误。以后注释语句将是我们在编程里最经常用到的语句之一。

在VB里，注释语句有两种，一种是用“Rem”关键字，这跟DOS里的批处理文件的用法一样，还有一种是利用单引号“’”，例如：

‘Dim a As String 与

Rem Dim a As String 的作用是一致的。

三、长语句的分行

在比较早的版本中，因为没有象C等语言用“；”隔开语句与语句，VB的语句是必须写在一行里的，不过后来版本的VB里如许用分行符“_”把一个长语句分成若干行来存放。

四、条件语句

如果你学过任何一种编程的话，都会知道在程序里控制其流程的有两种语句，条件与循环，VB自然也不例外，其实不管哪种语言，条件和循环的样子都差不多，只不过各有各的规矩罢了。

在条件语句里，我们先来学习“If„„Then„„”语句。

它的一般语法是：

If <条件> Then

<语句> <语句> „„„

End If

与C 语言不同，VB的条件语句更符合英语的语法，如果Then后面所跟的语句只有一条，可以写成： If <条件> Then <语句>

而不用End If。

有时我们还会用到

If <条件> Then

<语句> Else

<语句>

End If

更可以在Else里在嵌套If语句，如：

If <条件> Then

<语句> Else If

<语句> Else

<语句>

End If

所有这些可以用一个表格表示：

条件1

True False

语

句 条件2

True False

语 句 条件3

True False

„

„

„

………………………

条件N

True False

语句N 语句N＋1

用了过多的Else后你会感到很不方便，而且程序结构也不清晰，所以大多数的语言还有Select语句帮助解决这个问题。

VB里的Select语句的格式是这样的：

Select Case <变量名>

Case <情况1>

……

Case <情况2>

……

Case <情况3>

……

……

…… Case Else

……

End Select

例如：

Select Case a%

Case 1

Print “a=1” Case 2

Print “a=2” Case Else

Print “a does not equal to 1 or 2.”

End Select

五、循环语句

循环结构是计算机语言里一种重要的结构，它的应用广泛，最简单的例子是累加器的作用，还可以用于穷举法，更直观的例子是把某件事重复指定的次数，这样就不用把要重复的语句输入多次，而通过循环结构完成，非常方便。

C语言里有一个“for”循环语句，VB里也有“For”关键字，作用也差不多，只是VB的“For”语句更容易理解。它的格式是：

For <循环变量>=<初赋值> To <终值> [Step <步长>] „„ „„

Next <循环变量>

在默认情况下，Step被设为“1”，可以省略，Step也可以设为负值，例如：

Dim a=0

For I=1 To 10

a=a+I

Next I

这是一个最简单的累加器的例子，把1到10累加在一起，然后赋值给“a”这样的效果和上面是一样的，只不过是倒着加罢了，请看：

Dim a=0

For I=10 To 1 Step –1

a=a+I

Next I

While语句也是一个很常用的循环语句，它的形式很多。

Do While „„ Loop语句

While „„ Wend 语句

Do …… Loop While

While后面都跟逻辑条件判断，“Do While „„ Loop语句”和“While „„ Wend 语句”作用相似，都是先判断While后面的条件是否为“真”，如果为“真”则执行里面的语句，如果为“假”，则退出循环，循环直至条件为“假”终止。“Do „„ Loop While ”与前两者的区别在于，它不管条件的真假，都会先执行“Do”后面的语句，也就是说，它至少执行语句一次。

与While用法相似的还有Until语句，它是直至条件为真则终止循环，句式把While上述三个语句的While换成Until即可，但是因为容易记混，所以我建议只用While即可。Until <条件>可以相当于While Not <条件>。

For循环和Whlie循环应当根据适当的环境使用，它们有时也可替换。

六、运算操作

数学运算

＋：加法运算，也适合于字符串的之间的合并运算。

－：加法运算。

*：乘法运算。

/：除法运算。

：整除运算。

Mod：求余运算。例如：a Mod b表示a被b整除以后的余数。

^：幂运算。A^B表示以A为底的B次方。

关系运算

关系运算也称比较运算，它表示不等式的真或假，VB共提供六种运算符，分别是=（等于），>（大于），<（小于），>=（大于等于），<=（小于等于）和<>（不等于）。

逻辑运算

逻辑运算是对真或假的运算，我将列表说明：

A B Not A 非

And 与 Or 或 Xor 异或

Eqv 相等

Imp 蕴含

T T F T T F T T

T F F F T T F F

F T T F T T F T

F F T F F F T T

T――True F――False

七、数据与定义

本标题的内容已经在上一章向大家详述过，在这里就不再重复。

八、函数与过程

函数与过程有许多相似的地方，它们之间最大也是最本质的区别就在于，函数有一个返回值，而过程只是执行一系列动作，所以可以简单的把函数理解成为一个变量，而VB中的每个事件都是一个过程，比如Command1_Click()就是一个过程。

因为在程序设计中经常会有重复的地方，所以把它做成一个函数或一个过程，在使用时进行调用，可以节省大量的输入代码的时间，而且使用函数和过程也便于程序的结构化和修改查看。函数和过程都可以有参数，也可以没有参数。

关于函数和过程我将在以后的章中配合实例讲解，请您继续留意VB教程。

VB教程：第四章-按钮

从本章开始我们将正式进入VB的编程世界，但这还仅仅是个开端，要编出功能强大的软件，还要学很多东西，那就要看以后的VB高级教程了，我也得努力学啊！

按钮是我们在Windows操作见到最多的控件，它们有着各种各样的功能：“确认”、“取消”、“下一步”等等，这些都是按钮的表现，另外还有很多图形话的按钮，其实它们并没什么不同，所有的按钮都是通过单击（click）事件实现的，只不过是在外表不同罢了。下面就让我们建立一个最简单的按钮，双击工具箱的CommandButton，将在窗体上建立一个形如图4－1的按钮，它的缺省名（Name属性）为Command1，我们可以把它改名为cmdExit，把Caption属性设为“退出”，然后双击，按钮填写代码：

Private Sub cmdExit_Click()

Unload Me

End Sub

按下F5或者工具条上的播放按钮，运行程序。图4－2当你按下退出按钮的时候，就会自动退出程序，原因是当你单击按钮时激活了它的Click事件，执行“Unload Me”语句，使得窗体被卸载。

上面举了一个比较简单的例子，下面的例子稍微复杂些：

新建窗体，控件布局如图4－3所示，包括一个List控件，一个Text控件和两个按钮（Command1和Command2），（比较简单的程序我们都采用缺省名），对它们属性做如下修改：

List1 Caption＝“请输入你的名字”

Text1 Text＝“”（空字符串)Button1 Caption＝“复原”

Enabled＝False

Button2 Caption=“清除”

把使用Button1的Enabled属性设为False（假），是使程序在初始时，无法单击Command1。按F5，运行程序，图4－4，复原按钮成为灰色，不可选。

当然现在程序还什么也不能做，下面我们在程序中添加代码：

首先在General里声明全局变量：

Dim StoreString As String '用来储存字符串

※注意：为什么用全局变量？

VB里每一个小过程都相当于一个程序，程序里的变量称为局部变量，是只能在程序内部使用的，而当程序调用结束后，由于从内存中被清除，所以变量储存的值也就消失了，这里的全局变量是用来在过程中传递字符串。

接着填写以下代码： Private Sub Command1_Click()

Text1.Text = StoreString Command1.Enabled = False

End Sub

Private Sub Command2_Click()

StoreString = Text1.Text Text1.Text = “" '清除

Command1.Enabled = True

End Sub

运行程序，如图4－5。按下“清除”，文本框被清除，按下“复原”，文本有被恢复，许多程序中的Undo/Redo就是利用这个原理实现的，现在知道为什么内存越多越好了吧。

我们在把程序修改一下，把Button2删除，Button1的Enabled属性改为True，Caption改为“清除”，填写代码：

Private Sub Command1_Click()

If Command1.Caption = ”清除“ Then

StoreString = Text1.Text Text1.Text = ”“ '清除

Command1.Caption = ”复原“ Else

Text1.Text = StoreString Command1.Caption = ”清除“

End If

End Sub

同样可以上面的功能，但是却少用了一个控件，控件使用少的程序启动会快些。

下面的例子要更加复杂些，大家一定都用过Windows附件中的计算器，它是一个标准的科学计算器，利用VB我们也可以做到，只是没有那么复杂，四则运算而已。

先建立一个新的项目文件，里面包含一个Form1的窗体。然后，添加控件，包括一个Text框（Text1），和17个按钮，这17个按钮使用的名称都是Command1，只是Index属性不同，就好象一个数组，创立一组按钮的方法是，先在窗体上建立一个按钮（Command1），然后在Command1上击鼠标右键，选择复制（Copy），然后在窗体上任意部位击右键，选择粘贴（Paste），系统会提示是否创建控件组，选择“是”，重复上面步骤，直至创立17个按钮为止。各控件属性如下表：

Text1 BackColor＝&H00C0FFFF& Text＝“0.”

Command1 Index 0――16

Index 0――9 Caption=“0”－“9” Index 10 Caption=“.”

Index 11 Caption=“=”

Index 12 Caption=“+”

Index 13 Caption=“-”

Index 14 Caption=“×”

Index 15 Caption=“÷”

Index 16 Caption=“清除”

如果想改变一些其他的属性，比如字体，可以自己定义一下Font属性，如果相对多个控件的共同属性进行改变，可以在窗体上按下鼠标，拖动，把多个控件一起选定，然后对它们的共同属性进行修改。

别看这个东西小，还费了近我两个小时呢，不觉大叹手生，里面也有些地方很绕弯子，我尽量解释清楚。

在编写程序之前，我们先来回顾一下计算器的使用。

按下数字键在液晶屏上会出现数字，这是最基本的功能。

第一次按下运算键，再按下数字键，将重新输入第二个数字，再次按下运算键，将算出前两个数的结果，然后按下数字键，将又重新输入新的数字。

输入数字后，按下“等于键”将仍输出原来的数字，输入运算符和第二个数字后在按下“等于”，将得到二者的结果。然后又重复第二、三步。

按下“清除”，数据被全部清除。

了解了这些，我们一步一步实现。先实现数据的输入，请看代码。与未创立组的控件相比，它的事件里多了Index参数，组里所有的对象都使用同一个事件。先在General里声明窗体级全局变量： Dim Num1, Num2 As Single Dim StrNum1, StrNum2 As String Dim FirstNum As Boolean '判断是否是数字开头

因为Text1里是存放字符串的，所以要把输入的数据进行运算，必须把字符型变量转变为实型变量，分别用Num1、Num2和StrNum1、StrNum2进行存放。在Form_Load事件里给变量初赋值：

Num1 = 0 Num2 = 0 StrNum1 = ”“ StrNum2 = ”“ FirstNum = True

因为17个按钮使用的是同一事件，所以我们用一个Select Case语句区分各个按钮，双击任意按钮输入代码：

Private Sub Command1_Click(Index As Integer)

Select Case Index

Case 0 To 9

If FirstNum Then

StrNum1 = Str(Index)’实型转字符型 FirstNum = False’初赋值为假

Else’非初赋值

StrNum1 = StrNum1 + Str(Index)

End If

Text1.Text = StrNum1’显示

<还有其他语句，等待插入>

End Select

End Sub

运行程序的话已经可以输入数据，下面我们来处理小数点。在General里声明新的变量：

Dim PointFlag As Boolean '判断是否已有小数点

我们知道小数点只能输入一次，一个数据中不能有多个小数点存在，所以需要一个布尔变量做判断。

在Form_Load里进行初赋值：

PointFlag = False

在Command的单击事件里接着上面输入新的代码：

Case 10

If Not PointFlag Then’如果没有小数点

If FirstNum Then’如果是第一个字符

StrNum1 = ”0.“ FirstNum = False Else

StrNum1 = StrNum1 + ”.“

End If

Else’已有小数点

Exit Sub’则退出单击事件

End If

PointFlag = True Text1.Text = StrNum1

下面会复杂一些，我们先跳过等号，而来处理四则运算：

先在General里声明新变量：

Dim Runsign As Integer '储存运算符号

Dim SignFlag As Boolean '判断是否已有运算符号

然后在Form_Load中进行初赋值：

Runsign = 0 SignFlag = False

在接下的Command1_Click中继续输入代码：

Case 12 To 15

FirstNum = True’使下一次可以输入新数据 PointFlag = False '还原标记值

If SignFlag Then’前面已有运算符未运算

Call Run Else

SignFlag = True StrNum2 = StrNum1’把字符串1复制给字符串2 StrNum1 = ”“’字符串1清空

End If

Runsign = IndexNum2

Case 3’乘

equal = Num1 * Num2

Case 4’除

equal = Num1 / Num2

End Select

StrNum2 = Str(equal)StrNum1 = StrNum2 Text1.Text = StrNum2

End Sub

下面是其余的代码：（在Command1_Click事件里，接着写)

Case 11

If Not SignFlag Then

Text1.Text = StrNum1 equal = Val(StrNum1)FirstNum = True PointFlag = False Else

Call Run SignFlag = False

End If

Case Else’清除按钮

Call ClearData

里面又用到了一个ClearData过程，实际上就是Form_Load里的变量初赋值，代码如下：

Sub ClearData()

Num1 = 0 Num2 = 0 StrNum1 = ”“ StrNum2 = ”“ FirstNum = True PointFlag = False Runsign = 0 SignFlag = False Text1.Text = ”0.“

End Sub

这样完整的程序就完成了，本章介绍了VB的第一个控件――按钮，并且举例，希望你继续看下一章――菜单。

下面给出完整的程序代码：

Dim Num1, Num2 As Single

Dim StrNum1, StrNum2 As String

Dim FirstNum As Boolean '判断是否是数字开头

Dim PointFlag As Boolean '判断是否已有小数点

Dim Runsign As Integer '储存运算符号

Dim SignFlag As Boolean '判断是否已有运算符号

Sub ClearData()

Num1 = 0

Num2 = 0

StrNum1 = ”“

StrNum2 = ”“

FirstNum = True

PointFlag = False

Runsign = 0 SignFlag = False

Text1.Text = ”0.“

End Sub

Sub Run()

Num1 = Val(StrNum2)

Num2 = Val(StrNum1)

Select Case Runsign

Case 1

equal = Num1 + Num2

Case 2

equal = Num1Command1.Width)/ 2

'重叠三个图片框

Picture2.Left = Picture1.Left

Picture2.Top = Picture1.Top

Picture3.Left = Picture1.Left

Picture3.Top = Picture1.Top

End Sub

下面我来讲一讲程序是怎样运行的，我们将用到Text的Change事件，每当字符串改变一次就对它进行一次检查，算出已经说的字数，当字数超过10时，下面的红绿灯会变成黄色，并且在这时随机抽取一个数，它在一个范围内出现的可能是10%，如果在这个范围内就可以免交罚金，如果不在范围则继续，当文字超过20的时候，红绿灯会变成红色，再一次抽取随机数字，步骤同上，如果30个字已满，再进行一次检查，如果你真的那么不幸就该罚款了。

程序的步骤清楚了，我们在来看看程序的要点。由于中文是双字节字符，也就是说一个汉字占两个ASC码的位置，而VB显然是为英语国家设计的用Len函数无法返回汉字字节，也就是说一个汉字和和一个ASC字符在Len函数中得到的值是一样的，这就需要特殊处理。用Asc（）函数，在括号内放入一个ASC字符或字符串，它会把第一个ASC码转化为0－255的数值，而把一个汉字放入，它的值必然不在0－255，这也就可以作为判定汉字的基础。我们可以把英文算作半个汉字。

下面我们来看看代码：

在General 里声明窗体级变量：

Dim Level As Integer

Private Sub Command1_Click()

Unload Me End Sub

Private Sub Text1_Change()

Dim StrLength As Integer’字符串长度

Dim RandomNum As Single’随机数

Dim Str1 As String

Dim a As String

Dim i, Temp

StrLength = 0’每次开始时把字符串长度还原为0

a = Text1.Text

For i = 1 To Len(a)’Len(a)代表字符串的长度

Temp = Asc(Mid$(a, i, 1))’挨个取字符

If Temp > 255 Or Temp < 0 Then’不是ASC码

StrLength = StrLength + 2 Else

StrLength = StrLength + 1

End If

Next i

StrLength = StrLength / 2

Select Case StrLength

Case 0 To 9

Picture1.Visible = True

Picture2.Visible = False Picture3.Visible = False

Label2.Caption = ”慢慢说。你还有“ & Str(30StrLength)& ”个字可以说“

End If

Case 20 To 29

If Level = 2 Then RandomNum = Rnd * 10

If RandomNum <= 10 And RandomNum > 9 Then

Text1.Enabled = False

Label2.Caption = ”很抱歉这是个误会„„“

Command1.Visible = True

Command1.Caption = ”您可以离开了“

End If

Level = 3 Else

Picture1.Visible = False

Picture2.Visible = False

Picture3.Visible = True

Str1 = ”我已经不耐烦了！“

Label2.Caption = Str1 & ”你还有“ & Str(30-StrLength)& ”个字可以说“

End If

Case Else

Text1.Enabled = False

Label2.Caption = ”你已经没有机会了！“

Command1.Visible = True

Command1.Caption = ”交钱吧，肇事犯！“

End Select

End Sub

中间有几个函数需要解释一下：

Mid可以从字符串中取出一部分，返回字符型，格式:

Mid(字符串,从第几个字符开始,取字符的长度)

Asc可以把字符转换为ASCII码，格式：

Asc(字符串)

Rnd，取得大于0但小于1 的数值，可以没有参数。

怎么样，十分简单吧，我们将在下一次继续讨论VB的输入机制，再见！

VB教程：第六章（2）-输入（2）

在继续上面的内容时，我想再回顾和强调几个在字符串操作中经常函数：

先是几个已经接触过的，Mid()，Asc()，Len()，它们的语法分别是：

Mid(字符型，起始字符，长度)

返回子字符串，如果从字符串的第一个字符取起，起始字符为1，依此类推。

Asc(字符型)

返回数值，如果参数不是一个字符，而是字符串（多个字符），将返回参数的第一个字符ASCII值。

Len(字符型)

返回字符串的长度。下面我再为你解释几个新的函数：

Left(字符串，长度)

将返回字符型，从字符串的第一个字符向左取字符串，与之相对应的是Right()，它将从字符串的最后一个字符向右取字符串。

Chr(数值型)

该数值范围从0－255，返回字符型，如Chr(65)可返回字符“A”，这样可以输入一些用键盘无法输入的字符。

Str(数值型)

该函数把数值型转换为字符型，也许你觉得数值“123”和字符串“123”没什么区别，但在内存中一个ASCII字符是占一个字节，也就是说字符串“123”占3个字节，而当数值“123”是整型时，它占两个字符，当它是长整型时，占4个字节。与之向对应的是Val(数值型)，它把数值型转换为字符型。

上面的函数都是以后要经常用到的，请将它们熟悉。

上次讲到文本框的用处，还有意思吗？你是否能把上次的程序稍稍变动一下，来计算出输入的单词数，提示一下，单词与单词之间是用空格分隔开的。

我们继续下面的内容。

上次说到，输入不仅仅是向文本框输入字符，凡是从外界向程序传递数据都可以叫做输入，我们一一说明白。

无线钮，记得我们曾在第一章中完成过我们的第一个程序――“Hello World！”它就是一种输入的方法，在设计VB程序时可以通过一组这样的无线钮，它们之间互相排斥，也就是说，只能有一个按钮被选中。它因为很象无线电收音机上的按钮因而得名无线钮。如果要在一个窗体内放置多组无线钮必须用Frame控件把它们区分开来。下面我们在来完成一个例子，顺便熟悉一下另外两个处理字符串的函数――LTrim()和Rtrim()，它们分别用来删除字符串左边的空格和右边的空格，让我们看看它们是如何工作的。

程序窗体如图6－8，由于窗体比较简单，无需修改更多的属性，一共有三个文本框（Text1到3），分别用来显示输入字符，显示把空格换成星号的字符，和经过处理的字符，还有三个无线钮（Option1到3），要修改的只有Caption属性，分别是“删除左边的空格”、“删除右边的空格”和“删除两边的空格”。因为空格在我们在文本框中无法看到空格，所以我们通过一个称作AddStar的函数把原有字符串中的空格转换为星号，使我们能够看到函数的效果。下面在程序中添加代码，首先在General中声明窗体级变量：

Dim LTrimmedword$, RTrimmedword$ '删除左边空格和右边空格后的字符串

Dim LRTrimmedword$ '删除两边空格后的字符串

然后，我们通过一个叫做addstar的函数为字符串加上星号，以前曾说过函数与过程的分别，函数会返回一个函数值，所以addstar也就相当于一个变量，其实这很好理解，就象中学代数中的函数，函数就相当于变量Y，而函数中的参数则相当于自变量X，当然可能有很多自变量X1、X2„„请原谅，我并不想在这里上数学课，因为我厌恶那玩意儿，特别是上了大学之后，好在大二以后就再也不会有数学课了，哈哈„„

Function addstar(tempword As String)As String

Dim charindex% Dim pasteword$ '加星号后的字符串 For charindex = 1 To Len(tempword)

If Mid(tempword, charindex, 1)= ” “ Then '如果字符为空格

pasteword = pasteword + ”*“

Else: pasteword = pasteword + Mid(tempword, charindex, 1)End If Next addstar = pasteword '返回函数值

End Function

下面的代码很简单，并且我为它做了注释，就不再一一解释了，我只想简要的提几句，Ltrim和Rtrim只有一个参数（字符型），另外下面用到了焦点事件，我们曾在第三章中介绍过，当Text1得到焦点（GotFocus）时，清空所有的文本框，当它失去焦点（LostFocus）时，对字符进行addstar并且在Text2中显示。

Private Sub Text1_GotFocus()'但焦点于Text1

'清除所有文本框中的字符 Text1.Text = ”“ Text2.Text = ”“ Text3.Text = ”“

End Sub

Private Sub Text1_LostFocus()

Dim Origionword As String Origionword = Text1.Text Text2.Text = addstar(Origionword)LTrimmedword = addstar(LTrim(Origionword))RTrimmedword = addstar(RTrim(Origionword))LRTrimmedword = LTrim(RTrim(Origionword))

End Sub

Private Sub Option1_Click()

Text3.Text = LTrimmedword '显示删除左空格后的字符串

End Sub

Private Sub Option2_Click()

Text3.Text = RTrimmedword '显示删除右空格后的字符串

End Sub

Private Sub Option3_Click()

Text3.Text = LRTrimmedword '显示删除两边空格后的字符串

End Sub

最后结果如图6－9。

与无线钮相对的是检查框，在同一范围内一组无线钮只能有一个被选中，而检查框则可以有多个选择，就象在添表时，性别那项只能有一个选择，而在描述你以前的职业时可以有学生、程序员、家庭教师或者什么，总之有很多选择，下面我们举一个简单的例子加以说明。

假设编写了一个共享软件，在让用户注册的时候你想知道你的用户使用的计算机情况，你就需要一个调查表，为了使这个调查表不止枯燥，可以在这个程序中加入一些图形。新建一个项目文件，窗体布局如图6－10。

程序很简单，一共有两个框架（Frame1和Frame2），它们的Caption分别为“选择你的计算机拥有的配置”和“这是你的计算机系统”，在Frame1有四个检查框（Check1到Check4），Caption分别为“网络系统”、“鼠标”、“密码保护”和“电子邮件”，另把Check4的Enabled属性改为False，使其无效；在Frame2中放置四个图片框（Picture1到Picture4）与四个检查框向对应，请把所有图片框的BorderStyle属性设为0（无边框），它们的Picture属性请根据上图，在存放图标的目录中找到相对的图标。下面是程序代码：

Private Sub Check1_Click()

If Check1.Value Then

Check4.Enabled =-1 Picture1.Visible =-1

Else: Check4.Enabled = 0 Picture1.Visible = 0 Check4.Value = 0 Picture4.Visible = 0

End If

End Sub

Private Sub Check2_Click()

If Check2.Value Then

Picture2.Visible =-1

Else: Picture2.Visible = 0

End If

End Sub

Private Sub Check3_Click()

If Check3.Value Then

Picture3.Visible =-1

Else: Picture3.Visible = 0

End If

End Sub

Private Sub Check4_Click()

If Check4.Value Then

Picture4.Visible =-1

Else: Picture4.Visible = 0

End If

End Sub

这个程序比我们见过的任何程序都简单，就不再做说明。

（第六章 未完）

VB教程：第六章（3）-输入（3）

首先，我想先对第六章的拖拖拉拉表示歉意，一是因为它实在太长了，二也是因为我自己太懒了，今天写几个字，明天添两笔，以致于写了三次才将它真正完成，还请大家原谅。

好，废话少说，让我们赶快切入正题。上次我们讨论了无线钮和检查框的使用方法，相信你已经熟悉，因为它们实在太简单了，现在让我们继续“输入”的最后几个部分。

滚动条（ScrollBar）在视窗中也是一个不可缺少的部分，由于面积所限，我们不得把屏幕上的内容滚来滚去，以显示大量的内容，这就是我们经常要用到的滚动条。但滚动条除去滚动窗口，还有一个很重要的作用――输入，想想你经常用到的一些家用电器上调节声音或别的什么东西的滑块，你把它滑向大的一方音量就会增大，而你把它滑向小的一方音量就会减小，或者一个控制左右两个音箱的均衡器，当滑块在正中央的时候，两个音箱的音量是相同的，当你把滑块偏向一方时，音箱的音量有了大小之分，在Windows操作中，我们也经常要用到类似的效果。

在VB中提供了两个常规的滚动条控件――Vscroll和Hscroll，分别代表垂直的和水平的滚动条，它们只不过是方向不同而已，而它们的属性，以及会发生的事件都是相同的。，滚动条有几个特殊的属性：

Value属性，当滑块挪动后停在某一位置时，就改变了滚动条的Value属性。

Max和Min属性，用来设置滚动条的最大值和最小值，譬如把Max设为100，把Min设为0时，滚动条的Value就在0到100之间移动，当Max和Min倒置时，滚动条的方向也会相反，也就是说，当Max

SmallChange和LargeChange属性，当鼠标在滚动条两头的箭头上单击时，就会把滚动条向相应的方向挪动一点，这时用到的就是SmallChange属性，当你把它设为1时，每点一下，滚动条的Value就改变1；当鼠标在滚动条上点击时，用到的就是LargeChange，当设为10时，每点击一下滚动条，Value就改变10。

下面我们看一个实例。

大家都知道，物体之所以会有颜色是因为物体表面的材料吸收了太阳光中的部分色光，而还有部分色光没被吸收而被反射回来，它就成了我们看到的颜色，黑色就是物体吸收了所有的太阳光的所有色光，没有反射颜色，所以在我们看来是黑的，而当物体反射了所有的色光，我们看到的就是白色。在计算机中，颜色的表示就是象我们刚才描述的样子，它把颜色分为红（R）、绿（G）和蓝（B）。众所周知，计算机的机器语言是使用二进制表示的，为了方便查阅我们看到的往往是十六进制代码，一个字节包括两位十六进制数字，从0－255（十六进制表示0－FF），而一个字节是由八位二进制数值表示（2^8，2的8次方），计算机中用分别用一个字节，也就是八位表示一种颜色，和在一起也就是三个字节（24位）表示所有的颜色，这就是我们平时常说的24位真彩，它一共可以组成256×256×256（2^24）种颜色，对于我们的肉眼，是根本分辨不出来相邻两个不同的颜色的，比如用FFFFFF表示白色，就好象我们刚才说的物体反射了所有的色光，相反的可以用000000表示黑色，它吸收了所有的色光，还可以用FF0000表示红色，在HTML语言中就是这样表示颜色的。

小知识：现在你可以根据你的显卡的显存来计算一下显卡在24位真彩下可以以多大的分辨率显示，计算是这样的，用显存的字节数÷3（24位色）＝显示器宽的象素数×显示器高的象素数，宽的象素数：高的象素数＝4：3，比如4兆显存，就应该是4×1024×1024÷3＝1365×1024。

在下面的小程序中，我们通过三个滚动条分别代表R、G、B，滚动滚动条，将在右边的图片框中显示相应的颜色，并且在下面的文本框中显示颜色的十六进制数值。

现在，新建一个项目文件，在Form1中如图6－12布局控件，各控件属性如下表：

HsrollBar Name Hscroll1

Index 0、1、2

（共同属性）

Max 255

Min 0

LargeChange 10

SmallChange 1

Label Name Label1

Index 0、1、2

Index 0 Caption “红：”

Index 1 Caption “绿：”

Index 2 Caption “蓝：”

Label Name Label2

Caption “颜色值”

TextBox Name Text1

Text “”

PictureBox Name Picuture1

为了把十进制数值换成十六进制数值，要使用一个叫做Hex（）的函数，它把十进制数值转化为十六进制的字符，但对于只有一位的十六进制字符，这个函数并不在高位补零，为了视觉上的正确，我设计了一个小函数帮助它给一位的十六进制字符补零.程序代码很简单，见下：

Dim RedStr, GreenStr, BlueStr As String’RGB的字符

Dim RedNum, GreenNum, BlueNum As Integer’RGB的数值

Function GetColorValue()As String

‘获得输入值 RedNum = HScroll1(0).Value GreenNum = HScroll1(1).Value BlueNum = HScroll1(2).Value

RedStr = Hex(RedNum)If Len(RedStr)< 2 Then RedStr = ”0“ + RedStr’补零

GreenStr = Hex(GreenNum)If Len(GreenStr)< 2 Then GreenStr = ”0“ + GreenStr

BlueStr = Hex(BlueNum)If Len(BlueStr)< 2 Then BlueStr = ”0" + BlueStr

GetColorValue = RedStr + GreenStr + BlueStr’合并

End Function

Private Sub Form_Load()

‘初始化程序

Text1.Text = GetColorValue Picture1.BackColor = RGB(RedNum, GreenNum, BlueNum)'RGB函数返回颜色值

End Sub

Private Sub HScroll1_Change(Index As Integer)

‘当滚动条被改变时

Text1.Text = GetColorValue Picture1.BackColor = RGB(RedNum, GreenNum, BlueNum)

End Sub

运行如图6－13。

列表框（ListBox）和复合列表框（ComboBox）也是我们经常见到的视窗元素，我们从它所列示的条目中选出所需的，两种列表框只是在外观上略有不同，但从本质和操作方法来说它们是很相象的，它们也有一些特殊的属性：

List属性，你可以利于该属性象列表框或复合列表框中添加条目，但也可以在程序设计中通过AddItem方法添加。