第一篇：綜合工作資料

《綜合工作資料》目錄

1、綜治工作中心建設(shè)方案

2、進(jìn)一步加強(qiáng)專職巡邏對(duì)管理辦法

3、行業(yè)調(diào)解組織涉法涉訴信訪案件化解方案

4、留守兒童婦女方案

5、集中、日常矛盾糾紛排查方案

6、矛盾糾紛調(diào)處計(jì)劃

7、矛盾糾紛排查調(diào)處領(lǐng)導(dǎo)小組

8、經(jīng)營性矛盾糾紛排查調(diào)處工作措施

9、矛盾糾紛調(diào)處中心領(lǐng)導(dǎo)小組10、2013年綜治工作計(jì)劃

11、加強(qiáng)企業(yè)安保的通知

12、流動(dòng)人口管理工作制度、計(jì)劃、領(lǐng)導(dǎo)小組

13、宣傳費(fèi)用支出

14、綜治宣傳工作領(lǐng)導(dǎo)小組

15、上半年宣傳工作總結(jié)

16、綜治干部培訓(xùn)

17、大調(diào)解工作方案

18、宣傳工作計(jì)劃

第二篇：《五彩池》綜合資料

[《五彩池》綜合資料]

一、教材說明

這是一篇精讀課文，《五彩池》綜合資料。課文講了“我”到四川松潘縣旅游時(shí)在藏龍山看到的五彩池的情景。課文生動(dòng)、形象地描寫了五彩池美麗的景色，贊美了大自然的神奇，表達(dá)了“我”熱愛祖國河山的思想感情。

課文以“聽說、向往——親身前往、目睹奇景——簡介成因——贊嘆人間瑤池”為思路，重點(diǎn)講述了五彩池的數(shù)量、顏色、大小、深淺和形狀，以及池水顯出不同顏色的原因：一是池底長著許多姿態(tài)各異、高低不同的石筍；二是陽光折射的作用；三是池邊茂盛的樹木花草在池水中的倒影，使池水瑰麗多彩。

課文開頭講五彩的瑤池在天上，而結(jié)尾講五彩池就在人間，首尾呼應(yīng)，意味深長。課文運(yùn)用大量生動(dòng)形象的語言及打比方的句子，把感情的表達(dá)和景色描寫交融起來，這些都是本文在表達(dá)上的特點(diǎn)。

選編這篇課文的意圖，一是讓學(xué)生了解五彩池這一神奇瑰麗的自然景觀及其成因，感受大自然的神奇和美麗；二是引導(dǎo)學(xué)生感受語言美，想象這些句子所描繪的景象，培養(yǎng)形象思維的能力，同時(shí)注意學(xué)習(xí)和積累語言。

課文主要內(nèi)容不難理解，但形象思維能力的培養(yǎng)和語言的理解卻有一定難度，是學(xué)習(xí)本

課的重點(diǎn)和難點(diǎn)。同時(shí)，對(duì)五彩池成因的理解也是知識(shí)性難點(diǎn)之一。

二、學(xué)習(xí)目標(biāo)

1.認(rèn)識(shí)本課21個(gè)生字，學(xué)會(huì)其中的16個(gè)。能正確讀寫下列詞語：昆侖山、騰云駕霧、藏龍山、神奇、漫山遍野、光輝、凝成、鐮刀、普通、石筍、丘陵、險(xiǎn)峻、折射、瑰麗。

2.能有感情地朗讀課文，背誦第二、四自然段。摘錄、積累有關(guān)詞句。

3.了解五彩池的特點(diǎn)及其成因，感受大自然的美，培養(yǎng)熱愛祖國的思想感情。

4.理清課文敘述順序，理解文中打比方的句子。

三、重點(diǎn)難點(diǎn)例析

了解五彩池的特點(diǎn)以及池水顯出不同顏色的原因。例析：

課文通過對(duì)五彩池的大小、形狀、顏色及顯出不同顏色的原因的描述，抒發(fā)了作者對(duì)祖國秀麗河山的贊美之情和對(duì)大自然的喜愛之情。

課文第2-4自然段具體描繪五彩池是什么樣的以及池水為什么呈現(xiàn)各種色彩，是從三方面講的：一講五彩池的數(shù)量、顏色、大小、深淺和形狀?！扒缋省?、“燦爛的陽光下”這是池水呈現(xiàn)多種顏色的一個(gè)重要原因?！奥奖橐啊?、“大大小小”、“無數(shù)”是講水池很多，不可計(jì)數(shù)。然后運(yùn)用對(duì)比、比喻修辭方法，生動(dòng)形象地描繪了五彩池的形狀；二講五彩池池水的特點(diǎn)：“所有的池水來自同一條溪流”，說明各池中的水源相同，然而“流到各個(gè)水池里，顏色卻不同了”，甚至一池水有幾種顏色，上下左右各不相同，“可是把水舀起來看，又跟普通清水一個(gè)樣”真是神奇！三講其原因：一是“池底長著許多石筍”而且姿態(tài)不同，“表面凝結(jié)著一層細(xì)膩的透明的石粉”；二是陽光射到池底，石筍成了折光鏡，把陽光折射成不同顏色；三是池邊樹木花草茂盛，五光十色的倒影，使池中水更加瑰麗多彩。

四、教學(xué)建議

2.從整體入手，啟發(fā)學(xué)生通覽全文，交流對(duì)這篇課文的總體感受。然后引導(dǎo)學(xué)生討論課文敘述的順序。課文先講五彩池在什么地方，再講五彩池是什么樣子的，接著講五彩池池水的顏色以及池水顯出不同顏色的成因，基本上是按敘述的內(nèi)容組段成篇的。

3.本課的重點(diǎn)內(nèi)容——五彩池的特點(diǎn)以及池水顯出不同顏色的原因，可以采用合作學(xué)習(xí)的方式進(jìn)行。將全班學(xué)生分成四—六個(gè)小組，圍桌而坐，討論五彩池有哪些特點(diǎn)和五彩池顯出不同顏色的原因。然后推選代表向全班同學(xué)匯報(bào)討論結(jié)果，其他同學(xué)給予補(bǔ)充或糾正。最后教師做一些簡要的歸納。

第二自然段主要是介紹五彩池的數(shù)量、顏色、大小、深淺和形狀，應(yīng)引導(dǎo)學(xué)生重點(diǎn)抓住打比方的句子進(jìn)行學(xué)習(xí)，感受五彩池的神奇與美麗。①找出打比方的句子讀一讀。②討論這些打比方的句子把什么比作什么，以及這樣寫的好處。③發(fā)揮想象力，利用課文插圖，結(jié)合上下文，想象這些句子所描寫的如詩如畫的情景。第三自然段主要講五彩池池水的特點(diǎn)，應(yīng)引導(dǎo)學(xué)生抓住“卻”“可是”以及方位詞“上層、下層、左半邊、右半邊”來理解不同的水池顏色各異，同一池水顏色不同的神奇之處。---------------------------

了解池水呈現(xiàn)不同顏色的成因，可先引導(dǎo)學(xué)生讀第四自然段，進(jìn)行探究性討論交流。如有條件，可以用課件展示池底地質(zhì)結(jié)構(gòu)特點(diǎn)，理解在陽光照射下，表面凝結(jié)細(xì)膩透明石粉的石筍怎樣起到折光鏡的作用(也可用三菱片演示)。最后，師生共同歸納出原因：一池底有高低不平的石筍；二石筍表面有石粉；三陽光折射；四花木倒影。

課文最后一句“原來五彩的瑤池就在人間，不在天上?！笨梢龑?dǎo)學(xué)生通過如下方法來理解，一是回顧課文開頭，啟發(fā)學(xué)生理解作者引用神話故事的目的就是襯托人間的五彩池；二是聯(lián)系課文內(nèi)容，理解現(xiàn)實(shí)中的五彩池比天上的瑤池更美，從而體會(huì)作者對(duì)神奇的大自然的熱愛之情。

此外，課文開頭交待“我”是在“夏天”的一個(gè)“晴朗”日子看到五彩池，這與下文的關(guān)系很密切。夏天雨水充足，花草繁茂，是大自然呈現(xiàn)生機(jī)勃勃的季節(jié)，為下文描繪五彩池的絢麗神奇做了鋪墊；天氣晴朗，無數(shù)水池在燦爛的陽光下才會(huì)閃耀各種光輝。這些前后有聯(lián)系的內(nèi)容，學(xué)生自學(xué)時(shí)可能忽略，教師可做適當(dāng)?shù)奶崾尽?/p>

4.這篇課文景美，文也美，教學(xué)中要引導(dǎo)學(xué)生在反復(fù)朗讀中，讀出作者初見五彩池時(shí)的驚訝之情，了解池水顏色不同的原因時(shí)的喜悅之情，從而感受五彩池的美，體會(huì)作者熱愛大自然的感情。在理解內(nèi)容、了解了課文敘述順序的基礎(chǔ)上，做到熟讀成誦。

5.關(guān)于詞語的教學(xué)。本課是寫景敘事的文章，宜用直觀形象的方法來學(xué)習(xí)詞語。直觀形象的方法包括圖片、實(shí)物、調(diào)動(dòng)學(xué)生的生活積累、運(yùn)用類比的方法、啟發(fā)學(xué)生用動(dòng)作來表示等。如“騰云駕霧”一詞，可以引導(dǎo)學(xué)生回憶《西游記》中的某些鏡頭；“一丈、一畝”可以用類似長度、面積的事物來類比等等。

6.關(guān)于了解五彩池色彩斑斕的現(xiàn)象形成的原因，建議與自然

第三篇：九年級(jí)綜合學(xué)習(xí)資料

1、歲月如歌

仿佛還是昨天，我們興高采烈地路過初中大門，可一眨眼，三年的學(xué)習(xí)時(shí)光已悄然逝去，今天，朝夕相處的同學(xué)，老師，依依不舍地相聚在離別的路口，讓我們?cè)俅位仨切┮黄饸g笑，共同奮斗過的難忘歲月，重溫那份永遠(yuǎn)存于心的濃濃情誼，并暢想絢麗多彩的未來吧！

1、往日盤點(diǎn)：A.假如你在接受采訪，請(qǐng)用簡明的語言告訴記者在三年的學(xué)習(xí)中最大的收獲是什么？B.回首初中三年的生活,你肯定參加過許多有意義的活動(dòng),請(qǐng)寫出一項(xiàng)活動(dòng)的名稱及取得的效果。

答案示例：A例：回首三年的學(xué)習(xí)，我最大的收獲是掌握了自主學(xué)習(xí)的方法；閱讀能力有了很大的提高；積累了許多詩詞名句；認(rèn)識(shí)了很多朋友等等。B活動(dòng)名稱：遠(yuǎn)足活動(dòng)效果：錘煉了意志，開拓了視野，增長了才干。

2、臨別贈(zèng)言：（1）離別難免傷感，請(qǐng)你寫出兩句（上下句）適宜作為贈(zèng)言的古詩送給朋友，以激勵(lì)或勸慰他（她）。答案示例：激勵(lì)類：長風(fēng)破浪會(huì)有時(shí)，直掛云帆濟(jì)滄海（李白）男兒何不帶吳鉤，收取關(guān)山五十州（李賀）勸慰類：海內(nèi)存知已，天涯若比鄰（王勃）

（2）畢業(yè)在望，分手之際，你最想寫給老師的贈(zèng)言是：。

答案示例：①人生旅程上，您豐富我的心靈，開發(fā)我的智力，為我點(diǎn)燃了希望的光芒。謝謝您，老師?、诶蠋煟呛Ｑ?，我是貝殼，是您給了我斑斕的色彩 ?? 我當(dāng)怎樣地感謝您！③踏遍心田的每一角，踩透心靈的每一寸，滿是對(duì)您的敬意。

3、依依相聚：

（1）離別前，九（1）班同學(xué)計(jì)劃于6月10日19時(shí)到21時(shí)舉辦“共話友情，暢想未來”的師生聯(lián)歡晚會(huì)，如果大家推選你負(fù)責(zé)，請(qǐng)你設(shè)計(jì)活動(dòng)實(shí)施的步驟。第一步：；第二步：；第三步：；第四步：。

答案示例：依次：主持人宣布活動(dòng)開始；齊唱校歌；開展主題班會(huì)；老師總結(jié)。

（2）班級(jí)征集晚會(huì)主題語，要求是簡潔、形象的一句話或一個(gè)短語，你寫的是什么？ 答案示例：（1）花季情，良師恩（2）友誼地久天長（3）共話友情，暢想未來（3）晚會(huì)在熱鬧的氣氛中結(jié)束了,請(qǐng)你設(shè)計(jì)一則結(jié)束語,宣告晚會(huì)結(jié)束。

答案示例：敬愛的老師！親愛的同學(xué)！讓我們珍藏起離別的愁緒，揮一揮手，道一聲珍重。祝恩師們事業(yè)順利，桃李滿天下。祝同學(xué)們學(xué)業(yè)步步高升，生活開開心心。老師們，同學(xué)們，2009屆九（1）班畢業(yè)晚會(huì)到此結(jié)束。再見?。ň磹鄣睦蠋?，親愛的同學(xué)，當(dāng)聽到初夏第一聲蟬鳴，我們卻迎來了分手的最后一刻，三年了，一千多個(gè)日日夜夜，我們一起度過了這人生中最難忘的時(shí)光；多少次，在晨光中，我們勤思苦讀，多少次，在燈光下，我們埋頭苦做，我們風(fēng)雨同舟，我們攜手共進(jìn)，然而，天下沒有不散的宴席。今天，讓我們以青春飛揚(yáng)的心情，共度最后一個(gè)美麗夜晚吧?。?）以班委會(huì)名義給學(xué)校團(tuán)委書記黃老師寫一封邀請(qǐng)信，請(qǐng)他參加這次主題班會(huì)(限50字左右，格式符合書信要求)。

2、微笑著面對(duì)生活

九年級(jí)（1）班的同學(xué)正在舉辦“面對(duì)困難，我們?cè)撛趺崔k”的討論會(huì)。假如也邀請(qǐng)你參加。你一定能完成下面的任務(wù)！

1.請(qǐng)你為本次活動(dòng)擬一個(gè)主題語。答案示例：（1）困難中我們走向堅(jiān)強(qiáng)（2）微笑改變生活（3）微笑伴我成長。2.請(qǐng)你為活動(dòng)安排合理的步驟。

答案示例：（1）主持人宣布活動(dòng)主題及內(nèi)容。（2）請(qǐng)同學(xué)們講述名人戰(zhàn)勝困難的故事（3）學(xué)生代表談感受表決心。

3.請(qǐng)談?wù)劚敬位顒?dòng)的感受。

答案示例：通過本次活動(dòng)。我明白了困難并不可怕，關(guān)鍵的是我們應(yīng)該有戰(zhàn)勝困難的勇氣，這樣我們才能樹立信心、戰(zhàn)勝困難、迎接成功。

4.生活中我們?cè)撛鯓用鎸?duì)困難面對(duì)呢？請(qǐng)?zhí)嵋粭l建議。

答案示例：在人的一生中，遇到困難是不可避免的，關(guān)鍵的是我們要有樂觀的心志去面對(duì)困難，這樣就會(huì)把困難、失敗變成前進(jìn)路上的墊腳石。

5、請(qǐng)寫出一句與“困難·逆境”有關(guān)的名人名言作為自己的座右銘。

答案示例：（1）頑強(qiáng)的毅力可以征服時(shí)間上任何一座高峰。——狄更斯（2）逆轉(zhuǎn)不就是性格的試金石嗎？——巴爾扎克

6、如果你是這次活動(dòng)的主持人，請(qǐng)你為這次活動(dòng)設(shè)計(jì)一段開場白。

答案示例：在有的人眼里，困難好像無底的深淵，掉下去就再也沒有了希望。在有的人眼里，困難則好象萬能的磨刀石，越磨越快，越搓越勇。親愛的同學(xué)們，面對(duì)困難，我門應(yīng)該怎么辦呢？

7、面對(duì)困難，我們?cè)撛趺醋瞿?？許多仁人志士給了我們最好的答案。你能說出兩個(gè)這樣的名人故事嗎？

答案示例：（1）海倫.凱勒在逆境中站起。（2）將身體煉成鋼鐵的奧斯特洛夫斯基。（3）愛迪生笑對(duì)千次失敗，終于為人類發(fā)明經(jīng)久耐用的電燈泡。

8、面對(duì)困難，我們?cè)撛趺醋瞿?？如果班?huì)上安排你發(fā)言，那么你的主要觀點(diǎn)是什么？請(qǐng)用兩三句話表達(dá)出來。

答案示例：面對(duì)困難。我門要想辦法克服它。要善于把大困難分解成一個(gè)個(gè)小困難。然后個(gè)個(gè)擊破。

9、你的一位同學(xué)在多次考試中，雖然經(jīng)過不斷的努力，但成績還是不夠理想，他感到前途渺茫，打算放棄。通過本次活動(dòng)后，你打算該怎樣勸說他？

答案示例：別灰心，俗話說：“誰笑到最后，誰才是勝利者”，請(qǐng)相信自己，你一定會(huì)從失敗中站起來。

3、好讀書，讀好書

1、如果你是“讀書活動(dòng)”的組織者，請(qǐng)你談?wù)劵顒?dòng)的目的。不少于兩條。

答案示例：（1）通過開展讀書活動(dòng)，提升文學(xué)素養(yǎng)，陶冶情操，培養(yǎng)高尚的道德情操和健康的審美情趣，形成正確的價(jià)值觀和積極的人生態(tài)度；（2）通過開展讀書活動(dòng)，來拓寬視野，豐富知識(shí)。（3）通過開展讀書活動(dòng)，塑造我們健康、美好的心靈。（4）通過開展讀書活動(dòng)，提高對(duì)讀書的意義的認(rèn)識(shí)，讓大家喜歡讀書，養(yǎng)成勤于讀書的好習(xí)慣。

2、請(qǐng)給本次活動(dòng)確定主題。答案示例：（1）閱讀名著，陶冶情操（2）書香滿校園；（3）書海泛舟（4）我和名著有個(gè)約會(huì)（5）我讀書，我快樂（6）讓書香伴隨花香，讓名家走進(jìn)心靈（7）青春書為伴（8）“與書籍結(jié)伴而行”

3、請(qǐng)給活動(dòng)擬一條宣傳標(biāo)語答案示例：（1）讀書破萬卷，下筆如有神（2）讀萬卷書，行萬里路（3）書是為類精神食糧（4）閱讀名著，陶冶情操（5）鳥欲高飛先振翅，人求上進(jìn)多讀書（8）書籍是人類進(jìn)步的階梯

4、如果你來主持本次活動(dòng)，你會(huì)采取哪幾種活動(dòng)形式來開展？說出三種以上。

答案示例：（1）舉行一次讀書問卷調(diào)查（2）請(qǐng)新華書店到學(xué)校搞一次書展（3）請(qǐng)作家作一場“走進(jìn)名著”報(bào)告會(huì)（4）在全校（或班級(jí)）舉辦“讀書交流會(huì)”（5）在全校（或班級(jí)）舉辦“讀書演講會(huì)”（6）舉行“名著走向舞臺(tái)”話劇表演（7）舉行名著知識(shí)競賽（8）編輯“讀書名言”（9）“讀書故事”大家講；（10）出“讀書經(jīng)驗(yàn)談”專題墻報(bào)（黑板報(bào)）

5、請(qǐng)你設(shè)計(jì)出活動(dòng)開場白。答案示例：（1）同學(xué)們，閱讀文學(xué)名著，能夠培養(yǎng)高尚的道德情操和健康的審美情趣；形成正確的價(jià)值觀和積極的人生態(tài)度；“三日不讀書，面目可憎”，讓好讀書，讀好書成為我們生活的習(xí)慣，讓我們?cè)诠沤裰型獾拿Ｑ笾绣塾伟桑。?）同學(xué)們，著名作家莎士比亞曾說過：“書籍是全世界的營養(yǎng)品?！备郀柣f過：“書籍是人類進(jìn)步的階梯?！倍韲骷伊蟹?托爾斯泰說過：“理想的書籍是智慧的鑰匙?！睍谀慵拍瘯r(shí)陪伴著你；在失敗時(shí)給你鼓勵(lì)；在傷心時(shí)給予你安慰。今天就讓我們共同走進(jìn)書籍吧！

6、請(qǐng)以“舉行名著知識(shí)競賽”為例，寫出具體活動(dòng)步驟。

答案示例：步驟一：主持人講話(致開場白)；步驟二：選手分別上臺(tái)進(jìn)行名著知識(shí)演講；步驟三：評(píng)分、頒獎(jiǎng)；步驟四：老師總結(jié)。

7、活動(dòng)結(jié)束后，你認(rèn)為此次活動(dòng)還有哪些不足，請(qǐng)你寫出兩條活動(dòng)建議。

答案示例：（1）學(xué)校圖書室應(yīng)多儲(chǔ)備一些中外名著和適合學(xué)生閱讀的書籍；（2）學(xué)校圖書室應(yīng)增加對(duì)學(xué)生開放次數(shù)；（3）學(xué)校多舉辦些讀書活動(dòng)，營造更加濃厚的讀書氛圍；（4）建議學(xué)校舉辦一次關(guān)于讀書的講座。

8、請(qǐng)寫出一條你收集到的名人讀書方法。答案示例：（1）孔子的“學(xué)思結(jié)合法”：學(xué)而不思則罔，思而不學(xué)則殆“（2）冰心“創(chuàng)新法”：讀書恨與古人同。

9、在“讀書名言發(fā)布會(huì)”活動(dòng)中請(qǐng)你發(fā)布三條信息。答案示例：（1）英國著名戲劇家莎土比亞曾大聲告訴我們：“書是全世界的營養(yǎng)品。（2）我國明朝著名詩人朱熹還說過：“讀書要有三到：眼到、口到、心到。”（3）我國唐代著名詩人杜甫也說過：“讀書破萬卷，下筆如有神?！保?）前蘇聯(lián)無產(chǎn)階級(jí)文學(xué)家高爾基說：“書是知識(shí)的源泉?！保?）歌德還告訴我們：“讀一本好書，就是和一個(gè)高尚的人談話?！?/p>

10、在活動(dòng)中，同學(xué)們都認(rèn)為讀書要有好方法，運(yùn)用正確的讀書方法才能有收獲。請(qǐng)談?wù)勀銓?duì)讀書方法的認(rèn)識(shí)。答案示例：讀書要像蜂采蜜，一要多讀，讀各類書；二要努力讀懂，不能不懂裝懂；三要在讀書過程中反復(fù)思考，領(lǐng)會(huì)吸取書中的有用知識(shí)。

11、許多同學(xué)對(duì)讀書還是不屑一顧，你也希望大家多讀經(jīng)典名著，在活動(dòng)結(jié)束時(shí)，請(qǐng)你送給同學(xué)們幾句勸勉的話。

答案示例：經(jīng)典名著是人類文化的精華。閱讀名著，如同與大師們攜手共游，可以增長見識(shí)，啟迪智慧，提高語文能力和人文素養(yǎng)。

12、請(qǐng)你寫出兩句關(guān)于讀書的比喻。

答案示例：（1）書猶藥也，善讀可醫(yī)愚。——?jiǎng)⑾颍?）理想的書籍是智慧的鑰匙。——高爾基

13、中學(xué)生存在閱讀量達(dá)不到400萬字的情況，請(qǐng)分析造成這種情況的原因，并提出改進(jìn)建議。答案示例：原因：課業(yè)負(fù)擔(dān)重，學(xué)生沒時(shí)間讀書，學(xué)校缺少書籍及閱覽室。建議：學(xué)校應(yīng)開放閱覽室，多購置書籍，學(xué)校每天應(yīng)安排一節(jié)讀書課，讓學(xué)生自由閱讀，擴(kuò)大閱讀量。

14、請(qǐng)向同學(xué)推薦一部你最喜歡的名著，并說說理由。

答案示例：《名人傳》。理由：不僅是部文學(xué)名著，而且在提高人們對(duì)于歷史和偉人的認(rèn)識(shí)、樹立正確的人生觀等方面，都有重要意義。

15、對(duì)于應(yīng)該讀什么樣的書，人們歷來各有看法，下邊是最有代表性的三種觀點(diǎn)。你認(rèn)同哪種，理由是什么。

觀點(diǎn)A：讀經(jīng)典的書，就開闊了精神的視野。觀點(diǎn)B：讀流行的書，就走在了時(shí)代的前列。觀點(diǎn)C：讀實(shí)用的書，就架設(shè)了生活的橋梁。

答案示例：我認(rèn)同觀點(diǎn)(A或B)。理由：A經(jīng)典名著是人類文化的精華。閱讀名著，如同與大師們攜手共游，可以增長見識(shí)，啟迪智慧，提高語文能力和人文素養(yǎng)。B流行書用的是現(xiàn)代生活中鮮活的語言，反映的是當(dāng)代人的思想感情，讀起來輕松省力，有興趣，吸收快。

4、話說千古風(fēng)流人物

班上將開展“話說千古風(fēng)流人物”的語文活動(dòng)，請(qǐng)你完成下列任務(wù)。1．為營造氣氛，請(qǐng)你為該活動(dòng)擬一個(gè)宣傳標(biāo)語。答案示例：千古風(fēng)流人物，永恒的精神領(lǐng)袖！

2．在“講保衛(wèi)國土故事”活動(dòng)環(huán)節(jié)中，你將向同學(xué)們介紹（人名），有關(guān)這位風(fēng)流人物的主要事跡是： 答案示例：鄭成功、收復(fù)臺(tái)灣失地，趕走荷蘭入侵者，維護(hù)國土的完整，是偉大的民族英雄。

3．襄樊人杰地靈，風(fēng)流人物輩出，你最崇拜誰？寫出該風(fēng)流人物寫的詩文名句（完整的一句）。風(fēng)流人物：詩文名句答案示例：諸葛亮、受任于敗軍之際，奉命于危難之間

4．輪到“講名人故事”小組發(fā)言時(shí)，該小組還沒有準(zhǔn)備好，導(dǎo)致活動(dòng)冷場，針對(duì)此情況，你會(huì)提出怎樣的建議？答案示例：①小組長要加強(qiáng)分工協(xié)調(diào) ②活動(dòng)策劃者要在活動(dòng)前統(tǒng)籌，過問各環(huán)節(jié)負(fù)責(zé)人準(zhǔn)備情況。

5．按要求回答問題：班上將開展“話說襄樊歷史人物”綜合性學(xué)習(xí)活動(dòng)，要求你在活動(dòng)中介紹一位襄樊歷史人物。為了完成任務(wù)，你將采訪有關(guān)人士。

備選歷史人物：諸葛亮、皮日休、柳永、孟浩然、米芾、張自忠、黃火青、聶海勝

（1）你打算采訪（人名），你知道你要采訪的這位人物的主要事跡是：。人物：諸葛亮主要事跡：輔佐劉備建立蜀漢，形成三國時(shí)三足鼎立的局勢。

（2）為聯(lián)系采訪，你打電話給采訪對(duì)象：襄樊教育學(xué)院專門研究諸葛亮的教授。開頭你該怎么說？要求說明目的，語言得體。涉及學(xué)校名稱和自己姓名時(shí)，請(qǐng)用A、B、C等字母代替。

答案示例：老師，您好！我是B中學(xué)的學(xué)生C，我們班上正開展“話說襄樊歷史人物”活動(dòng)，我想了解諸葛亮的有關(guān)情況，您是研究諸葛亮的權(quán)威，我很希望當(dāng)面向您請(qǐng)教有關(guān)問題。（3）請(qǐng)你根據(jù)需要，擬定3個(gè)準(zhǔn)備在采訪中提出的問題。

答案示例：①諸葛亮的主要貢獻(xiàn)是什么？②青少年時(shí)期的諸葛亮有哪些值得我們青少年學(xué)習(xí)的地方？③作為研究諸葛亮的學(xué)者，諸葛亮給您印象最深的是什么？

拓展型試題：

襄樊擁有豐富的人文資源和景觀，三國文化是襄樊的歷史瑰寶，諸葛亮在海外聲名遠(yuǎn)揚(yáng)，我們要借用這張“名片”，進(jìn)一步擴(kuò)大對(duì)外開放，發(fā)展旅游經(jīng)濟(jì)，將襄樊建成文化大市、旅游大市，因此襄樊決定舉辦以“三國”文化為中心的“中國襄樊諸葛亮文化旅游節(jié)”活動(dòng)。

1．請(qǐng)你為這次活動(dòng)擬一條宣傳語。答案示例：賞襄樊風(fēng)光，學(xué)諸葛智慧

2．這次旅游節(jié)決定舉辦一場“三國文化知識(shí)競賽”活動(dòng)，邀請(qǐng)你當(dāng)主持人，你將怎樣主持這次活動(dòng)，請(qǐng)寫出活動(dòng)步驟。（不少于三步）

答案示例：①主持人講話，宣布競賽規(guī)則要求②選手參加競賽③評(píng)獎(jiǎng)，宣布比賽結(jié)果④主持人作總結(jié)

3．襄樊的旅游景點(diǎn)多而分散，為了使旅游業(yè)拉動(dòng)經(jīng)濟(jì)發(fā)展，實(shí)現(xiàn)“文化搭臺(tái)，經(jīng)濟(jì)唱戲”的目標(biāo)，請(qǐng)你給旅游部門提兩條合理化建議。

答案示例：①將襄樊旅游文化資源進(jìn)行整合，編輯成冊(cè)，分發(fā)給游客，讓他們“一冊(cè)在手，暢游無阻”。②利用媒體，加大宣傳力度。

4．請(qǐng)談一談你對(duì)這次活動(dòng)的感受或者收獲。

答案示例：“中國襄樊諸葛亮文化旅游節(jié)”活動(dòng)讓我對(duì)襄樊地域文化有了更深的了解，讓我更熱愛自己的家鄉(xiāng)，我也要向那些名人學(xué)習(xí)，從現(xiàn)在做起，努力學(xué)習(xí)，爭取長大后為家鄉(xiāng)作貢獻(xiàn)。

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

《我所了解的孔子和孟子》是我們?cè)?jīng)經(jīng)歷的一次語文綜合性學(xué)習(xí)活動(dòng)，也許這次活動(dòng)，已成為難以磨滅的生命印記，成為我們享受生活快樂的一種體驗(yàn)，請(qǐng)依據(jù)本次綜合性學(xué)習(xí)活動(dòng)回答下列問題。

1、如果本次活動(dòng)語文老師讓你設(shè)計(jì)活動(dòng)方案，請(qǐng)你補(bǔ)充完整下邊的設(shè)計(jì)。

活動(dòng)目的：。

答案示例：讓同學(xué)們比較全面地了解孔子和孟子，親身體驗(yàn)和了解燦爛悠久的中華文化，培養(yǎng)學(xué)生的民族自豪感，從而綜合提升同學(xué)們的人文素養(yǎng)。

活動(dòng)準(zhǔn)備：。

答案示例：確定活動(dòng)主題并進(jìn)行活動(dòng)分組，推選出小組長，安排各小組活動(dòng)內(nèi)容?；顒?dòng)展示過程：開班會(huì)匯報(bào)交流活動(dòng)成果?；顒?dòng)總結(jié)：請(qǐng)語文老師對(duì)活動(dòng)進(jìn)行總結(jié)。

2、［孔孟小檔案］在活動(dòng)準(zhǔn)備階段，老師給你們小組分配了兩個(gè)課題，請(qǐng)完成：（1）簡介孔孟：A．孔子：B、孟子：

答案示例：名丘字，字仲尼，春秋時(shí)魯國人，思想家、教育家，被尊為孔圣人，是儒家學(xué)派的代表人物。名軻，戰(zhàn)國人，思想家教育家，是孔子之孫孔伋的再傳弟子，是繼孔子之后的一位儒家大師，被尊為亞圣。（2）了解孔子弟子和門人：我們通常說孔子有弟子，其中最突出的有人，如、、。答案示例：三千、七十余、子貢、曾參、顏回

3、［孔孟名言知多少］請(qǐng)將孔子和孟子的名言各舉一例，并稍加點(diǎn)評(píng)。

答案示例：A．三人行，必有我?guī)熝?。這句話教育我們要有謙虛的美德。B．天時(shí)不如地利，地利不如人和。這句話點(diǎn)明了決定戰(zhàn)爭勝負(fù)的三要素，并突出了人和的重要性。

3、作為活動(dòng)的策劃人，你打算以何種形式匯報(bào)交流各小組的活動(dòng)成果，寫出你的打算（不少于兩種）。答案示例：1情景表演 2演講 3展出 4班會(huì)

4、為了開好本次班會(huì)，如果讓你設(shè)計(jì)一個(gè)開場白，你打算該如何設(shè)計(jì)?

答案示例：同學(xué)們，五千年?duì)N爛悠久的中華文化曾經(jīng)在人類文明史上創(chuàng)造過無數(shù)的奇跡，孔子和孟子便是這些奇跡中兩顆耀眼的明星，他們超人的智慧、深邃的思想、積極的人生態(tài)度，影響了一代又一代的中國人。一個(gè)星期來，我們通過閱讀、上網(wǎng)查找和請(qǐng)教老師，搜集了有關(guān)孔子、孟子的大量資料，并精心編排，今天在這里展示我們的成果，請(qǐng)老師多多指導(dǎo)。

5、在互動(dòng)交流過程，同學(xué)們開展了孔孟知識(shí)搶答，試試看你能否搶答出下列問題。

①孔子――我國封建社會(huì)的圣人，其思想核心是“”，其思想的保守方面是“”，其思想的精華是“” ；孟子――儒家學(xué)派最重要的繼承人，《孟子》一書的思想主體是倫理政治學(xué)說，其理論基礎(chǔ)是論，孟子思想的核心是“”學(xué)說，即“民貴君輕”。

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

②說出《論語》中的成語四個(gè)答案示例：溫故知新溫故知新 任重道遠(yuǎn) 殺身成仁③《孟子》中成語也很多，請(qǐng)說出兩個(gè)答案示例：生于憂患，死于安樂舍生取義 ④孔子和孟子是春秋戰(zhàn)國時(shí)期著名的思想家、教育家，請(qǐng)分別舉一個(gè)與孔子和孟子有關(guān)的傳說故事。答案示例：孔子：周游列國 孔子韋編三絕孟子：孟母三遷 三斷機(jī)杼

6、青春隨想

1、如果你班舉辦一次歌頌青春的主題班會(huì)，請(qǐng)你擬一個(gè)班會(huì)主題。

2、如果你有一個(gè)美麗的心愿，請(qǐng)你把它寫在一張紙上，折成一只小船，放在水中，讓它帶著你的心愿，漂向遠(yuǎn)方。我的心愿：

3、《青春隨想》綜合性學(xué)習(xí)展示課上，老師先讓每個(gè)同學(xué)說一句話，作為自己的青春座右銘，你的座右銘是：

4、你寫出二條關(guān)于青春的名言警句、俗語、諺語。

5、請(qǐng)簡要寫出一個(gè)名人在青春時(shí)期的故事。

6、請(qǐng)寫出青少年心理健康的標(biāo)志。（至少3條）

7、學(xué)?！督鹦恰穲?bào)準(zhǔn)備開辟一個(gè)“青春論壇” 欄目，現(xiàn)請(qǐng)你作為本欄目的編輯，你準(zhǔn)備設(shè)計(jì)哪些

專題？（不得少于二個(gè)）

8、請(qǐng)你為《金星》報(bào)的“青春論壇” 寫一個(gè)開篇詞。（150字左右）

9、青春如花似玉，熱烈燦爛，青春讓我們充滿熱情、朝氣。倘若本班要舉行一個(gè)主題班會(huì)，請(qǐng)你

為主持，請(qǐng)你設(shè)計(jì)一個(gè)開場白。

附答案：

1、放飛青春

2、我希望自己將來能成為之一個(gè)科學(xué)家。

3、少壯不努力，老大徒傷悲。

3、青春須早為，豈能長少年。（孟效）莫等閑，白了少年頭，空悲切。

4、劉胡蘭被捕時(shí)，面對(duì)敵人的鍘刀，毫不畏懼，英勇就義。

5、見教材。

6、專題一：《青春的對(duì)話》二：《我的青春宣言》

7、青春是人生最美麗的花朵，青春是人生最壯麗的篇章，因?yàn)樵谇啻旱募竟?jié)我們有的是激情和希

望。我們是十五六歲的少年，我們正值人生的花季。青春的血液在奔流，青春的心兒在躍動(dòng)，青春的腳步在延伸。駐足青春的驛站，我們回味昨天，暢想明天，青春的歲月如花似火！朋友，請(qǐng)跟我來，讓我們一起踏上青春的快車，去欣賞那一道道亮麗的風(fēng)景線！

8、同學(xué)們，青春絢麗多彩，朝氣蓬勃，青春是一首流淌的歌，青春是一杯香醇的酒。此時(shí)此刻，我們歡聚一堂，讓我們以美妙的歌聲，輕盈的舞姿展開青春的翅膀，盡情的翱翔吧！

******************************************************************************* 1．你班將舉行一次《青春頌歌》的主題班會(huì)，請(qǐng)你設(shè)計(jì)一段開場白。參考答案：

(1)．同學(xué)們!仰首是人生，俯首是青春。青春的血液在奔流，青春的心兒在跳動(dòng)，我們熱愛青春，我們

相信“愛拼才會(huì)贏!”在人生的花季中，我們攜手并肩，共同唱響：青春萬歲!

(2)我們是十五六歲的少年，我們正值人生的花季。青春的血液在奔流，青春的心兒在躍動(dòng)，青春的腳步在延伸。駐足青春的驛站，我們回味昨天，暢想明天，青春的歲月如火如花！請(qǐng)跟我來，我們一起上青春的車，欣賞那一道道亮麗的風(fēng)景線！

2、歌頌青春的電影電視：《英雄兒女》《大浪淘沙》《鋼鐵是怎樣煉成的》《歌唱你，葉欣》《激情燃燒的歲月》

3、和青春有關(guān)的歌曲：《青春啊青春》《共青團(tuán)之歌》《花樣年華》《讓我們蕩起雙槳》《在希望的田野上》《青春舞曲》《青春進(jìn)行曲》

4、和青春有關(guān)的書籍：楊沫的《青春之歌》、《花季雨季》、王蒙的《青春萬歲》、《無怨的青春》、《年輕的思緒》、《青春》、《青春的夢(mèng)幻》、《青春的童話》。

5、寫一句有關(guān)“青春”的格言（名言警句）。青春須早為，豈能長少年。（孟郊）少年智則國智,少年強(qiáng)則國強(qiáng)。（梁啟超）青春時(shí)期的任何事情都是考驗(yàn)。（史蒂文森）青春是不耐久藏的東西。（莎士比亞）自信和希望是青年的特權(quán)。（大仲馬）

斗爭的生活使你干練，苦悶的煎熬使你醇化；這是時(shí)代要造成青年為能擔(dān)負(fù)歷史使命的兩件法寶。（茅盾）更多見課本P1016、給自己寫一則青春的座右銘（青春心語）

（1）了解世界，是我們的興趣；探索人生，是我們的愿望；學(xué)習(xí)知識(shí)，是我們的追求。（2）理想像手中的利斧，斬?cái)嗲G棘沖擊平庸；有了理想，夢(mèng)中便有了希冀。（3）青春離開了偉大的理想，只不過是東流水上漂浮的落葉。

（4）燦爛的理想，使我們年輕的心胸如宇宙般遼闊，讓五色斑斕的星星在心空中閃爍。

7、為了讓學(xué)生多側(cè)面了解青春，進(jìn)一步感受青春的活力、青春的朝氣、青春的奮斗，學(xué)校將舉行一次以“青春”為主題的盛大文藝匯演。

（1）組委會(huì)將為全體學(xué)生征集文藝匯演主題語，要求是語言簡潔、形象的一句話或短語。

示例：飛揚(yáng)的青春飛揚(yáng)的神采

（2）假如你是本次活動(dòng)的主持人，請(qǐng)你設(shè)計(jì)一段精彩的開場白。（80字左右）（示例見上1）

（3）為了讓學(xué)生感受到青春的火熱、燦爛、美麗，讓他們發(fā)自內(nèi)心地?zé)釔矍啻?、熱愛生活，學(xué)校想開辟更多的活動(dòng)途徑。如果是你會(huì)設(shè)計(jì)哪些活動(dòng)形式？ 活動(dòng)形式一：舉行文藝匯演活動(dòng)形式二：觀摩專題影視 活動(dòng)形式三：舉行演講比賽活動(dòng)形式四：參觀教育基地 活動(dòng)形式五：進(jìn)行征文比賽活動(dòng)形式六：開展櫥窗宣傳 活動(dòng)形式七：舉辦書畫展覽

8、我們正在走進(jìn)五彩繽紛、朝氣蓬勃的青春花季。步入青春，自我獨(dú)立，個(gè)性逐漸形成。為了讓自己青春的腳步邁得雄健有力，就必須擁有健康的心理。你認(rèn)為心理健康的標(biāo)志有哪些呢？請(qǐng)寫出四點(diǎn)。示例：（1）積極向上，精神飽滿，朝氣蓬勃，有自信心、進(jìn)取心、自尊心。（2）善于適應(yīng)環(huán)境。（3）情緒穩(wěn)定而愉快。（4）能建立互敬互愛、相互理解的人際關(guān)系。

9、學(xué)?！督鹦菆?bào)》準(zhǔn)備開辟一個(gè)“青春論壇”欄目，現(xiàn)請(qǐng)你作為本欄目的編輯，你準(zhǔn)備設(shè)計(jì)哪些專題？（不得少于兩個(gè)）

我的設(shè)計(jì)：專題一：《青春的對(duì)話》專題二：《我的青春宣言》專題三：《我的未來不是夢(mèng)》專題四：《青春座右銘》專題五：《男女生如何相處》

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

示例：保爾.柯察金，因?yàn)樗簧挚部?，在雙目失明的情況下還堅(jiān)持寫書，對(duì)自己毫不顧惜，用頑強(qiáng)的毅力完成了巨著。保爾可謂強(qiáng)者的化身。

第四篇：綜合實(shí)踐活動(dòng)資料

綜合實(shí)踐活動(dòng)資料 電池的危害

有關(guān)資料顯示，一節(jié)一號(hào)電池爛在地里，能使1平方米的土壤永久失去利用價(jià)值；一粒紐扣電池可使600噸（60萬升）水無法飲用，相當(dāng)于一個(gè)人一生的飲水量。對(duì)自然環(huán)境威脅最大的五種物質(zhì)，電池里就包含了三種：汞、鉛、鎘。若將廢舊電池混入生活垃圾一起填埋，滲出的汞及重金屬物質(zhì)就會(huì)滲透土壤、污染地下水，進(jìn)而進(jìn)入魚類、農(nóng)作物中，破壞人類的生存環(huán)境，間接威脅到人類的健康。廢舊電池的危害性：廢舊電池的危害主要集中在其中所含的少量的重金屬上，如鉛、汞、鎘等。這些有毒物質(zhì)通過各種途徑進(jìn)入人體內(nèi)，長期積蓄難以排除，損害神經(jīng)系統(tǒng)、造血功能和骨骼，甚至可以致癌。鉛：神經(jīng)系統(tǒng)(神經(jīng)衰弱、手足麻木)、消化系統(tǒng)(消化不良、腹部絞痛)、血液中毒和其他的病變。汞：精神狀態(tài)改變是汞中毒的一大癥狀。脈搏加快，肌肉顫動(dòng)，口腔和消化系統(tǒng)病變。鎘、錳：主要危害神經(jīng)系統(tǒng)。洋快餐的危害

在中國的洋快餐有肯德基、麥當(dāng)勞等?！把罂觳汀本哂腥撸ǜ邿崃?、高脂肪、高蛋白質(zhì)）和三低（低礦物質(zhì)、低維生素和低膳食纖維）的特點(diǎn)。營養(yǎng)學(xué)家為“洋快餐”取了個(gè)綽號(hào)———叫做“能量炸彈”和“垃圾食品”。世界橋梁之最

現(xiàn)存最古老的敞肩拱石橋是河北趙縣趙州橋。隋朝開皇十五年至大業(yè)元年（595～605年）建。

現(xiàn)存最早的也是橋洞最多的聯(lián)拱石橋是江蘇蘇州寶帶橋。唐元和十一年（816年）始建。

現(xiàn)存最早的十字橋是山西晉祠魚沼飛梁，北宋崇寧元年（1102年）建。最早的開關(guān)活動(dòng)式大石橋是廣州潮州廣濟(jì)橋。明宣德十年（1435年）建。世界上跨度最大的石拱橋——1946年瑞典建成的綏依納松特橋,跨度為155m.世界上第一座具有鋼筋混凝土主梁的斜拉橋——1925年在西班牙修建跨越但波爾河的水道橋,主跨為60.35m.世界上跨徑最大的預(yù)應(yīng)力混凝土斜拉橋——西班牙的盧納巴里奧斯橋,跨徑達(dá)440m,采用了雙面輻射形密索布置.世界第一的懸索橋——日本明石海峽橋,橫跨日本內(nèi)海,使日本神戶與淡路島緊緊相連.這座大橋全長3190M,中央跨度1990m于1998年竣工.它可以承受里氏8.5級(jí)地震.孔數(shù)最多的橋——蘇州的寶帶橋，有53各橋孔。最大的交叉橋——北京三元交叉橋。

最早的橋梁——陜西西安市的灞橋。有二橋六百多年歷史了。最大最重的石梁橋——福建省漳州的虎渡橋。最長的石梁橋——福建省晉江縣的安平橋。造紙的歷史

造紙為我國古代四大發(fā)明之一。早在1800多年前，造紙術(shù)的發(fā)明家蔡倫即使用樹膚(即樹皮)、麻頭(麻屑)、敞布(破布)、破魚網(wǎng)等為原料制成“蔡侯紙”，于公元105年獻(xiàn)給東漢和帝，受到高度贊揚(yáng)。造紙術(shù)的發(fā)明對(duì)中國和世界文明進(jìn)步做出了巨大貢獻(xiàn)。

在造紙術(shù)發(fā)明的初期，造紙?jiān)现饕瞧撇己蜆淦ぁＴ旒埖臍v史

造紙為我國古代四大發(fā)明之一。早在1800多年前，造紙術(shù)的發(fā)明家蔡倫即使用樹膚(即樹皮)、麻頭(麻屑)、敞布(破布)、破魚網(wǎng)等為原料制成“蔡侯紙”，于公元105年獻(xiàn)給東漢和帝，受到高度贊揚(yáng)。造紙術(shù)的發(fā)明對(duì)中國和世界文明進(jìn)步做出了巨大貢獻(xiàn)。

在造紙術(shù)發(fā)明的初期，造紙?jiān)现饕瞧撇己蜆淦??；ǖ囊饬x

竹

竹之雅意也是清幽，風(fēng)骨亮節(jié)，與其他三友并列之。人常說瘦竹，并且比喻那些為人廉潔剛正不訛的仙風(fēng)道古。

蘭

蘭是四君子當(dāng)中的佼佼者，她的淡雅，她的香。人們喜歡蘭花，喜歡她的高雅。

梅

梅花香自苦寒來,喜歡梅花高雅的氣質(zhì),不畏嚴(yán)寒,獨(dú)獨(dú)在雪中肆意盛開,不管不顧的旁若無人。

菊

人云：“人淡如菊?！?/p>

牡丹是我國特有的名貴花卉,雍容華貴、富麗端莊、芳香濃郁,素有“國色天香”之美稱,被譽(yù)為富貴吉祥、繁榮昌盛的象征。

荷花

潔身自好

紫羅蘭：象征希望、節(jié)操和幸運(yùn)。水仙花：象征友情、真誠和懇切。白百合：象征純潔和忘我的境界。玫瑰花：象征真情的愛。

康乃馨：象征體貼和遐思。送母親或送病人 空氣污染

Pm2.5 pm為英文particulate matter的縮寫，翻譯成中文叫做顆粒物。pm2.5是指大氣中直徑小于或等于2.5微米的顆粒物，有時(shí)也被稱作入肺顆粒物。我們?nèi)粘３Ｒ姷撵F霾天氣大 多數(shù)情況下就是由pm2.5造成的。雖然pm2.5在大氣中的含量極少，但是，由于質(zhì)量小，攜帶病毒及有害物質(zhì)時(shí)間長、傳輸渠道多樣、移動(dòng)距離較遠(yuǎn)、對(duì)人 體造成的危害較大，pm2.5的確是名符其實(shí)的隱型殺手!pm2.5就是汽車的尾氣排出后升到天空造成了污染

茶藝

1.綠茶：茶是不經(jīng)過發(fā)酵的茶，即將鮮葉經(jīng)過攤晾后直接下到一二百度的熱鍋里炒制，以保持其綠色的特點(diǎn)。

名貴品種有：龍井茶、碧螺春茶、黃山毛峰茶、廬山云霧、六安瓜片、蒙頂茶、太平猴魁茶、君山銀針茶、顧渚紫筍茶、信陽毛尖茶、平水珠茶、西山茶、雁蕩毛峰茶、華頂云霧茶、涌溪火青茶、敬亭綠雪茶、峨眉峨蕊茶、都勻毛尖茶、恩施玉露茶、婺源茗眉茶、雨花茶、莫干黃芽茶、五山蓋米茶、普陀佛茶。

2.紅茶 ：紅茶與綠茶恰恰相反，是一種全發(fā)酵茶（發(fā)酵程度大于80％）。紅茶的名字得自其湯色紅。

名貴品種有：祁紅、滇紅、英紅。

紅茶----紅茶與綠茶的區(qū)別，在于加工方法不同。紅茶加工時(shí)不經(jīng)殺青，而且萎凋，使鮮葉失云一部分水分，再揉捻（揉搓 成條或切成顆粒），然后發(fā)酵，使所含的茶多酚氧化，變成紅色的化合物。這種化合物一部分溶于水，一部分不溶于水，而積累在葉片中，從而形成紅湯、紅葉。紅茶主要有小種紅茶、工夫紅茶和紅碎茶三大類。

3.黑茶：黑茶原來主要銷往邊區(qū)，像云南的普洱茶就是其中一種。普洱茶是在已經(jīng)制好的綠茶上澆上水，再經(jīng)過發(fā)酵制成的。普洱茶具有降脂、減肥和降血壓的功效，在東南亞和日本很普及。不過真要說減肥，效果最顯著的還是烏龍茶。

黑茶----原料粗老，加工時(shí)堆積發(fā)酵時(shí)間較長，使葉色呈暗褐色。是藏、蒙、維吾爾等兄弟民族不可缺少的日常必需品。有“湖南黑茶”、“湖北老青茶”、“廣西六堡茶”、四川的“西路邊茶”“南路邊茶”、云南的“緊茶”、“扁茶”、“方茶”和“圓茶”等品種。

4.烏龍茶 ：烏龍茶也就是青茶，是一類介于紅綠茶之間的半發(fā)酵茶。烏龍茶在六大類茶中工藝最復(fù)雜費(fèi)時(shí)，泡法也最講究，所以喝烏龍茶也被人稱為喝工夫茶。

名貴品種有：武夷巖茶、鐵觀音、鳳凰單叢、臺(tái)灣烏龍茶。

青茶（烏龍茶）----屬半發(fā)酵茶，即制作時(shí)適當(dāng)發(fā)酵，使葉片稍有紅變，是介于綠茶與紅茶之間的一種茶類。它既有綠茶的鮮濃，又有紅茶的甜醇。因其葉片中間為綠色，葉緣呈紅色，故有“綠葉紅鑲邊”之稱。

5.黃茶 ：著名的君山銀針茶就屬于黃茶，黃茶的制法有點(diǎn)像綠茶，不過中間需要悶黃三天；

黃茶----在制茶過程中，經(jīng)過悶堆渥黃，因而形成黃葉、黃湯。分“黃芽茶”（包括湖南洞庭湖君山銀芽、四川雅安、名山縣的蒙頂黃芽、安徽霍山的霍內(nèi)芽）、“黃小茶”（包括湖南岳陽的北港在、湖南寧鄉(xiāng)的溈山毛尖、浙江平陽的平陽黃湯、湖北遠(yuǎn)安的鹿苑）、“黃大茶”（包括的大葉青、安徽的霍山黃大茶）三類。

6.白茶：白茶則基本上就是靠日曬制成的。白茶和黃茶的外形、香氣和滋味都是非常好的。

名貴品種有：白豪銀針茶、白牡丹茶。

白茶----是我國的特產(chǎn)。它加工時(shí)不炒不揉，只將細(xì)嫩、葉背滿茸毛的茶葉曬干或用文火烘干，而使白色茸毛完整地保留下來。白茶主要產(chǎn)于福建的福鼎、政和、松溪和建陽等縣，有“銀針”、“白牡丹”、“貢眉”、“壽眉”幾種。

知識(shí)產(chǎn)權(quán)

知識(shí)產(chǎn)權(quán)，也稱其為“知識(shí)所屬權(quán)”，指“權(quán)利人對(duì)其所創(chuàng)作的智力勞動(dòng)成果所享有的財(cái)產(chǎn)權(quán)利”，一般只在有限時(shí)間期內(nèi)有效。各種智力創(chuàng)造比如發(fā)明、文學(xué)和藝術(shù)作品，以及在商業(yè)中使用的標(biāo)志、名稱、圖像以及外觀設(shè)計(jì)，都可被認(rèn)為是某一個(gè)人或組織所擁有的知識(shí)產(chǎn)權(quán)。據(jù)斯坦福大學(xué)法學(xué)院的Mark Lemley教授，廣泛使用該術(shù)語“知識(shí)產(chǎn)權(quán)”是一個(gè)在1967年世界知識(shí)產(chǎn)權(quán)組織成立后出現(xiàn)的。（最近一段時(shí)間部分互聯(lián)網(wǎng)公司如：騰訊、阿里等，也將其簡稱為IP）

知識(shí)產(chǎn)權(quán)是關(guān)于人類在社會(huì)實(shí)踐中創(chuàng)造的智力勞動(dòng)成果的專有權(quán)利。隨著科技的發(fā)展，為了更好保護(hù)產(chǎn)權(quán)人的利益，知識(shí)產(chǎn)權(quán)制度應(yīng)運(yùn)而生并不斷完善。如今侵犯專利權(quán)、著作權(quán)、商標(biāo)權(quán)等侵犯知識(shí)產(chǎn)權(quán)的行為越來越多。17世紀(jì)上半葉產(chǎn)生了近代專利制度；一百年后產(chǎn)生了“專利說明書”制度；又過了一百多年后，從法院在處理侵權(quán)糾紛時(shí)的需要開始，才產(chǎn)生了“權(quán)利要求書”制度。在二十一世紀(jì)，知識(shí)產(chǎn)權(quán)與人類的生活息息相關(guān)，到處充滿了知識(shí)產(chǎn)權(quán)，在商業(yè)競爭上我們可以看出他的重要作用。

發(fā)明專利、商標(biāo)以及工業(yè)品外觀設(shè)計(jì)等方面組成工業(yè)產(chǎn)權(quán)。工業(yè)產(chǎn)權(quán)包括專利、商標(biāo)、服務(wù)標(biāo)志、廠商名稱、原產(chǎn)地名稱、制止不正當(dāng)競爭，以及植物新品種權(quán)和集成電路布圖設(shè)計(jì)專有權(quán)等。

《中華人民共和國專利法》、《商標(biāo)法》、《著作權(quán)法》、《發(fā)明獎(jiǎng)勵(lì)條例》等單行法和行政法規(guī)也都對(duì)相關(guān)的知識(shí)產(chǎn)權(quán)作了規(guī)定。

中國七大傳統(tǒng)節(jié)春節(jié)（正月初一）、元宵（正月十五）、清明（4月5日前后）、端午（五月初五）、七夕（七月初七）、中秋（八月十五）、重陽（九月初九）

等 探月歷程

（六年級(jí)第一冊(cè)p43頁）

第五篇：vb學(xué)習(xí)綜合資料

VB教程：序言-不再游戲

我們需要什么

我們需要什么？當(dāng)我們?cè)谝粋€(gè)精彩的游戲世界中游歷了一番之后，或是驚嘆于某一工具軟件的小巧精致之余，多少總會(huì)產(chǎn)生些許編程的沖動(dòng)。編程嗎，在以前如果你對(duì)電腦還是一個(gè)門外漢，那實(shí)在是一件可望而不可及的事情。如果運(yùn)用基于DOS下的編程語言，譬如C、Qbasic、Pascal等等，真不知何年何月才能有所成就。

編程是需要天賦的，你必須在大腦中對(duì)整個(gè)程序有一個(gè)清晰的輪廓，一個(gè)高效的流程，這并不是每個(gè)人都能做到的，你必須思之慎之，這也使編程變成一件最枯燥無味的事情。但在第四代計(jì)算機(jī)語言（可視化編程）出現(xiàn)后，可以確切的說它開發(fā)了人們的更多天賦，并不局限于那些頭腦異常清晰的人，每一個(gè)人都可以發(fā)現(xiàn)自己也可以編出一些從前不敢問津的程序，想象力的充分發(fā)揮才是第四代語言的精粹。

Visual Basic（以下簡稱VB）可以說是可視化語言的先驅(qū)了，而且它也是可視化程度最高的一個(gè)，從幾年前VB誕生之日起到現(xiàn)在，它已經(jīng)經(jīng)歷了五個(gè)版本，而且現(xiàn)在微軟正在緊張的進(jìn)行著VB6.0的研制、測試，這么高的更新率，不外乎說明兩個(gè)問題：用戶對(duì)VB的熱衷，微軟對(duì)VB的重視。不可否認(rèn)微軟對(duì)市場的預(yù)測能力是極為高明的，而它強(qiáng)大的技術(shù)、財(cái)力支持也使它在許多以前未進(jìn)入的領(lǐng)域，在不長的時(shí)間內(nèi)有成為最有力的競爭對(duì)手，如IE之于瀏覽器領(lǐng)域，《帝國時(shí)代》之于游戲都是最好的例證。對(duì)于VB現(xiàn)在也有一個(gè)很強(qiáng)的競爭對(duì)手――Delphi，有人把它稱作VB殺手，這顯然有偏激之處，VB的確有它的不足之處，但Delphi又何嘗不是呢，而且以微軟對(duì)VB的傾心，VB的功能必然會(huì)越來越強(qiáng)大。

VB的誕生

VB的出現(xiàn)可以說是Microsoft Windows的日漸成熟的必然產(chǎn)物。Microsoft Windows為程序員和最終用戶提供了一個(gè)共同的人機(jī)界面。對(duì)用戶，Windows提供了一個(gè)圖形鼠標(biāo)的操作環(huán)境，該環(huán)境對(duì)所有的應(yīng)用程序都一樣；對(duì)于程序員，Windows提供了一組預(yù)定義工具----稱之為Microsoft Windows 的軟件開發(fā)工具箱（SDK），該工具能使程序員建立一個(gè)與Windows界面相同的應(yīng)用程序，而且，程序員不必關(guān)心最終用戶的硬件配置情況。在這一開發(fā)環(huán)境中，程序員唯一困難的是Microsoft SDK提供了六百多個(gè)函數(shù)和與其一致的事件驅(qū)動(dòng)（event-driven）編程技術(shù)。兩種新方法的交叉使眾多的程序員重新陷入困境，程序員不僅要掌握程序驅(qū)動(dòng)編程技術(shù)和六百多個(gè)函數(shù)的功能，而且還得用C語言描述這些問題。因此一般情況下，程序員首先要掌握C程序設(shè)計(jì)技術(shù)，而后再開始學(xué)習(xí)SDK。這樣的條件下就要求在Microsoft多任務(wù)環(huán)境下出現(xiàn)一種操作方便，使用簡單的新工具－－－－Visual Basic由此誕生。

何為可視

英文Visual的意思是“視覺的”，“可視的Baisc”這個(gè)名字可能抽象了點(diǎn)，但實(shí)際上它卻是最直觀的編程方法，之所以叫做“可視”，你只要看到VB的界面就會(huì)明白，實(shí)際上你無需編程，就可以完成許多步驟。在VB中引入了控件的概念，在Windows中控件的身影無處不在，各種各樣的按鈕、文本框、無線鈕，都是控件的種類，VB把這些控件模式化，并且每個(gè)控件都有若干屬性用來控制控件的外觀，工作方法。這樣你就可以象在畫板上一樣，隨意點(diǎn)幾下鼠標(biāo)，一個(gè)按鈕就完成了，這些在以前的編程語言下是要經(jīng)過相當(dāng)復(fù)雜的工作的。

我的希望：

我在學(xué)習(xí)VB的過程中也曾遇到了許多困難，而且用的參考書大都來自譯文，畢竟美國人和中國人的表達(dá)方式有所不同。這也造成了理解上的困難，所以我想為什么我不能寫一個(gè)給中國人看到VB教程呢，于是我這么做了。也曾經(jīng)在雜志上發(fā)表過幾篇用VB制作小程序的文章，但受雜志的限制（篇幅、內(nèi)容等等）（我得聽小編的），總沒有一個(gè)機(jī)會(huì)系統(tǒng)的介紹一下VB，造成了小小的遺憾。不過，我自己的主頁建好后，終于這個(gè)愿望可以實(shí)現(xiàn)了，利用HTML可以方便的把文字與圖片結(jié)合起來，不失為一個(gè)教學(xué)良所，也希望能夠得到大家的支持。希望“VB教程”能給你我一個(gè)互相學(xué)習(xí)的機(jī)會(huì)，如果你能從中獲益那將是我最大的快樂，那時(shí)你一定會(huì)發(fā)現(xiàn)編程比游戲有趣得多。:)

VB教程：第一章-Hello World!

沒學(xué)過編程的人常常會(huì)問，編程難不難，這個(gè)問題很難回答。難，的確很難，要編一個(gè)好的程序尤其是這樣，并且有些程序還要用到一些其他專業(yè)的知識(shí)，比如說一個(gè)圖形處理程序，就要對(duì)圖像的格式有所了解，甚至一些美術(shù)知識(shí)；但編程也很容易，就拿VB來說，編一個(gè)自娛自樂的小工具還是一件相當(dāng)愜意的事情呢，當(dāng)然它沒法完全代替人工，譬如說完成你的家庭作業(yè)、向?qū)W校發(fā)射導(dǎo)彈??

作為第四代計(jì)算機(jī)語言，VB的特點(diǎn)是顯而易見的。因?yàn)槭恰翱梢暤摹彼晕覀儾环料瓤纯碫B的界面（圖1_1）（我用的是VB4.0 32位版），很容易可以看到，屏幕上有五個(gè)窗口，（1）是菜單欄；（2）是工具箱（Tools Box），里面是VB所需的控件；（3）是VB程序要設(shè)計(jì)的窗體（Form）；（4）控件及窗體的屬性（Properties），在VB中每一個(gè)控件都有其自己的屬性，比如文本框有Text屬性，而任何一個(gè)控件都有一個(gè)自己唯一的名字，這使得我們無需編程就可以完成部分編程的工作；（5）是VB的文件控制窗口，VB的每一個(gè)程序稱為一個(gè)項(xiàng)目（Project），一個(gè)項(xiàng)目文件里往往包括以下兩種文件，窗體（Form）文件和模塊（Bas）文件，當(dāng)然還有Class文件，這些文件組成一個(gè)完整的程序，而項(xiàng)目文件（Vbp）則用來描述程序所包含的內(nèi)容。

實(shí)際上，我一直認(rèn)為學(xué)習(xí)的最好方法就是實(shí)際操作一下，好，下面我們就來看一個(gè)最簡單的程序，和所有的編程教科書一樣，我們把第一個(gè)程序稱為“Hello，world！”。

首先，我們先來熟悉一下窗體。如果你用過Win95附件所帶的畫圖板的話，那么你一定會(huì)很快熟悉VB的窗體設(shè)計(jì)方法，用鼠標(biāo)單擊一下工具箱中的任何一個(gè)控件，然后在窗體上任意拖動(dòng)鼠標(biāo)，你就會(huì)得到一個(gè)所需的控件；當(dāng)然還有其他的方法得到控件，你可以在工具箱上雙擊得到一個(gè)控件；或是按住Ctrl鍵，再單擊所需控件，重復(fù)第一次的步驟，你會(huì)發(fā)現(xiàn)，不用再回去點(diǎn)擊工具箱了，點(diǎn)右鍵可以恢復(fù)鼠標(biāo)指針，這樣對(duì)于重復(fù)畫同一個(gè)控件尤其有用。

對(duì)于我們的第一個(gè)小程序，知道這些就已經(jīng)足夠了?，F(xiàn)在你可以在我們的窗體上畫如下控件一個(gè)圖片框（Picture Box），用來顯示圖畫，每一個(gè)控件建立的時(shí)候，系統(tǒng)都會(huì)給它設(shè)一個(gè)默認(rèn)的名字(Name)，這個(gè)PictureBox的名字就叫做Picture1，為了方便起見，我們以后的控件都使用缺省的名稱。選定Picture1，在左邊的屬性窗口中找到Picture屬性，單擊會(huì)出現(xiàn)，點(diǎn)擊為Picture1選一個(gè)圖像文件，VB支持的圖像文件有BitMap、WMF、ICO三種，微軟為用戶提供了一套圖標(biāo)文件，存放在VB目錄的Icons目錄下，選擇Iconsmiscface01.ico文件，這樣圖標(biāo)就被裝入了Picture1。再選擇Pictrue1的Autosize屬性，設(shè)為1-True，則會(huì)發(fā)現(xiàn)Picture1以變成和圖像一樣大了；把BorderStyle定為0-None，去掉圖片邊框。用同樣的方法再添加兩個(gè)圖片框：Picture2（Picture：face02.ico），Picture3（Picture：face03.ico）。

圖片框完成了，第二步，建立三個(gè)無線鈕（Option Button），由于它象收音機(jī)的無線電按鈕而得名），把它們的標(biāo)簽名屬性（Caption）分別定為“悲哀”，“高興”，“沒治了”，放置成圖1_2的樣子。

最后我們還需要三個(gè)文本框（Text Box），分別把它們的Text屬性設(shè)為””（空字符串），程序的最后界面如圖1_3，這樣按下菜單窗口的運(yùn)行按鈕，運(yùn)行一下程序，還可以吧，不過現(xiàn)在程序還無法工作，就算是VB也不能免俗，還必須輸入代碼才能使程序運(yùn)作。

VB是一門典型的面向?qū)ο缶幊痰恼Z言，它的整個(gè)程序都是由事件驅(qū)動(dòng)的。那么，什么是事件呢？其實(shí)，我們的生活中充滿了各式各樣的事件，比如說“闖紅燈”這個(gè)事件的發(fā)生會(huì)導(dǎo)致被警察追殺、走路撞到電線桿時(shí)會(huì)痛。上面的例子雖然有些滑稽，但它可以清楚的解釋事件的含義，就象你馬上就能體會(huì)到的在什么地方單擊鼠標(biāo)時(shí)會(huì)發(fā)生什么，按下鍵盤時(shí)會(huì)發(fā)生什么，這就是事件，而事件就是這么容易。

要進(jìn)入VB的代碼設(shè)計(jì)區(qū)，只需在需要的控件或窗體上雙擊鼠標(biāo)即可得到這樣的窗口。如圖1_4，每一個(gè)VB程序都由若干小程序組成，這使得用VB編程更加容易，這些小程序，分為“過程”（Procedure）和“函數(shù)”（Function），二者都可以傳遞參數(shù)，所不同的是函數(shù)有一個(gè)返回值，而過程沒有，僅此而已。

雙擊窗體的任何一個(gè)部分，將出現(xiàn)一個(gè)空的過程：“Form_Load()”，這是一個(gè)非常重要的過程，它所驅(qū)動(dòng)的事件就是該窗體被加載的事件，打個(gè)比方，就象計(jì)算機(jī)啟動(dòng)時(shí)的批處理程序（Autoexec.bat）。這個(gè)程序里我們要對(duì)控件進(jìn)行一些設(shè)置。我們剛才也曾對(duì)控件進(jìn)行設(shè)置，但那是在程序設(shè)置中進(jìn)行的，有時(shí)我們也需要在程序中改變某些控件的屬性，通過程序代碼。VB中規(guī)定，一個(gè)控件屬性的訪問方法：名稱.屬性，于是我們對(duì)本程序的控件進(jìn)行如下設(shè)置：

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表示子過程的開始，與之相對(duì)的是End Sub表示過程的結(jié)束，Visible屬性表示控件的可見性，這個(gè)屬性的值有兩個(gè)True和False。

注意：

VB里對(duì)大小寫是不加區(qū)分的，而且，已定義的名稱，以后再用到時(shí)，系統(tǒng)會(huì)自動(dòng)把它變成相應(yīng)的大寫或小寫。

小知識(shí)：

1.VB里的對(duì)變量及常量的規(guī)矩。

變量一般為Abc的格式，常量為ABC，另外這些變量和常量名不得同VB內(nèi)的關(guān)鍵字相同，也不可以使用一些特殊符號(hào)，這些我們將在以后介紹，注意在學(xué)習(xí)中養(yǎng)成好習(xí)慣，使程序便于自己和別人的瀏覽。

2.程序書寫的竅門：

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

按下F5，運(yùn)行一下程序，現(xiàn)在發(fā)現(xiàn)只剩下無線鈕了。如圖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屬性表示控件離窗體左邊框的距離，設(shè)置為－2000，則在窗體內(nèi)不會(huì)看到這個(gè)控件，并使之Value=True。再運(yùn)行程序，一切如愿，如圖1_6.注意：為什么不用Option4.Visible=False？

因?yàn)?，一旦設(shè)置無線鈕為不可見，那么再使它的Value為真是沒有意義的，不信自己試試。

下面我們可以繼續(xù)進(jìn)行了。在剛才的代碼窗口里，將Object選擇為Option1，Proc選擇為Click，即得到一個(gè)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 = “再見，殘酷的世界?！?/p>

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 = “今天心情不錯(cuò)。”

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，玩一下吧。這個(gè)程序雖然簡單，但也用到了許多基本知識(shí)，你開始感興趣了嗎？^_^

VB教程：第二章-事件、屬性及數(shù)據(jù)類型

以后兩章可能會(huì)比較枯燥，但不可否認(rèn)也很重要，所以為了學(xué)好VB，我們一定要打好基礎(chǔ)才行。

一、事件

通過上一章的例子，你可能對(duì)“面向?qū)ο蟮木幊獭币呀?jīng)有了一定了解，它是由事件驅(qū)動(dòng)的，對(duì)于不同的對(duì)象，所能感應(yīng)到的事件也會(huì)不同，譬如說當(dāng)你把鼠標(biāo)移進(jìn)某一區(qū)域時(shí)就會(huì)觸發(fā)MouseMove事件，這很直觀，也容易理解，但也有些事件比較抽象，下面我來對(duì)一般的事件進(jìn)行一下解釋。

窗體和圖象框類事件

Paint事件：當(dāng)某一對(duì)象在屏幕中被移動(dòng)，改變尺寸或清除后，程序會(huì)自動(dòng)調(diào)用Paint事件。注意：當(dāng)對(duì)象的AutoDraw屬性為True（－1）時(shí)，程序不會(huì)調(diào)用Paint事件。

Resize事件：當(dāng)對(duì)象的大小改變時(shí)觸發(fā)Resize事件。

Load事件：僅適用于窗體對(duì)象，當(dāng)窗體被裝載時(shí)運(yùn)行。

Unload事件：僅適用于窗體對(duì)象，當(dāng)窗體被卸載時(shí)運(yùn)行。

2.當(dāng)前光標(biāo)（Focus）事件

GotFocus事件：當(dāng)光標(biāo)聚焦于該對(duì)象時(shí)發(fā)生事件。

LostFocus事件：當(dāng)光標(biāo)離開該對(duì)象時(shí)發(fā)生事件。

注意：Focus英文為“焦點(diǎn)”、“聚焦”之意，最直觀的例子是，比如有兩個(gè)窗體，互相有一部分遮蓋，當(dāng)你點(diǎn)下面的窗體時(shí)，它就會(huì)全部顯示出來，這時(shí)它處在被激活的狀態(tài)，并且標(biāo)題條變成藍(lán)色，這就是GotFocus事件，而相反，另外一個(gè)窗體被遮蓋，并且標(biāo)題條變灰，稱為LostFocus事件。上面所說的“光標(biāo)”并非指鼠標(biāo)指針。

3.鼠標(biāo)操作事件

Click事件：鼠標(biāo)單擊對(duì)象。

DbClick事件：鼠標(biāo)雙擊事件。

MouseDown、MouseUp屬性：按下/放開鼠標(biāo)鍵事件。

MouseMove事件：鼠標(biāo)移動(dòng)事件。

DragDrop事件：拖放事件，相當(dāng)于MouseDown、MouseMove和MouseUp的組合。

DragOver事件：鼠標(biāo)在拖放過程中就會(huì)產(chǎn)生DragOver事件。

4.鍵盤操作屬性

KeyDown、KeyUp事件：按鍵的按下/放開事件。

KeyPress事件：按鍵事件。

5.改變控制項(xiàng)事件

Change事件：當(dāng)對(duì)象的內(nèi)容發(fā)生改變時(shí)，觸發(fā)Change事件。最典型的例子是文本框（TextBox）。

DropDown事件：下彈事件，僅用于組合框（ComboBox）對(duì)象。

PathChange事件：路徑改變事件，僅用于文件列表框（FileBox）對(duì)象。

6.其他事件

Timer事件：僅用于計(jì)時(shí)器，每隔一段時(shí)間被觸發(fā)一次。

二、屬性

每個(gè)對(duì)象都有它的屬性，并且“Name”屬性是共有的，有了“Name”屬性才可以在程序中進(jìn)行調(diào)用。對(duì)于屬性，可以在窗體的布局操作中完成，也可以在程序運(yùn)行中改變，這取決你的需要，但有些屬性是只讀的，它只能在控件布局時(shí)改變。我將在以后的實(shí)例中具體介紹各個(gè)屬性的作用。

三、數(shù)據(jù)類型

學(xué)過編程的人都知道大多數(shù)的計(jì)算機(jī)語言都規(guī)定了各自的數(shù)據(jù)類型，VB也不例外。其實(shí)，在一個(gè)最簡單的程序中數(shù)據(jù)類型是可以不作規(guī)定的，也就是說，變量可以使用各種類型，但是在一個(gè)復(fù)雜的程序里，這樣做就很危險(xiǎn)，因?yàn)楹芸赡芙o同一個(gè)變量賦予了不同的類型，而導(dǎo)致程序出錯(cuò)。所以，為了程序的嚴(yán)謹(jǐn)和便于查看，正確的定義數(shù)據(jù)類型是必要的。定義數(shù)據(jù)的另一個(gè)原因是，不同的數(shù)據(jù)占用不同的內(nèi)存數(shù)量，譬如整型（Interger）數(shù)據(jù)占2字節(jié)，而長整型數(shù)據(jù)占4個(gè)字節(jié)，定義合適的數(shù)據(jù)類型，不管你相信不相信，它可以節(jié)省內(nèi)存！

VB常用的數(shù)據(jù)類型有：整型（Integer，表示-32768至32767之間的整數(shù)）、長整型（Long，表示-2,147,483,648至2,147,483,647之間的整數(shù)）、實(shí)型（Single，表示-3.37E+38至3.37E+38之間的實(shí)數(shù)）、雙精度實(shí)型（Double，表示-1.67E+308至1.67E+308之間的實(shí)數(shù)），字符（String，每個(gè)字符占一字節(jié)，可以儲(chǔ)存0～65,535個(gè)字符），布爾（Boolean，只有兩個(gè)值True/-1，或False/0）。

數(shù)據(jù)類型的定義方法：

定義變量最簡單的方法是用“Dim”關(guān)鍵字，它的語法：

Dim 【變量名】As 【數(shù)據(jù)類型】

如：Dim Index As Integer

也可以在一行中定義多個(gè)變量，如：

Dim Index As Integer , Dim Number As Long

把多個(gè)變量定義成同一類型可以寫成：

Dim Index , Number As Integer

有時(shí)為了簡便，也以符號(hào)進(jìn)行簡單的定義，作用是和上面一樣的。整型可以用“%”代替，長整型可以用“&”代替，實(shí)型可以用“!”，雙精度實(shí)型可以用“#”定義，如剛才的第一個(gè)例子可以寫成：

Dim Index% 等價(jià)于 Dim Index As Integer

對(duì)于常量的定義用Const定義，如：Const COLOR=255。

為了在程序中便于查閱，我們對(duì)變量和常量的寫法進(jìn)行規(guī)定，變量一般用小寫方式，常量則全部大寫。

注意：使用常量的好處，對(duì)于程序中經(jīng)常出現(xiàn)的數(shù)值，應(yīng)設(shè)常量等于它，這樣一是書寫方便，其二，如果要改變?cè)摂?shù)值，只需改變定義常量的語句值，而不需改變每個(gè)語句，提高了效率。

數(shù)組的定義類似于變量定義，所不同的是數(shù)組需要指定數(shù)組中的元素個(gè)數(shù)，例如：

Dim IntegerArray(99)As Integer

這個(gè)數(shù)組中包含100個(gè)元素，腳標(biāo)從0到99。

也可以指定腳標(biāo)的起始值，例如：

Dim IntegerArray(2 to 10)As Integer

這個(gè)數(shù)組含有九個(gè)元素，腳標(biāo)從2到10。

還可以定義多維數(shù)組：

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

上例定義了一個(gè)三維數(shù)組(4×4×4)。

記錄的定義

記錄定義是把控制權(quán)交給用戶的方法，它讓用戶可以定義自己的數(shù)據(jù)類型，它使用關(guān)鍵字“Type”，方法是：

Type 【數(shù)據(jù)類型標(biāo)識(shí)符】

<域名> As <數(shù)據(jù)類型> <域名> As <數(shù)據(jù)類型> <域名> As <數(shù)據(jù)類型> ??????????

End Type

例如，定義一個(gè)地址數(shù)據(jù)：

Type Address

Street As String ZipCode As String Phone As String

End Type

這個(gè)地址數(shù)據(jù)里包括三個(gè)屬性，街區(qū)、郵政編碼和電話，可以把某數(shù)據(jù)定義成此類型：

Dim MyHome As Address

要調(diào)用或改變“MyHome”的值時(shí)，類似于對(duì)對(duì)象的屬性的操作：

變量名.域名＝“??”

為了簡化書寫重復(fù)的部分,可以用關(guān)鍵字“With”：

With MyHome

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

End With

VB教程：第三章-VB語言

一、VB與Basic

VB之所以叫做“Visual Basic”就是因?yàn)樗褂昧薆asic語言作為代碼，所以它們之間有著千絲萬縷的關(guān)系，如果學(xué)過Basic的話，看到VB的程序結(jié)構(gòu)會(huì)感到很親切。但VB作為新生物，也超越了Basic的限制，有了許多自己的特點(diǎn)：

VB建立了一種新的變量類型――貨幣型變量，通過使用僅帶有二位小數(shù)的貨幣變量，就能避免因使用實(shí)型變量而帶來的數(shù)值積累誤差問題。

VB在調(diào)用函數(shù)（Function）時(shí)，必須在函數(shù)名后跟一對(duì)括號(hào)。

VB對(duì)白蘭地使用范圍重新做了規(guī)范，在Basic里把隱含變量都當(dāng)作全局變量，而在VB里對(duì)隱含變量都當(dāng)作局部變量。

VB里的說明語句（Declare），僅支持動(dòng)態(tài)鏈結(jié)庫（DLL）的子程序和無變量函數(shù)。

使用數(shù)組，必須事先用Dim或Redim進(jìn)行定義。

二、注釋語句

在使用注釋語句之前必須先了解注釋的作用，注釋不僅僅是對(duì)程序的解釋，有時(shí)它對(duì)于程序的調(diào)試也非常有用，譬如說可以利用注釋屏蔽一條語句以觀察變化，發(fā)現(xiàn)問題和錯(cuò)誤。以后注釋語句將是我們?cè)诰幊汤镒罱?jīng)常用到的語句之一。

在VB里，注釋語句有兩種，一種是用“Rem”關(guān)鍵字，這跟DOS里的批處理文件的用法一樣，還有一種是利用單引號(hào)“’”，例如：

‘Dim a As String 與

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

三、長語句的分行

在比較早的版本中，因?yàn)闆]有象C等語言用“；”隔開語句與語句，VB的語句是必須寫在一行里的，不過后來版本的VB里如許用分行符“_”把一個(gè)長語句分成若干行來存放。

四、條件語句

如果你學(xué)過任何一種編程的話，都會(huì)知道在程序里控制其流程的有兩種語句，條件與循環(huán)，VB自然也不例外，其實(shí)不管哪種語言，條件和循環(huán)的樣子都差不多，只不過各有各的規(guī)矩罷了。

在條件語句里，我們先來學(xué)習(xí)“If??Then??”語句。

它的一般語法是：

If <條件> Then

<語句> <語句> ???

End If

與C 語言不同，VB的條件語句更符合英語的語法，如果Then后面所跟的語句只有一條，可以寫成： If <條件> Then <語句>

而不用End If。

有時(shí)我們還會(huì)用到

If <條件> Then

<語句> Else

<語句>

End If

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

If <條件> Then

<語句> Else If

<語句> Else

<語句>

End If

所有這些可以用一個(gè)表格表示：

條件1

True False

語

句 條件2

True False

語 句 條件3

True False

?

?

?

………………………

條件N

True False

語句N 語句N＋1

用了過多的Else后你會(huì)感到很不方便，而且程序結(jié)構(gòu)也不清晰，所以大多數(shù)的語言還有Select語句幫助解決這個(gè)問題。

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

五、循環(huán)語句

循環(huán)結(jié)構(gòu)是計(jì)算機(jī)語言里一種重要的結(jié)構(gòu)，它的應(yīng)用廣泛，最簡單的例子是累加器的作用，還可以用于窮舉法，更直觀的例子是把某件事重復(fù)指定的次數(shù)，這樣就不用把要重復(fù)的語句輸入多次，而通過循環(huán)結(jié)構(gòu)完成，非常方便。

C語言里有一個(gè)“for”循環(huán)語句，VB里也有“For”關(guān)鍵字，作用也差不多，只是VB的“For”語句更容易理解。它的格式是：

For <循環(huán)變量>=<初賦值> To <終值> [Step <步長>] ?? ??

Next <循環(huán)變量>

在默認(rèn)情況下，Step被設(shè)為“1”，可以省略，Step也可以設(shè)為負(fù)值，例如：

Dim a=0

For I=1 To 10

a=a+I

Next I

這是一個(gè)最簡單的累加器的例子，把1到10累加在一起，然后賦值給“a”這樣的效果和上面是一樣的，只不過是倒著加罷了，請(qǐng)看：

Dim a=0

For I=10 To 1 Step –1

a=a+I

Next I

While語句也是一個(gè)很常用的循環(huán)語句，它的形式很多。

Do While ?? Loop語句

While ?? Wend 語句

Do …… Loop While

While后面都跟邏輯條件判斷，“Do While ?? Loop語句”和“While ?? Wend 語句”作用相似，都是先判斷While后面的條件是否為“真”，如果為“真”則執(zhí)行里面的語句，如果為“假”，則退出循環(huán)，循環(huán)直至條件為“假”終止?！癉o ?? Loop While ”與前兩者的區(qū)別在于，它不管條件的真假，都會(huì)先執(zhí)行“Do”后面的語句，也就是說，它至少執(zhí)行語句一次。

與While用法相似的還有Until語句，它是直至條件為真則終止循環(huán)，句式把While上述三個(gè)語句的While換成Until即可，但是因?yàn)槿菀子浕?，所以我建議只用While即可。Until <條件>可以相當(dāng)于While Not <條件>。

For循環(huán)和Whlie循環(huán)應(yīng)當(dāng)根據(jù)適當(dāng)?shù)沫h(huán)境使用，它們有時(shí)也可替換。

六、運(yùn)算操作

數(shù)學(xué)運(yùn)算

＋：加法運(yùn)算，也適合于字符串的之間的合并運(yùn)算。

－：加法運(yùn)算。

*：乘法運(yùn)算。

/：除法運(yùn)算。

：整除運(yùn)算。

Mod：求余運(yùn)算。例如：a Mod b表示a被b整除以后的余數(shù)。

^：冪運(yùn)算。A^B表示以A為底的B次方。

關(guān)系運(yùn)算

關(guān)系運(yùn)算也稱比較運(yùn)算，它表示不等式的真或假，VB共提供六種運(yùn)算符，分別是=（等于），>（大于），<（小于），>=（大于等于），<=（小于等于）和<>（不等于）。

邏輯運(yùn)算

邏輯運(yùn)算是對(duì)真或假的運(yùn)算，我將列表說明：

A B Not A 非

And 與 Or 或 Xor 異或

Eqv 相等

Imp 蘊(yùn)含

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

七、數(shù)據(jù)與定義

本標(biāo)題的內(nèi)容已經(jīng)在上一章向大家詳述過，在這里就不再重復(fù)。

八、函數(shù)與過程

函數(shù)與過程有許多相似的地方，它們之間最大也是最本質(zhì)的區(qū)別就在于，函數(shù)有一個(gè)返回值，而過程只是執(zhí)行一系列動(dòng)作，所以可以簡單的把函數(shù)理解成為一個(gè)變量，而VB中的每個(gè)事件都是一個(gè)過程，比如Command1_Click()就是一個(gè)過程。

因?yàn)樵诔绦蛟O(shè)計(jì)中經(jīng)常會(huì)有重復(fù)的地方，所以把它做成一個(gè)函數(shù)或一個(gè)過程，在使用時(shí)進(jìn)行調(diào)用，可以節(jié)省大量的輸入代碼的時(shí)間，而且使用函數(shù)和過程也便于程序的結(jié)構(gòu)化和修改查看。函數(shù)和過程都可以有參數(shù)，也可以沒有參數(shù)。

關(guān)于函數(shù)和過程我將在以后的章中配合實(shí)例講解，請(qǐng)您繼續(xù)留意VB教程。

VB教程：第四章-按鈕

從本章開始我們將正式進(jìn)入VB的編程世界，但這還僅僅是個(gè)開端，要編出功能強(qiáng)大的軟件，還要學(xué)很多東西，那就要看以后的VB高級(jí)教程了，我也得努力學(xué)??！

按鈕是我們?cè)赪indows操作見到最多的控件，它們有著各種各樣的功能：“確認(rèn)”、“取消”、“下一步”等等，這些都是按鈕的表現(xiàn)，另外還有很多圖形話的按鈕，其實(shí)它們并沒什么不同，所有的按鈕都是通過單擊（click）事件實(shí)現(xiàn)的，只不過是在外表不同罷了。下面就讓我們建立一個(gè)最簡單的按鈕，雙擊工具箱的CommandButton，將在窗體上建立一個(gè)形如圖4－1的按鈕，它的缺省名（Name屬性）為Command1，我們可以把它改名為cmdExit，把Caption屬性設(shè)為“退出”，然后雙擊，按鈕填寫代碼：

Private Sub cmdExit_Click()

Unload Me

End Sub

按下F5或者工具條上的播放按鈕，運(yùn)行程序。圖4－2當(dāng)你按下退出按鈕的時(shí)候，就會(huì)自動(dòng)退出程序，原因是當(dāng)你單擊按鈕時(shí)激活了它的Click事件，執(zhí)行“Unload Me”語句，使得窗體被卸載。

上面舉了一個(gè)比較簡單的例子，下面的例子稍微復(fù)雜些：

新建窗體，控件布局如圖4－3所示，包括一個(gè)List控件，一個(gè)Text控件和兩個(gè)按鈕（Command1和Command2），（比較簡單的程序我們都采用缺省名），對(duì)它們屬性做如下修改：

List1 Caption＝“請(qǐng)輸入你的名字”

Text1 Text＝“”（空字符串)Button1 Caption＝“復(fù)原”

Enabled＝False

Button2 Caption=“清除”

把使用Button1的Enabled屬性設(shè)為False（假），是使程序在初始時(shí)，無法單擊Command1。按F5，運(yùn)行程序，圖4－4，復(fù)原按鈕成為灰色，不可選。

當(dāng)然現(xiàn)在程序還什么也不能做，下面我們?cè)诔绦蛑刑砑哟a：

首先在General里聲明全局變量：

Dim StoreString As String '用來儲(chǔ)存字符串

※注意：為什么用全局變量？

VB里每一個(gè)小過程都相當(dāng)于一個(gè)程序，程序里的變量稱為局部變量，是只能在程序內(nèi)部使用的，而當(dāng)程序調(diào)用結(jié)束后，由于從內(nèi)存中被清除，所以變量儲(chǔ)存的值也就消失了，這里的全局變量是用來在過程中傳遞字符串。

接著填寫以下代碼： 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

運(yùn)行程序，如圖4－5。按下“清除”，文本框被清除，按下“復(fù)原”，文本有被恢復(fù)，許多程序中的Undo/Redo就是利用這個(gè)原理實(shí)現(xiàn)的，現(xiàn)在知道為什么內(nèi)存越多越好了吧。

我們?cè)诎殉绦蛐薷囊幌?，把Button2刪除，Button1的Enabled屬性改為True，Caption改為“清除”，填寫代碼：

Private Sub Command1_Click()

If Command1.Caption = ”清除“ Then

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

Command1.Caption = ”復(fù)原“ Else

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

End If

End Sub

同樣可以上面的功能，但是卻少用了一個(gè)控件，控件使用少的程序啟動(dòng)會(huì)快些。

下面的例子要更加復(fù)雜些，大家一定都用過Windows附件中的計(jì)算器，它是一個(gè)標(biāo)準(zhǔn)的科學(xué)計(jì)算器，利用VB我們也可以做到，只是沒有那么復(fù)雜，四則運(yùn)算而已。

先建立一個(gè)新的項(xiàng)目文件，里面包含一個(gè)Form1的窗體。然后，添加控件，包括一個(gè)Text框（Text1），和17個(gè)按鈕，這17個(gè)按鈕使用的名稱都是Command1，只是Index屬性不同，就好象一個(gè)數(shù)組，創(chuàng)立一組按鈕的方法是，先在窗體上建立一個(gè)按鈕（Command1），然后在Command1上擊鼠標(biāo)右鍵，選擇復(fù)制（Copy），然后在窗體上任意部位擊右鍵，選擇粘貼（Paste），系統(tǒng)會(huì)提示是否創(chuàng)建控件組，選擇“是”，重復(fù)上面步驟，直至創(chuàng)立17個(gè)按鈕為止。各控件屬性如下表：

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屬性，如果相對(duì)多個(gè)控件的共同屬性進(jìn)行改變，可以在窗體上按下鼠標(biāo)，拖動(dòng)，把多個(gè)控件一起選定，然后對(duì)它們的共同屬性進(jìn)行修改。

別看這個(gè)東西小，還費(fèi)了近我兩個(gè)小時(shí)呢，不覺大嘆手生，里面也有些地方很繞彎子，我盡量解釋清楚。

在編寫程序之前，我們先來回顧一下計(jì)算器的使用。

按下數(shù)字鍵在液晶屏上會(huì)出現(xiàn)數(shù)字，這是最基本的功能。

第一次按下運(yùn)算鍵，再按下數(shù)字鍵，將重新輸入第二個(gè)數(shù)字，再次按下運(yùn)算鍵，將算出前兩個(gè)數(shù)的結(jié)果，然后按下數(shù)字鍵，將又重新輸入新的數(shù)字。

輸入數(shù)字后，按下“等于鍵”將仍輸出原來的數(shù)字，輸入運(yùn)算符和第二個(gè)數(shù)字后在按下“等于”，將得到二者的結(jié)果。然后又重復(fù)第二、三步。

按下“清除”，數(shù)據(jù)被全部清除。

了解了這些，我們一步一步實(shí)現(xiàn)。先實(shí)現(xiàn)數(shù)據(jù)的輸入，請(qǐng)看代碼。與未創(chuàng)立組的控件相比，它的事件里多了Index參數(shù)，組里所有的對(duì)象都使用同一個(gè)事件。先在General里聲明窗體級(jí)全局變量： Dim Num1, Num2 As Single Dim StrNum1, StrNum2 As String Dim FirstNum As Boolean '判斷是否是數(shù)字開頭

因?yàn)門ext1里是存放字符串的，所以要把輸入的數(shù)據(jù)進(jìn)行運(yùn)算，必須把字符型變量轉(zhuǎn)變?yōu)閷?shí)型變量，分別用Num1、Num2和StrNum1、StrNum2進(jìn)行存放。在Form_Load事件里給變量初賦值：

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

因?yàn)?7個(gè)按鈕使用的是同一事件，所以我們用一個(gè)Select Case語句區(qū)分各個(gè)按鈕，雙擊任意按鈕輸入代碼：

Private Sub Command1_Click(Index As Integer)

Select Case Index

Case 0 To 9

If FirstNum Then

StrNum1 = Str(Index)’實(shí)型轉(zhuǎn)字符型 FirstNum = False’初賦值為假

Else’非初賦值

StrNum1 = StrNum1 + Str(Index)

End If

Text1.Text = StrNum1’顯示

<還有其他語句，等待插入>

End Select

End Sub

運(yùn)行程序的話已經(jīng)可以輸入數(shù)據(jù)，下面我們來處理小數(shù)點(diǎn)。在General里聲明新的變量：

Dim PointFlag As Boolean '判斷是否已有小數(shù)點(diǎn)

我們知道小數(shù)點(diǎn)只能輸入一次，一個(gè)數(shù)據(jù)中不能有多個(gè)小數(shù)點(diǎn)存在，所以需要一個(gè)布爾變量做判斷。

在Form_Load里進(jìn)行初賦值：

PointFlag = False

在Command的單擊事件里接著上面輸入新的代碼：

Case 10

If Not PointFlag Then’如果沒有小數(shù)點(diǎn)

If FirstNum Then’如果是第一個(gè)字符

StrNum1 = ”0.“ FirstNum = False Else

StrNum1 = StrNum1 + ”.“

End If

Else’已有小數(shù)點(diǎn)

Exit Sub’則退出單擊事件

End If

PointFlag = True Text1.Text = StrNum1

下面會(huì)復(fù)雜一些，我們先跳過等號(hào)，而來處理四則運(yùn)算：

先在General里聲明新變量：

Dim Runsign As Integer '儲(chǔ)存運(yùn)算符號(hào)

Dim SignFlag As Boolean '判斷是否已有運(yùn)算符號(hào)

然后在Form_Load中進(jìn)行初賦值：

Runsign = 0 SignFlag = False

在接下的Command1_Click中繼續(xù)輸入代碼：

Case 12 To 15

FirstNum = True’使下一次可以輸入新數(shù)據(jù) PointFlag = False '還原標(biāo)記值

If SignFlag Then’前面已有運(yùn)算符未運(yùn)算

Call Run Else

SignFlag = True StrNum2 = StrNum1’把字符串1復(fù)制給字符串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

里面又用到了一個(gè)ClearData過程，實(shí)際上就是Form_Load里的變量初賦值，代碼如下：

Sub ClearData()

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

End Sub

這樣完整的程序就完成了，本章介紹了VB的第一個(gè)控件――按鈕，并且舉例，希望你繼續(xù)看下一章――菜單。

下面給出完整的程序代碼：

Dim Num1, Num2 As Single

Dim StrNum1, StrNum2 As String

Dim FirstNum As Boolean '判斷是否是數(shù)字開頭

Dim PointFlag As Boolean '判斷是否已有小數(shù)點(diǎn)

Dim Runsign As Integer '儲(chǔ)存運(yùn)算符號(hào)

Dim SignFlag As Boolean '判斷是否已有運(yùn)算符號(hào)

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

'重疊三個(gè)圖片框

Picture2.Left = Picture1.Left

Picture2.Top = Picture1.Top

Picture3.Left = Picture1.Left

Picture3.Top = Picture1.Top

End Sub

下面我來講一講程序是怎樣運(yùn)行的，我們將用到Text的Change事件，每當(dāng)字符串改變一次就對(duì)它進(jìn)行一次檢查，算出已經(jīng)說的字?jǐn)?shù)，當(dāng)字?jǐn)?shù)超過10時(shí)，下面的紅綠燈會(huì)變成黃色，并且在這時(shí)隨機(jī)抽取一個(gè)數(shù)，它在一個(gè)范圍內(nèi)出現(xiàn)的可能是10%，如果在這個(gè)范圍內(nèi)就可以免交罰金，如果不在范圍則繼續(xù)，當(dāng)文字超過20的時(shí)候，紅綠燈會(huì)變成紅色，再一次抽取隨機(jī)數(shù)字，步驟同上，如果30個(gè)字已滿，再進(jìn)行一次檢查，如果你真的那么不幸就該罰款了。

程序的步驟清楚了，我們?cè)趤砜纯闯绦虻囊c(diǎn)。由于中文是雙字節(jié)字符，也就是說一個(gè)漢字占兩個(gè)ASC碼的位置，而VB顯然是為英語國家設(shè)計(jì)的用Len函數(shù)無法返回漢字字節(jié)，也就是說一個(gè)漢字和和一個(gè)ASC字符在Len函數(shù)中得到的值是一樣的，這就需要特殊處理。用Asc（）函數(shù)，在括號(hào)內(nèi)放入一個(gè)ASC字符或字符串，它會(huì)把第一個(gè)ASC碼轉(zhuǎn)化為0－255的數(shù)值，而把一個(gè)漢字放入，它的值必然不在0－255，這也就可以作為判定漢字的基礎(chǔ)。我們可以把英文算作半個(gè)漢字。

下面我們來看看代碼：

在General 里聲明窗體級(jí)變量：

Dim Level As Integer

Private Sub Command1_Click()

Unload Me End Sub

Private Sub Text1_Change()

Dim StrLength As Integer’字符串長度

Dim RandomNum As Single’隨機(jī)數(shù)

Dim Str1 As String

Dim a As String

Dim i, Temp

StrLength = 0’每次開始時(shí)把字符串長度還原為0

a = Text1.Text

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

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

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)& ”個(gè)字可以說“

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 = ”很抱歉這是個(gè)誤會(huì)??“

Command1.Visible = True

Command1.Caption = ”您可以離開了“

End If

Level = 3 Else

Picture1.Visible = False

Picture2.Visible = False

Picture3.Visible = True

Str1 = ”我已經(jīng)不耐煩了！“

Label2.Caption = Str1 & ”你還有“ & Str(30-StrLength)& ”個(gè)字可以說“

End If

Case Else

Text1.Enabled = False

Label2.Caption = ”你已經(jīng)沒有機(jī)會(huì)了！“

Command1.Visible = True

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

End Select

End Sub

中間有幾個(gè)函數(shù)需要解釋一下：

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

Mid(字符串,從第幾個(gè)字符開始,取字符的長度)

Asc可以把字符轉(zhuǎn)換為ASCII碼，格式：

Asc(字符串)

Rnd，取得大于0但小于1 的數(shù)值，可以沒有參數(shù)。

怎么樣，十分簡單吧，我們將在下一次繼續(xù)討論VB的輸入機(jī)制，再見！

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

在繼續(xù)上面的內(nèi)容時(shí)，我想再回顧和強(qiáng)調(diào)幾個(gè)在字符串操作中經(jīng)常函數(shù)：

先是幾個(gè)已經(jīng)接觸過的，Mid()，Asc()，Len()，它們的語法分別是：

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

返回子字符串，如果從字符串的第一個(gè)字符取起，起始字符為1，依此類推。

Asc(字符型)

返回?cái)?shù)值，如果參數(shù)不是一個(gè)字符，而是字符串（多個(gè)字符），將返回參數(shù)的第一個(gè)字符ASCII值。

Len(字符型)

返回字符串的長度。下面我再為你解釋幾個(gè)新的函數(shù)：

Left(字符串，長度)

將返回字符型，從字符串的第一個(gè)字符向左取字符串，與之相對(duì)應(yīng)的是Right()，它將從字符串的最后一個(gè)字符向右取字符串。

Chr(數(shù)值型)

該數(shù)值范圍從0－255，返回字符型，如Chr(65)可返回字符“A”，這樣可以輸入一些用鍵盤無法輸入的字符。

Str(數(shù)值型)

該函數(shù)把數(shù)值型轉(zhuǎn)換為字符型，也許你覺得數(shù)值“123”和字符串“123”沒什么區(qū)別，但在內(nèi)存中一個(gè)ASCII字符是占一個(gè)字節(jié)，也就是說字符串“123”占3個(gè)字節(jié)，而當(dāng)數(shù)值“123”是整型時(shí)，它占兩個(gè)字符，當(dāng)它是長整型時(shí)，占4個(gè)字節(jié)。與之向?qū)?yīng)的是Val(數(shù)值型)，它把數(shù)值型轉(zhuǎn)換為字符型。

上面的函數(shù)都是以后要經(jīng)常用到的，請(qǐng)將它們熟悉。

上次講到文本框的用處，還有意思嗎？你是否能把上次的程序稍稍變動(dòng)一下，來計(jì)算出輸入的單詞數(shù)，提示一下，單詞與單詞之間是用空格分隔開的。

我們繼續(xù)下面的內(nèi)容。

上次說到，輸入不僅僅是向文本框輸入字符，凡是從外界向程序傳遞數(shù)據(jù)都可以叫做輸入，我們一一說明白。

無線鈕，記得我們?cè)诘谝徽轮型瓿蛇^我們的第一個(gè)程序――“Hello World！”它就是一種輸入的方法，在設(shè)計(jì)VB程序時(shí)可以通過一組這樣的無線鈕，它們之間互相排斥，也就是說，只能有一個(gè)按鈕被選中。它因?yàn)楹芟鬅o線電收音機(jī)上的按鈕因而得名無線鈕。如果要在一個(gè)窗體內(nèi)放置多組無線鈕必須用Frame控件把它們區(qū)分開來。下面我們?cè)趤硗瓿梢粋€(gè)例子，順便熟悉一下另外兩個(gè)處理字符串的函數(shù)――LTrim()和Rtrim()，它們分別用來刪除字符串左邊的空格和右邊的空格，讓我們看看它們是如何工作的。

程序窗體如圖6－8，由于窗體比較簡單，無需修改更多的屬性，一共有三個(gè)文本框（Text1到3），分別用來顯示輸入字符，顯示把空格換成星號(hào)的字符，和經(jīng)過處理的字符，還有三個(gè)無線鈕（Option1到3），要修改的只有Caption屬性，分別是“刪除左邊的空格”、“刪除右邊的空格”和“刪除兩邊的空格”。因?yàn)榭崭裨谖覀冊(cè)谖谋究蛑袩o法看到空格，所以我們通過一個(gè)稱作AddStar的函數(shù)把原有字符串中的空格轉(zhuǎn)換為星號(hào)，使我們能夠看到函數(shù)的效果。下面在程序中添加代碼，首先在General中聲明窗體級(jí)變量：

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

Dim LRTrimmedword$ '刪除兩邊空格后的字符串

然后，我們通過一個(gè)叫做addstar的函數(shù)為字符串加上星號(hào)，以前曾說過函數(shù)與過程的分別，函數(shù)會(huì)返回一個(gè)函數(shù)值，所以addstar也就相當(dāng)于一個(gè)變量，其實(shí)這很好理解，就象中學(xué)代數(shù)中的函數(shù)，函數(shù)就相當(dāng)于變量Y，而函數(shù)中的參數(shù)則相當(dāng)于自變量X，當(dāng)然可能有很多自變量X1、X2??請(qǐng)?jiān)?，我并不想在這里上數(shù)學(xué)課，因?yàn)槲覅拹耗峭嬉鈨?，特別是上了大學(xué)之后，好在大二以后就再也不會(huì)有數(shù)學(xué)課了，哈哈??

Function addstar(tempword As String)As String

Dim charindex% Dim pasteword$ '加星號(hào)后的字符串 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 '返回函數(shù)值

End Function

下面的代碼很簡單，并且我為它做了注釋，就不再一一解釋了，我只想簡要的提幾句，Ltrim和Rtrim只有一個(gè)參數(shù)（字符型），另外下面用到了焦點(diǎn)事件，我們?cè)诘谌轮薪榻B過，當(dāng)Text1得到焦點(diǎn)（GotFocus）時(shí)，清空所有的文本框，當(dāng)它失去焦點(diǎn)（LostFocus）時(shí)，對(duì)字符進(jìn)行addstar并且在Text2中顯示。

Private Sub Text1_GotFocus()'但焦點(diǎn)于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

最后結(jié)果如圖6－9。

與無線鈕相對(duì)的是檢查框，在同一范圍內(nèi)一組無線鈕只能有一個(gè)被選中，而檢查框則可以有多個(gè)選擇，就象在添表時(shí)，性別那項(xiàng)只能有一個(gè)選擇，而在描述你以前的職業(yè)時(shí)可以有學(xué)生、程序員、家庭教師或者什么，總之有很多選擇，下面我們舉一個(gè)簡單的例子加以說明。

假設(shè)編寫了一個(gè)共享軟件，在讓用戶注冊(cè)的時(shí)候你想知道你的用戶使用的計(jì)算機(jī)情況，你就需要一個(gè)調(diào)查表，為了使這個(gè)調(diào)查表不止枯燥，可以在這個(gè)程序中加入一些圖形。新建一個(gè)項(xiàng)目文件，窗體布局如圖6－10。

程序很簡單，一共有兩個(gè)框架（Frame1和Frame2），它們的Caption分別為“選擇你的計(jì)算機(jī)擁有的配置”和“這是你的計(jì)算機(jī)系統(tǒng)”，在Frame1有四個(gè)檢查框（Check1到Check4），Caption分別為“網(wǎng)絡(luò)系統(tǒng)”、“鼠標(biāo)”、“密碼保護(hù)”和“電子郵件”，另把Check4的Enabled屬性改為False，使其無效；在Frame2中放置四個(gè)圖片框（Picture1到Picture4）與四個(gè)檢查框向?qū)?yīng)，請(qǐng)把所有圖片框的BorderStyle屬性設(shè)為0（無邊框），它們的Picture屬性請(qǐng)根據(jù)上圖，在存放圖標(biāo)的目錄中找到相對(duì)的圖標(biāo)。下面是程序代碼：

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

這個(gè)程序比我們見過的任何程序都簡單，就不再做說明。

（第六章 未完）

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

首先，我想先對(duì)第六章的拖拖拉拉表示歉意，一是因?yàn)樗鼘?shí)在太長了，二也是因?yàn)槲易约禾珣辛耍裉鞂憥讉€(gè)字，明天添兩筆，以致于寫了三次才將它真正完成，還請(qǐng)大家原諒。

好，廢話少說，讓我們趕快切入正題。上次我們討論了無線鈕和檢查框的使用方法，相信你已經(jīng)熟悉，因?yàn)樗鼈儗?shí)在太簡單了，現(xiàn)在讓我們繼續(xù)“輸入”的最后幾個(gè)部分。

滾動(dòng)條（ScrollBar）在視窗中也是一個(gè)不可缺少的部分，由于面積所限，我們不得把屏幕上的內(nèi)容滾來滾去，以顯示大量的內(nèi)容，這就是我們經(jīng)常要用到的滾動(dòng)條。但滾動(dòng)條除去滾動(dòng)窗口，還有一個(gè)很重要的作用――輸入，想想你經(jīng)常用到的一些家用電器上調(diào)節(jié)聲音或別的什么東西的滑塊，你把它滑向大的一方音量就會(huì)增大，而你把它滑向小的一方音量就會(huì)減小，或者一個(gè)控制左右兩個(gè)音箱的均衡器，當(dāng)滑塊在正中央的時(shí)候，兩個(gè)音箱的音量是相同的，當(dāng)你把滑塊偏向一方時(shí)，音箱的音量有了大小之分，在Windows操作中，我們也經(jīng)常要用到類似的效果。

在VB中提供了兩個(gè)常規(guī)的滾動(dòng)條控件――Vscroll和Hscroll，分別代表垂直的和水平的滾動(dòng)條，它們只不過是方向不同而已，而它們的屬性，以及會(huì)發(fā)生的事件都是相同的。，滾動(dòng)條有幾個(gè)特殊的屬性：

Value屬性，當(dāng)滑塊挪動(dòng)后停在某一位置時(shí)，就改變了滾動(dòng)條的Value屬性。

Max和Min屬性，用來設(shè)置滾動(dòng)條的最大值和最小值，譬如把Max設(shè)為100，把Min設(shè)為0時(shí)，滾動(dòng)條的Value就在0到100之間移動(dòng)，當(dāng)Max和Min倒置時(shí)，滾動(dòng)條的方向也會(huì)相反，也就是說，當(dāng)Max

SmallChange和LargeChange屬性，當(dāng)鼠標(biāo)在滾動(dòng)條兩頭的箭頭上單擊時(shí)，就會(huì)把滾動(dòng)條向相應(yīng)的方向挪動(dòng)一點(diǎn)，這時(shí)用到的就是SmallChange屬性，當(dāng)你把它設(shè)為1時(shí)，每點(diǎn)一下，滾動(dòng)條的Value就改變1；當(dāng)鼠標(biāo)在滾動(dòng)條上點(diǎn)擊時(shí)，用到的就是LargeChange，當(dāng)設(shè)為10時(shí)，每點(diǎn)擊一下滾動(dòng)條，Value就改變10。

下面我們看一個(gè)實(shí)例。

大家都知道，物體之所以會(huì)有顏色是因?yàn)槲矬w表面的材料吸收了太陽光中的部分色光，而還有部分色光沒被吸收而被反射回來，它就成了我們看到的顏色，黑色就是物體吸收了所有的太陽光的所有色光，沒有反射顏色，所以在我們看來是黑的，而當(dāng)物體反射了所有的色光，我們看到的就是白色。在計(jì)算機(jī)中，顏色的表示就是象我們剛才描述的樣子，它把顏色分為紅（R）、綠（G）和藍(lán)（B）。眾所周知，計(jì)算機(jī)的機(jī)器語言是使用二進(jìn)制表示的，為了方便查閱我們看到的往往是十六進(jìn)制代碼，一個(gè)字節(jié)包括兩位十六進(jìn)制數(shù)字，從0－255（十六進(jìn)制表示0－FF），而一個(gè)字節(jié)是由八位二進(jìn)制數(shù)值表示（2^8，2的8次方），計(jì)算機(jī)中用分別用一個(gè)字節(jié)，也就是八位表示一種顏色，和在一起也就是三個(gè)字節(jié)（24位）表示所有的顏色，這就是我們平時(shí)常說的24位真彩，它一共可以組成256×256×256（2^24）種顏色，對(duì)于我們的肉眼，是根本分辨不出來相鄰兩個(gè)不同的顏色的，比如用FFFFFF表示白色，就好象我們剛才說的物體反射了所有的色光，相反的可以用000000表示黑色，它吸收了所有的色光，還可以用FF0000表示紅色，在HTML語言中就是這樣表示顏色的。

小知識(shí)：現(xiàn)在你可以根據(jù)你的顯卡的顯存來計(jì)算一下顯卡在24位真彩下可以以多大的分辨率顯示，計(jì)算是這樣的，用顯存的字節(jié)數(shù)÷3（24位色）＝顯示器寬的象素?cái)?shù)×顯示器高的象素?cái)?shù)，寬的象素?cái)?shù)：高的象素?cái)?shù)＝4：3，比如4兆顯存，就應(yīng)該是4×1024×1024÷3＝1365×1024。

在下面的小程序中，我們通過三個(gè)滾動(dòng)條分別代表R、G、B，滾動(dòng)滾動(dòng)條，將在右邊的圖片框中顯示相應(yīng)的顏色，并且在下面的文本框中顯示顏色的十六進(jìn)制數(shù)值。

現(xiàn)在，新建一個(gè)項(xiàng)目文件，在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 “藍(lán)：”

Label Name Label2

Caption “顏色值”

TextBox Name Text1

Text “”

PictureBox Name Picuture1

為了把十進(jìn)制數(shù)值換成十六進(jìn)制數(shù)值，要使用一個(gè)叫做Hex（）的函數(shù)，它把十進(jìn)制數(shù)值轉(zhuǎn)化為十六進(jìn)制的字符，但對(duì)于只有一位的十六進(jìn)制字符，這個(gè)函數(shù)并不在高位補(bǔ)零，為了視覺上的正確，我設(shè)計(jì)了一個(gè)小函數(shù)幫助它給一位的十六進(jìn)制字符補(bǔ)零.程序代碼很簡單，見下：

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

Dim RedNum, GreenNum, BlueNum As Integer’RGB的數(shù)值

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’補(bǔ)零

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函數(shù)返回顏色值

End Sub

Private Sub HScroll1_Change(Index As Integer)

‘當(dāng)滾動(dòng)條被改變時(shí)

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

End Sub

運(yùn)行如圖6－13。

列表框（ListBox）和復(fù)合列表框（ComboBox）也是我們經(jīng)常見到的視窗元素，我們從它所列示的條目中選出所需的，兩種列表框只是在外觀上略有不同，但從本質(zhì)和操作方法來說它們是很相象的，它們也有一些特殊的屬性：

List屬性，你可以利于該屬性象列表框或復(fù)合列表框中添加條目，但也可以在程序設(shè)計(jì)中通過AddItem方法添加。