當前位置:首頁 » 編程軟體 » 小麻雀編程

小麻雀編程

發布時間: 2022-04-13 21:47:59

『壹』 小學生應該閱讀哪些經典書籍

快樂語文讀本,新語文讀本,科普類的,比方說「小學生科學認知趣問妙答」、畫說最有趣的為什麼、我們的身體等,還有抱抱叢書和看看叢書,要是喜歡動物的話,沈石溪的動物小說,還有,現在一些信誼世界精選圖畫書,雖然適合小一點的孩子,3年級的孩子看有些小了,但都是挺經典的圖畫書。如果說作家的話,林格倫,凱斯特那,達爾、涅斯特林格,張天翼、嚴文井、孫幼軍等的童話都是挺好看的。還有小淘氣尼古拉。小水精等三小系列。另外紐伯瑞獎作品,國際大獎作品系列、安徒生獎獲獎作家系列,裡面都有不少好作品,可以挑孩子自己喜歡的。
巨眼叢書,真想與想像,動手動腦小機靈
尼亞王國、凡爾納的科幻小說、藍熊船長、上下五千年、少年史記
《藍熊船長的13條半命》和《來自矮人國的小兄妹》

西頓的動物故事,米切爾.恩德,托芙.揚松,鮑姆《綠野仙蹤》,《沃特希普荒原》,袁珂《中國神話》,霍桑《神奇的故事》,房龍《人類的故事》,科夫曼《人類的故事
給孩子們的》,林漢達的歷史故事,《昆蟲記》(選本即可),《所羅門王的指環》,比安基《森林報》,《西遊記》,《騎鵝旅行記》,豪夫童話,王爾德童話,冒險家與發現者系列中的《追蹤亞瑟王的腳印》《追蹤耶穌的腳印》等,四個半朋友,哈爾羅傑歷險記,阿嚏系列,小木屋系列,麥嘜麥兜系列,杜里特醫生的故事,《晴天,有時下豬》,《誰也不知道的小小國》,《小毛驢與我》,《小約翰》,《小怪物六六》。另有一套從法國引進的《寫給孩子的哲學啟蒙書》,紫橙藍色三卷,寫得很好看,三年級的孩子完全可以讀了。
如果是女孩子的話,也許還會喜歡阿保美代的漫畫《阿保的童話》《夏日的魔法》《十月的笛》和《找不到的心》,很唯美,頗有些意境。蘭格侖的漫畫也好看。
中國科普名家名作系列——李毓佩數學故事專輯(全3冊)
窗邊的小豆豆
i07314
南海出版
20.0
0.8
16.0
1
16.0
狄得夫小子--性教育讀本
i08526
中國少年
稀奇古怪小朱迪系列(4冊)
i08530
接力出版
國際大獎小說(注音版)--親愛的漢修先生
國際大獎小說(注音版)--波普先生的企鵝
父與子全集(精)
i09640
譯林出版
小淘氣尼古拉的故事5冊
i09967
中國少年
2004年紐伯瑞金獎——浪漫鼠德佩羅
12.2(第二批)
特別的女生薩哈拉——一個孩子的特別成長經歷
大林和小林——張天翼長篇童話系列
寶葫蘆的秘密——張天翼長篇童話系列
禿禿大王——張天翼長篇童話系列
瑪蒂娜和小麻雀
瑪蒂娜舞裙的故事
瑪蒂娜學音樂
瑪蒂娜鄰家探險
瑪蒂娜生日禮物
瑪蒂娜搬家
沒頭腦和不高興
小女巫——彩烏鴉系列
小水精——彩烏鴉系列
小幽靈——彩烏鴉系列
草房子——曹文軒純美小說系列
林漢達中國歷史故事集

『貳』 仿寫《鳥兒偵查報告》

貓頭鷹露宿街頭

我來到一棟大樓下歇腳,發現一隻貓頭鷹蜷縮在角落裡。我覺得非常奇怪。
我皺著眉,問:「貓頭鷹大哥,你不去休息,在這兒干什麼?晚上還要捉老鼠呢!」
貓頭鷹抬頭望瞭望我,有氣無力而右傷心悲憤地說:「這里原本是一片茂密的樹林,我們鳥兒的樂園。河水清澈見底,樹木高聳入雲。可人類來到了這里,大量砍伐樹木,嚴重污染河水;在這了建起了許多工廠,大樓。讓我們真不知去哪兒好啊!」
據說,這種事已經不是第一回了呢!我想,百靈鳥姐姐和八哥弟弟的遭遇也差不多吧。
貓頭鷹真可憐。我們真是太自私了,為了自己更好的生活,讓鳥兒們無家可歸,一點不顧它們的感受。

偵察報告之二

悲劇再次發生
我剛准備起飛,大「霧」就迷了我的眼睛,我又停了下來。
一轉頭,只見貓頭鷹已口吐鮮血白眼正直,倒死地上。
我頓時傻了眼:「這是怎麼啦!?」
小麻雀嗚咽著說:「它,它,它幾天沒吃東西,見有隻老鼠死在面、面前,便狼吞虎咽起來… …」
「 那有什麼問題?」我疑惑極了。
「那老鼠是吃過鼠葯的!」小麻雀哭得更厲害了,「嗯嗯,哇… …」
唉,發生這樣的事,真不應該。本來用葯是為了除「害」,沒想到連我們的益鳥朋友也受到了牽連。
難道讓鳥兒們無家可歸還不夠嗎?為什麼非要把它們「趕盡殺絕「?

鳥兒的偵查報告(仿寫)
我有一隻可愛的鳥兒,它能飛遍各地,向我報告各種消息。

有一次告訴我的鳥兒,請你先去看看你的好朋友小麋鹿吧!

「好!明白了」,我的鳥兒出發了。下面就是我的鳥兒的偵查報告:

偵查報告之四

麋鹿媽媽在哭泣

真怪,麋鹿媽媽不去森林跑,為什麼會在角落泣,原來小麋鹿突然死了!

「這樣的不幸是怎麼發生的呢」?我關心的問。「剛才還好好的。麋鹿媽媽嗚咽著,吃了一些小嫩葉,和樹皮,它就一下子倒下去,不一會就死了!」據說:「小麋鹿吃了被打過濃葯的葉子和樹皮,發生食物中毒而死亡,這可不是第一次了」。

呀!好可憐,以後可要提醒其它的動物注意,學會分辨有毒的樹葉。

『叄』 怎樣養麻雀

去花鳥市場買些麵包蟲回來,給它們餵食。

『肆』 如何培養孩子的邏輯思維能力,如何培養孩子的

培養孩子的邏輯思維能力很重要,那麼從何入手呢?兒童心理學家及兒童教育學家根據兒童生長發育的特點,提出應從以下幾方面進行培養。 1.學習分類法即把日常生活中的一些東西根據某些相同點將其歸為一類,如根據顏色、形狀、用途等。父母應注意引導孩子尋找歸類的根據,即事物的相同點。從而使孩子注意事物的細節,增強其觀察能力。 2.認識大群體與小群體首先,應教給孩子一些有關群體的名稱,如傢具、動物食品等。使孩子明白,每一個群體都有一定的組成部分。同時,還應讓孩子了解,大群體包含許多小群體,小群體組合成了大群體。如動物———鳥———麻雀。 3.了解順序的概念這種學習有助於孩子今後的閱讀,這是訓練孩子邏輯思維的重要途徑。這些順序可以是從最大到最小、從最硬到最軟、從濃到淡等,也可以反過來排列。 4.建立時間概念幼兒的時間觀念很模糊,掌握一些表示時間的詞語,理解其含義,對孩子來說,無疑是必要的。當孩子真正清楚了「在……之前」、「立即」或「馬上」等詞語的含義後,孩子也許會更規矩些。 5.理解基本的數字概念不少學齡前兒童,有的甚至在兩三歲時,就能從1「數」到10,甚至更多。與其說是在「數數」,不如說是在「背數」。父母在孩子數數時,不能操之過急,應多點耐心。讓孩子從一邊口裡有聲,一邊用手摸摸物品,逐漸過渡到用眼睛「默數」。日常生活中,能夠用數字准確表達的概念,父母們應盡量講得准確。同時,還應注意使用「首先」、「其次」、「第三」等序數詞。也可用日常生活中的數字關系,幫助孩子掌握一些增加減少的概念。

『伍』 求昆蟲記閱讀筆記(好詞、好句、概括、閱讀心得)

白蝴蝶每年要成熟兩次。一次是在四五月里,一次是在十月,這正是我們這里捲心菜成熟的時候。白蝴蝶的日歷恰巧和園丁的日歷一樣。當我們有捲心菜吃的時候,白蝴蝶也快要出來了。
白蝴蝶的卵是淡橘黃色的,聚成一片,有時候產在葉子朝陽的一面,有時候產在葉子背著陽光的一面。大約一星期後,卵就變成了毛蟲,毛蟲出來後第一件事就是把這卵殼吃掉。我不止一次看到幼蟲自己會把卵殼吃掉,不知道這是什麼意思。我的推測是這樣的:捲心菜的葉片上有蠟,滑得很,為了要使自己走路的時候不至於滑倒,它必須弄一些細絲來攀纏住自己的腳,而要做出絲來,需要一種特殊的食物。所以它要把卵殼吃掉,因為那是一種和絲性質相似的物質,在這初生的小蟲胃裡,它比較容易轉化成小蟲所需要的絲。
不久,小蟲就要嘗嘗綠色植物了。捲心菜的災難也就此開始了。它們的胃口多好啊!我從一顆最大的捲心菜上采來一大把葉子去喂我養在實驗室的一群幼蟲,可是兩個小時後,除了葉子中央粗大的葉脈之外,已經什麼都不剩了。照這樣的速度吃起來,這一片捲心菜田沒多少日子就會被吃完了。
這些貪吃的小毛蟲,除了偶爾有一些伸胳膊挪腿的休息動作外,什麼都不做,就知道吃。當幾只毛蟲並排地在一起吃葉子的時候,你有時候可以看見它們的頭一起活潑地抬起來,又一起活潑地低下去。就這樣一次一次重復著做,動作非常整齊,好像普魯士士兵在操練一樣。我不知道它們這種動作是什麼含義,是表示它們在必要的時候有作戰能力呢,還是表示它們在陽光下吃食物很快樂?總之,在它們成為極肥的毛蟲之前,這是它們唯一的練習。
吃了整整一個月之後,它們終於吃夠了。於是就開始往各個方向爬。一面爬,一面把前身仰起,作出在空中探索的樣子,似乎是在做伸展運動,為了幫助消化和吸收吧。現在氣候已經開始轉冷了,所以我把我的毛蟲客人們都安置在花房裡,讓花房的門開著。可是,令我驚訝的是,有一天我發現,這群毛蟲都不見了。
後來我在附近各處的牆腳下發現了它們。那裡離花房差不多有三十碼的距離。它們都棲在屋檐下,那裡可以作為它們冬季的居所了。捲心菜的毛蟲長得非常壯實健康,應該不十分怕冷。
就在這居所里,它們織起繭子,變成蛹。來年春天,就有蛾從這里飛出來了。
聽著這捲心菜毛蟲的故事,我們也許會感到非常有趣。可是如果我們任憑它大量繁殖,那麼我們很快就會沒有捲心菜吃了。所以當我們聽說有一種昆蟲,專門獵取卷心萊毛蟲,我們並不感到痛惜。因為這樣可以使它們不至於繁殖得太快。如果捲心菜毛蟲是我們的敵人,那麼那種捲心菜的敵人就是我們的朋友了。但它們長得那樣細小,又都喜歡埋頭默默無聞地工作,使得園丁們非但不認識它,甚至連聽都沒聽說過它,即使他偶然看到它在它所保護的植物周圍徘徊,他也決不會注意它,更不會想到它對自己會有那麼大的貢獻。
我現在要給這小小的侏儒們一些應得的獎賞。
因為它長得細小,所以科學家們稱它為"小侏儒",那麼讓我也這么稱呼它吧,我實在不知道它還有什麼別的好聽一點的名字。
它是怎樣工作的呢?讓我們來看看吧。春季,如果我們走到菜園里去,一定可以看見,在牆上或籬笆腳下的枯草上,有許多黃色的小繭子,聚集成一堆一堆的,每堆有一個榛仁那麼大。每一堆的旁邊都有一條毛蟲,有時候是死的,看上去大都很不完整,這些小繭子就是"小侏儒"的工作成果,它們是吃了可憐的毛蟲之後才長大的,那些毛蟲的殘屍,也是"小侏儒"們剝下的。
這種"小侏儒"比幼蟲還要小。當捲心菜毛蟲在菜上產下橘黃色的卵後,"小侏儒"的蛾就立刻趕去,靠著自己堅硬的鋼毛的幫助,把自己的卵產在捲心菜毛蟲的卵膜表面上。一隻毛蟲的卵里,往往可以有好幾個"小侏儒",跑去產卵。照它們卵的大小來看,一隻毛蟲差不多相當於六十五隻"小侏儒"。
當這毛蟲長大後,它似乎並不感到痛苦。它照常吃著菜葉,照常出去游歷,尋找適宜做繭子的場所。它甚至還能開展工作,但是它顯得非常萎靡、非常無力,經常無精打彩的,漸漸地消瘦下去,最後,終於死去。那是當然的,有那麼一大群"小侏儒"在它身上吸血呢!毛蟲們盡職地活著,直到身體里的"小侏儒"准備出來的時候。它們從毛蟲的身體里出來後就開始織繭,最後,變成蛾,破繭而出。
只有昆蟲記的,希望能幫到你。

『陸』 誰有超雷超囧的爆笑話(來得越多越好)

有一天,兩只麻雀坐在一棵樹上吹牛大麻雀對小麻雀說:」我可厲害了什麼動作我都可以做得出來像俯沖啊盤旋呀,什麼高難度的動作我不會呀?「

小麻雀很是不服氣,可一時又找不出什麼好的法子要難為它.恰好樹下有一個女屠夫正在切肉,於是小麻雀就對大麻雀說:你不是厲害嗎?那你有本事飛下去從屠夫手中弄塊肉上來嗎?

大麻雀笑笑說小KS,於是一個俯沖飛到桌上叼了一塊肉就要飛上樹,可一下子被屠夫抓了個正著.屠夫非常生氣便一根一根地拔大麻雀的毛,大麻雀只呼HELP,小麻雀實在看不過去了,一下子飛下去沖著屠夫的手就咬了一口,屠夫手一疼便把大麻雀放了.

大麻雀拚命飛上樹來,小麻雀說:這下不吹牛了吧?要不是我救你,你早活不成了.可大麻雀說:誰要你救我呀?我正准備脫光了衣服跟他干呢。

某日縣長請客吃早餐道:今天請大家吃油條加稀飯,諸位別客氣。服務員道:稀飯要大碗小碗?縣長道:我請客,當然每人來碗大份(糞)。

婦人在公園里一張長椅上坐下,四顧無人,便把腿伸直放在椅上松馳一下。

過了一會,一個乞丐走到她面前說道:「相好的,一起散步如何?」
「你好大的膽子,」婦人說,「我可不是那種勾三搭四的女人!」
「那麼,」乞丐說,「你在我床上干什麼?」

飛機馬上就開
一群剛上飛機的乘客被工作人員請了下來,原因是飛機部件壞了,需要修理。一會兒,這個工作人員又來告訴乘客,可以登機了,飛機馬上就開,乘客們奇怪的問:「修得這么快?」工作人員說:「沒有修,只不過換了個敢開這架飛機的駕駛員。」

忘了開門
我曾在英格蘭康布里一家小銀行里做事,這家銀行即使最忙
的時候也沒有幾個顧客,有一天一個人也沒來過,到了下午三點半
時,經理叫一個雇員去關上前門,過了一會兒雇員又回來了,「很抱
歉,先生。」他局促不安地說,「門是關著的,今早上我忘記開了。」

燒豬毛
某公司規定,上班時間禁止抽煙。一日,小王煙隱上了,看四周無人,忙點上了一支,正抽得帶勁,聽見有腳步聲,他隨手把煙夾在耳朵上,假裝看報。同事小陳向他走了過來。小王嗅了嗅,說:「小陳,你聞到沒有,好像有燒豬毛的味道」,小陳定睛一看,方才大悟!

六個指頭的天使
給教堂畫壁畫的畫家把小天使畫成了六個指頭。

「您什麼時候見過六個指頭的天使?」牧師氣憤地說。
「沒見過,」畫家回答,「但是您見過五個指頭的天使嗎?」

2. 兩個日本人討論地鐵擁擠。一個說:「太擠了,我太太上星期被擠流產了!」另一個說:「這算什麼,上個月我太太被擠懷孕了!!」

3. 森林裡的小動物在聊天。
猴子說道:「大象放屁——打一首歌名。」
小貓說:「誰不知道啊,是古巨基的『好想好想』唄。」
這時小烏龜從旁邊爬過來說:「我還以為是陶吉吉的『當』呢……」

4. 某女偷情丈夫突然回家,*夫慌忙跳窗而逃,混入晨跑人群中,有好奇者問:干嗎不穿衣服?答曰:裸奔!沒見過?有人答:裸奔是見過,但沒見過戴套裸奔的!
5. 孩子:「媽媽,這是什麼?」
媽媽:「這是老鼠葯。」
孩子:「媽媽,我們家的老鼠生病了嗎?」
6. 兩小子走進一咖啡屋。甲說:「這環境真不錯!」乙說:「是啊,我們就在這吃我們自帶的漢堡包吧。」兩人剛要動口,服務員就過來了。「先生,對不起,我們這不能吃自帶的食品。」:「為什麼啊?」「我們這就這么規定的!」說完,兩人對換了漢堡包吃了起來。
7. 清華男生的憤怒

★ 最具震撼力的「眼球」事件
02年的夏天,一個跟我青梅竹馬長大的美女來北京找我玩,並且指名要去清華玩。在只有1輛自行車可以徵用的情況下,當時的男友就只有前邊帶著我,後邊帶 著那個美女開進了清華。 走到西操的時候,迎面來了一個gg,他最初盯我看了幾眼,還沒說什麼,當他經過我們的時候,驀地看到坐在後邊還有一mm,而且是美女,頓時,該gg兩眼圓睜 ,發自肺腑的大喝了一聲:「靠!」

哇賽,那一個「靠」,現在想來還猶在耳邊,我這輩子都沒聽過這么中氣十足的聲音……

8. 上小學一年級的女兒,第一次寫作文,題目叫《我第一次做家務》,寫的是幫媽媽洗衣服。按照老師的要求,作文寫完後要家長簽字,當編劇的爸爸看完後,提筆在下面寫了一句話:以上情節,純屬虛構。

9. 媽媽問五歲小女兒 : 你今年想要什麼生日禮物 ?
小女兒即答 : 我要一盒避孕葯!
母親即問 : ?! 你要來做什麼 ?
小女兒 : 我已經有四個洋娃娃,不想再要了。
10. 蒼蠅一家去廁所吃飯。
正吃著,小蒼蠅不滿的說:「媽媽,為什麼我們總是吃屎啊!?」
蒼蠅媽媽給了小蒼蠅一個耳光,怒道:「吃飯的時候不要說這么惡心的事!」

11. 一光棍洞房花燭夜後,新娘艱難地扶著牆出來,罵到:「騙子,他說他有三十年的積蓄,我還以為是錢呢!!」
12. 洞房真相

甲乙一對好友婚前相約喝酒。
甲說:我問過未婚妻,她紅著臉悄悄地說她的胸部像桔子。我心想桔子就桔子吧,咱長得太一般,有個桔子就夠我啃一世了。
乙說:我也問過未過門的媳婦,她紅著臉悄悄告訴我她的胸部像雞蛋。我心想雞蛋就雞蛋吧,咱家底寒酸,有個雞蛋就夠一輩子啦。
二人擇同一日成婚,次日相聚喝悶酒。
甲說:我被媳婦騙了,萬萬想不到,金桔也叫桔子。
乙說:我也吃了媳婦的啞巴虧,荷包蛋也叫雞蛋。
13. 男女朋友睡一個房間,女的劃了條線:過線的是禽獸!

醒來,發現男的真的沒過線。

女的狠狠打了男的一耳光:你連禽獸都不如!

在一個古老的山鄉,發現了一個古老的村落。由於他們世世代代和外界隔絕,宛如桃源中人,外界對他們產生了濃厚的興趣。於是一個漂亮的女記者前往這落後的山鄉,去采訪當地人。

她采訪的對象是一個50多歲的老者,知道他們世世代代與世隔絕的生活以後,女記者大為驚訝,繼而是好奇,於是她打算描寫一下他們與世隔絕生活中的喜怒哀樂。

「請問,這么多年來,您最高興的一件事情是什麼?」,好奇的女記者問。

「有一年冬天,隔壁老三家的羊丟了。」老頭說。

「羊丟了,有什麼值得高興的嗎?」女記者更好奇了。

「羊丟了以後,我們幾十個人打著火把上山去找,找了三天三夜,終於在後山的一個角落裡面找到了」,老者吸了口煙,眯縫著眼睛回味無窮的說。

「找到後怎麼了?」女記者好奇的問。

「找到的時候天已經很晚了,我門在雪堆裡面扎了帳篷休息。外面的風很大。我們感到很無聊。於是大家就輪流上那隻羊。好爽!」

女記者顯然感到有點尷尬,她想避開這個話題。於是她打斷老者的話,問有沒有其它高興的事情?

「有一年冬天,前邊老馬家的新媳婦在山裡面走丟了。」老者說。

「找到了嗎?」女記者追問。

「我們幾十個人找了三天三夜,終於在後山的角落裡找到了。於是我們按下帳篷休息。冬天的晚上的風很大。我們大家都很無聊。於是我們就輪流上老馬他家的新媳婦,別提多爽了。」老者說著敲了敲手中的旱煙袋。

女記者感到更尷尬了。她決定避開這個話題。於是她問到,在這幾十年與世隔絕的生活中究竟有沒有什麼值得悲傷的事情?

老者的臉色突變,手也開始顫抖,幾乎抓不住手中的旱煙。深陷的眼眶中滾出了兩滴渾濁的淚。嘴唇哆嗦了好幾下,他的身體也似乎在顫抖。沉默良久,他說,

。。。。

一年冬天,我丟了。。。。。。。
14.
有人養了一隻鸚鵡,十分好鬥。一天,主人把家裡的一隻小雞放到它的籠子里,鸚鵡和雞打了起來,結果雞死了,可鸚鵡一點事都沒有,還說:「這也太小看我了吧!」過了些時,主人又搞了只老鷹放到它的籠子里,結果老鷹也死了,可鸚鵡的毛都沒有了,這時它又說話了:「它媽的,老子不光膀子還真打不過!」

15. 說有個人非常的喜歡警犬。。。。有一天在報紙上看到一則消息 說出售警犬~要價10w 這個先生拿出自己積蓄以久的存款匯給那個賣狗的人 並且那人說好 3天以後會派人把狗送到那位先生家 過了3天 那個先生滿心喜悅的在家等著 這時有人按門鈴 他開門一看 一個小夥子帶著一個流浪狗站在他面前 他問道 請問您有什麼事嗎? 小夥子說 先生 我是來給您送狗的 您前段時間定的 這位先生十分詫異 這不就是只流浪狗嗎? 那裡是警犬 隨即打電話給賣狗那人 那人很小聲的告訴他 知道嗎? 它是便衣的
16. 三老鼠品嘗美日中三國的酒,喝美國的走三步倒了,喝日本的走二步倒了,喝中國二鍋頭的提了把菜刀喊「T M D,貓呢」
17. 我妻子想減肥,所以她每天都去騎馬。結果馬一個月之中瘦了四十斤。
18. 公交IC卡

幾年前的事了,那時剛實行刷卡,車到站,上來一個高挑的女子,她的IC卡可能是放在牛仔褲後 面的兜里,所以一上車就把屁股往刷卡機上一靠,「滴「的一聲後就進車箱了,這個女子後面跟著個老大娘,個不高,她就覺的奇怪,怎麼只要屁股往那玩意上一靠就能乘車了,所以她一上車就盡力掂起腳板, 使勁把屁股也往刷卡機上靠,靠了幾次也沒成功,這時,司機發話了,「大娘,你在干嗎,抓緊投幣上車啊」。大娘說:那個姑娘不是把屁股往這兒一靠就能乘車了嗎?呵呵,原來是這么回事,司機哭笑不得,只能跟他解釋,人家姑娘用的是IC卡, 但大娘不懂蝦米叫IC卡,她仍跟司機糾纏,「你這個小夥子也太不厚道了,人家漂亮姑娘跟你撅撅屁股你就讓人家進了,我老太婆跟你撅了這么多次屁股,你反到不讓我進,你到底什麼意思?」,車箱里的人都笑了起來,司機被他弄的也下不了台,只能揮揮上讓她進去.
19. 聽錯了

一個外地人拿一張50圓的票子,在售票員面前晃著:見過沒?見過沒 ?……

賣票的傻了,乾脆拿出一張100的Show了一下:你tmd見過沒?

最後才搞明白,那人是想去「建國門!」
20. 在一家時裝店,我看到一個等得不耐煩的青年人對一個漂亮女孩說:「你介意和我說幾句話嗎?」女孩好奇地問:「為什麼?」「我妻子進這個店已經一個多小時了,但她如果看見我和你說話,她會馬上出來的......」沒等他說完,他妻子已快步走出時裝店,挽著他離開了。

21. 女,喜甜食,甚胖!該女有一癖好:痛恨螞蟻,見必殺之。
問其故曰:這小東西,那麼愛吃甜食,腰還那麼細!
22. 樹上有兩只鳥,獵人舉槍打下一隻,發現是只沒毛的,正在納悶,另一隻鳥飛下來大罵獵人:MD,我剛把她扒光,你就給打下來啦!
23. 公交車上,站著的孕婦對身旁坐著的陌生男子說:你不知道我懷孕了嗎?只見男子很緊張的樣子道:可孩子不是我的呀!
24. 一人酒後如廁,回來後對同伴說:「這酒店生意就是好,連廁所里都擺了兩桌!」於是繼續喝酒。隨即,一群人沖進房間按住該人痛揍。同伴忙問其故,答曰:「這小子到我們包間隨便撒尿!」
前夫

有一對夫妻因為感情不好就離婚了。後來離婚之後,那太太就再嫁;再嫁的時候,沒

想到她的前夫很沒有風度,就到這個結婚的教堂裡面找喳——他就走到這個新郎跟新娘前

面,然後跟這個新郎講一句話說:

沒什麼了不起,都是別人用過的舊貨!

結果新郎官果然馬上臉色就變,就很不高興啊!

那新娘子呢,就很溫柔的看一看前夫,再看一看新郎,然後跟新郎講一句話說:

「沒有關系!只有前面一寸是舊的,後面通通都是新的!」
一日,aqt和wsj的在一起聊天,aqt對wsj說:老妹,你可別上班,你一上班,我就得七天沒生意。wsj一聽,對aqt說:你知足吧,你他媽要漏了,我就得十個月沒活幹了!
25.一個姑娘走進一家大公司的經理部,問:「你們要女秘書嗎?」
「我們倒很願意錄用您,小姐,可是眼下經濟危機,沒活兒干。」
「有沒有活干我倒不計較,只要有工資就行!」
26.
系裡唯一一女生來看籃球比賽。突然,MM裙子被大風吹起,外系男生大喊:「天啊,春光外泄!」系裡男生沉著臉異口同聲道:「拜託,是家醜外揚吧! 」

考官∶你有男朋友嗎?

應聘者∶有。

考官∶他在本地嗎?

應聘者∶不是,他在外地。

考官∶對不起,我公司不能用你。

應聘者∶為什麼?

考官∶你不會安心在這里長期工作的,另外,本公司也不希望因為你而使長途電話費大幅度增加。

(二)

考官∶你有女朋友嗎?

應聘者∶沒有。

考官∶你追過女孩嗎?

應聘者∶追過,可是沒追上。

考官∶你工作後准備再追女孩嗎?

先努力工作,暫時不考慮個人問題。

考官∶對不起,本公司不能用你。

應聘者∶為什麼?

考官∶你公關能力欠佳,況且缺乏自信。

(三)

考官∶你有女朋友嗎?

應聘者∶有。

考官∶她漂亮嗎?

應聘者∶不算漂亮。

考官∶對不起,我們不能用你。

應聘者∶難道女朋友不漂亮也會影響貴公司的形象?

考官∶那倒不會。不過,本公司是經營藝術品的,你的審美情趣似乎不適合本公司的業務需求。

(四)

考官∶你有女朋友嗎?

應聘者∶有。

考官∶她漂亮嗎?

應聘者∶很漂亮。

考官∶她是你的初戀嗎?

應聘者∶是的。

考官∶對不起,我們不能用你。因為你缺乏不斷追求的進取心。

(五)

考官∶你有女朋友嗎?

應聘者∶有。

考官∶她是你的初戀嗎?

應聘者∶不是,以前還談過幾個。

考官∶對不起,我們不能用你。因為你很快會跳槽的。

(六)

考官∶你有男朋友嗎?

應聘者∶有。

考官∶他很有錢嗎?

應聘者∶不是。

考官∶對不起,我們不能用你。因為你的工作要和錢打交道,我擔心你經不起誘惑。

(七)

考官∶你有男朋友嗎?

應聘者∶有。

考官∶他很有錢嗎?

應聘者∶是的,他有一家自己的公司。

考官∶對不起,你男朋友的公司都不用你,我們就更不能用你了。

應聘者∶可是,他的公司里沒有適合我的職位呀。

考官∶那你是學什麼專業的?

應聘者∶秘書。

考官∶對不起,我們還是不能用你。漂亮姑娘會影響我們經理工作的。

應聘者∶可是,我並不漂亮呀?

考官∶那就更不行了。如果你長得不漂亮,經理不會對你有興趣的
沒電只能「那個」了!
陝西有個地方,不但窮而且人口眾多。縣里派了調查組去調查為什麼人口增長這么快。
當地一村民回答:我們這里偏僻。
領導問:這和人多有什麼關系?
答曰:沒有電。
領導奇怪了:這也沒有直接的關系呀!
村民解:沒電能幹啥?

江南產什麼?
高中時快會考的時候了,有一天上地理課,老師在上面報一個地名,讓我們就在下面回答當地所出的礦產。說了很多地方以後,老師突然問了一句:「江南產什麼?」全班男生齊聲回答:「江南產美女!」

MM放屁:不能兼顧
火車上一小姐和一老太太坐在一起。小姐想放屁,憋又憋不住,就用手佯裝擦拭車窗,隨和著摩擦發出的聲響連續放了幾個屁。可是,邊兒上坐著的老太太卻對她說:「聲音倒是可以,可味兒怎麼辦?」

老師集體辭職的理由

人才中學初二(5)班所有老師集體向教務處提出了辭職申請。理由如下:

語文老師:上課的時候,有個同學在看雜志,我沒收了他的雜志敲了敲他腦袋……

可是在我轉身准備繼續上課的時候,他的同桌竟然哈哈大笑了起來,搞得課都上不下去
,我就問他,為什麼笑?你知道他是怎麼答我的?那小子從抽屜里掏出一本《辭海》,竟然這樣對我說:「老師,你還好沒發現我看書,要不就被你砸死了……」

數學老師:一個考試從來不及格的同學竟然能在交上來的作業里用到了高中的知識……我問他這作業是不是他自己做的,那個同學竟然回答我說不知道,你說說看,像話嘛,我就繼續問他,要他老實交代,到底是誰幫他做的,嘿,他還倒有理由的,回答我說:「老師,我真不知道這作業誰做的,說實話,昨天晚上我比較早睡覺……」

物理老師:你知道不知道單單一個順時針和一個逆時針我就教了幾節課?五節課啊!!

是,我也是這么對他們說的,我告訴他們如果還不明白就看看手錶,時針往哪兒走就哪兒就是順時針,反過來就是逆時針。可是,全班數過去,不是手機就是電子表…… 我不辭職我就一學期都教他們這兩個詞語啊?

體育老師:我為什麼不辭職?那幫小子竟然給我送禮物!!不,送禮物沒錯,我的意思不是說他們送禮物給我就錯了,可是他們送禮物給我就是不對。

我怎麼越說越糊塗了,這樣說吧,雖然我苗條了點,皮膚白了點,可好歹我也是個男教師對吧?可是前幾天三八婦女節的時候,那幫小子竟然送了一盒的褪毛霜給我……還……還……還對我說以後夏天別穿毛褲了,靠,那是我腿毛!

生物老師:我真的不想走啊,可是……你是知道的,我有心臟病,受不了激動,但我能不激動嗎?昨天單元考試,根據教學大綱的要求,我讓同學們看著教學圖片上的鳥腿寫出鳥的名稱,生活習性。可是我才剛說考試內容,就有個同學站了起來往門外走,嘴裡囔囔著:「靠,這種題目也有,老子不考了……」你說這樣的學生要不要教育?我叫住他,問他叫什麼名字,他竟然把褲管一拉,把腿露出來對我說:「來啊,看著我的腿寫出我的名字啊……」

美術老師:你是知道的,我才剛被分配到這個班。昨天上課的時候我才剛進門就聽到幾個同學大叫「美女」,你說氣不氣人?我是老師,他們怎麼可以這么不尊重老師呢?……是,如果只是因為他們喊我「美女」我就辭職是我不對,可是在我尋找誰喊「美女」的時候,那幾個同學又對我喊了一句:「看什麼看,不是喊你!」

歷史老師:那群學生真的沒辦法教了,上課的時候我提問題:「你們知道武則天是什麼人嗎?」第一個同學回答我說他和她不熟,第二個同學回答我說是他的一個網友,第三個同學說他有她的QQ號碼等下課了上QQ問一下……還一個同學竟然掏出手機竟然說要馬上問她!

地理老師:你自己看看這次他們的試卷吧,我國五大名山之首是趙本山,最著名的江是潘長江,我國的煤都是(黑的),我國的鐵都是(硬的),你說我還怎麼上課?

英語老師:我講到獨立結構的時候,按照教科書要求,我特意教了他們這么一個例句:「Our teacher comes into the classroom,book under arm.」(我們老師夾著本書走進了教室),可是在考試的時候,全般的同學全部翻譯成「老師進了教室,胯下夾著一本書」……

音樂老師:我在上課,示範一首歌……唱完後同學們全部鼓掌。我很高興,我在想,其他老師可能都是教學方法不對……可是他們還沒讓我想完就給了我否定的答案,他們大喊著:「老師,太棒了,你是所有老師里口技最好的,我們第一次聽到這么像的鴨叫!」

化學老師:我?你在問我?我還沒上課呢,不過其他老師都被逼得辭職了,我不辭職我等著去承擔他們的痛苦啊?

話說有一天,上帝沒事干,在天堂里走來走去,就走到了天堂的大門口。

那裡排著長長的隊伍,大天使彼得正坐在一張桌子前,給那些要進天堂的人做登記。

彼得一看到上帝就喜出望外的大叫起來:「GOD!你來得真好,我要去上廁所,你先接個手?」

然後彼得就離開了,上帝在桌子旁邊坐了下來。

這時桌子前正站著一個老人,上帝看著這個老人花白的頭發和枯瘦滄桑的臉,不知為什麼有了一種很深刻的感覺。

上帝溫和的詢問老人說:「您生前的職業是什麼?」

「木匠。」老人回答。

上帝心裡很受震動,連忙問:「您是不是有一個兒子?」

老人的臉一下子變得很悲傷:「是的,可是他在很多年以前就離開了我,我再也沒有見過他。我可憐的孩子。」

上帝一下子站了起來:「那麼。。。,您的兒子,他。。。他的手腳上是否都被人釘了釘子?」

老人驚訝的望著上帝:「是的,可是,天啊,您是怎麼知道的 ?」

上帝抱住老人,激動得熱淚盈眶:「哦!爸爸,我終於找到你了!」

老人的臉上也立刻煥發出歡喜的光彩:「哦,我真不敢相信,你長得這么大了啊!真的是你嗎?匹諾曹?」
面試

三個報考警校的人在等面試。考官把第一個考生叫了進去,遞給他一張男人照片,要他仔細看,把值得注意的特徵說出來。幾分鍾後,考生道:「此人只有一隻耳朵。」

考官說:「這張是側面照。」

考官又把同一張照片給第二名考生看,並提出同樣問題。

第二名考生拿起照片細看了一會兒,回答說:「這人只有一隻耳朵 。」

考官不悅,答道:「這是側面照!」

他又同樣吩咐第三名考生看照片。幾分鍾後,那考生道:「這人戴隱形眼鏡。」

考官略覺意外,於是查看資料。「你說得對!你是怎麼看出來的?」

第三名考生說:「很容易,他不能戴一般眼鏡,因為只有一隻耳朵 。」
基督徒
某日,一個無神論者在森林裡,邊散步邊欣賞進化所創造的一切。

真是壯觀的大樹呀!真有氣勢的河流呀!真是美麗的動物呀!「 他心裡贊嘆著,當他沿著河岸散步時,突然聽到背後樹叢里一陣響動,轉身一看,一隻三米高的大熊正對他沖過來! 震驚之下,他轉身沿著小徑拼了命地逃跑,那隻熊越追越近。。。。。。

他心臟狂跳,努力跑得更快,

哎呀!他絆了一下跌倒了。

翻過身要跳起來時,熊已到了他面前,左掌搭在他身上,右掌高舉正要揮下來。。。。。

「噢,上帝呀!「他大叫

突然, 時間靜止了,熊凝住了, 森林寂靜無聲, 連河水都停止流動......

驚人的亮光照在他身上,如雷的聲音從四面八方響起, 「你這么多年來都否認我的存在, 也教導別人說我不存在, 甚至把我所創造的一切歸功於宇宙的意外。你現在竟盼望我救你脫離這個困境嗎? 我可以把你也算作一個信神的人了?」

這個無神論者困難地抬起頭,直視著那道亮光,說:「我現在才要求做一個基督徒的話,就太虛偽了,但或許你可以把這熊變成基督徒?」

「很好「,那個聲音說

光亮隱去,森林再度充滿了平時的聲音,小河又潺潺流動...

只見熊只膝跪地,兩只熊掌並在胸前,低下頭說

「主啊,感謝你賜給我眼前的美食「

我對老公犯下的累累罪行

1、 早上上班坐車的時候吃杏子,核沒地方扔,現在都講精神文明了,不能亂扔,可是車上也沒垃圾箱,沒辦法,摟一摟老公的脖子,扔他襯衫里了。下車後還沖他甜甜一笑,然後告訴他,那個核我可是舔得很乾凈,沒有什麼渣滓在上面。據累計,往老公的脖梗共扔過的東西有:話梅核,廢車票,還有一元硬幣(這個我保證不是故意扔的,是我失手掉進去的)。

2、 有時候上班坐22的時候,車上只有一個位子,老公當然是讓我坐啦,我每次又都比老公下得早,我起來的時候就大聲地說:「老爺爺您坐這來吧!」害全車人都看他。

3、 有好東西吃的時候,先往老公那份上吐口水,他就不想吃了,都給我了(其實本來也是給我吃的),後來他學會這招了,先往我的食物上吐口水,我抓起來照吃不誤,並大聲說香。

4、 最近我們誰都有不敢當著對方的面打哈欠,因為只要一方張大嘴,另一方就要沖著那張大嘴「噗」的一聲。哈哈。

5、 晚上睡覺的時候,假裝和他很親熱,緊緊的靠著他,然後就把他擠到床下。

6、 走在馬路上,突然裝作不認識他,然後向他自我介紹,再把手裡的東西推銷給他,從他那裡騙來零花錢。

7、 在家裡的時候,我們經常玩桉樹和考拉的的游戲,他張開雙臂,偽裝成大樹,我就抱著他的脖子蹭的一下竄上去,兩腿緊緊夾住他的腰,我說我是個考拉,在他臉上嗅來嗅去,找找看有沒有葉子吃,過一會兒,老公會喊,壞啦,樹皮要掉啦,我一看,哈哈,我自己沒力氣,扒不住他,漸漸的往下滑,然後他的褲子就……

8、 晚上老公加班回來,我能早早聽到他開門的聲音,然後裝小狗似的,對他上聞聞,下聞聞。

9、 吃飯的時候,故意給他盛好多好多的飯,都高出碗好多了,然後拿著我的空碗,可憐巴巴地對他說:「大爺,賞口飯吃吧。」

『柒』 求好心人!做一個管理系統,高分~

做產品還是題目,這兩種開發難度可是天壤之別啊。
做產品,我們可以為你開發。
做題目,可以幫你找找類似資源

『捌』 昆蟲記的一個300字小故事,並把名字寫出來,謝謝。快

蟬"為飢餓所驅"/"為口渴所苦"
當我考察它們的儲藏室時,我是用手斧來"開掘"的。這個開掘用在這里很生動.

"其實,它的"舉措"簡直像礦工或是鐵路工程師一樣。礦工用支柱支持隧道,鐵路工程師利用磚牆使地道堅固。"這個句子比喻用得很貼切.

然後,它會表演一種奇怪的體操,身體騰起在空中,只有一點固著在舊皮上,翻轉身體,使頭向下,花紋滿布的翼,向外伸直,"竭力"張開。這個竭力開竅得很貼切.

當然了,要熱心"委身於"音樂,那麼只有縮小內部的器官,來安置樂器了。

蟬與我"比鄰相守",到現在已有十五年了,每個夏天差不多有兩個月之久,"它們總不離我的視線,而歌聲也不離我的耳畔"。表達出作者對蟬的喜愛之情.

"這樣幾下抖動便去掉了舍腰蜂剛剛初具規模的窠巢,就是在這個時候,在這么短暫的時間里,它的蜂巢居然已經有一個橡樹果子那樣大了,真讓人始料不及。它們可真是一些讓人驚奇的小動物。"充分表現舍腰蜂的能力.
"臨近溝渠的時候,它當然就會注意到這件可喜的事情,於是就匆匆忙忙地跑過來取水邊這一點點十分寶貴的泥土。它們不肯輕意放過這沒有濕氣的時節極為珍稀的發現。"
昆蟲記讀後感
抿一口茶,心情略微激動地開始閱讀一本書——《昆蟲記》,它是法國傑出昆蟲學家、文學家法布爾的傳世佳作,亦是一部不朽的著作。它熔作者畢生研究成果和人生感悟於一爐,娓娓道來,在對一種種昆蟲、曰常生活習性、特徵的描述中體現出作者對生活世事特有的眼光。字里行間洋溢著作者本人對生命的尊重與熱愛。本書的問世被看作動物心理學的誕生。 《昆蟲記》不僅是一部研究昆蟲的科學巨著,同時也是一部謳歌生命的宏偉詩篇。法布爾窮其畢生精力深入昆蟲世界,在自然環境中對昆蟲進行觀察與實驗,真實地記錄下昆蟲的本能與習性,他刻苦鑽研,犧牲了自己私有的時間去觀察昆蟲。《昆蟲記》詳細地描繪了昆蟲的生活:如蜘蛛、蜜蜂、螳螂、蠍子、蟬、甲蟲、蟋蟀,等等。這給後世作出了很大的貢獻,使人類社會迅速走了現代文明。

一個人耗費一生的光陰來觀察、研究「蟲子」,已經算是奇跡了;一個人一生專為「蟲子」寫出十卷大部頭的書,更不能不說是奇跡;而這些寫「蟲子」的書居然一版再版,先後被翻譯成50多種文字,直到百年之後還會在讀書界一次又一次引起轟動,更是奇跡中的奇跡。就是這樣一個奇跡讓我深深地感受到:人類並不是一個孤立的存在,地球上的所有生命、包括「蜘蛛」「黃蜂」「蠍子」「象鼻蟲」在內,都在同一個緊密聯系的系統之中,昆蟲也是地球生物鏈上不可缺少的一環,昆蟲的生命也應當得到尊重。

而且,這本書有很強的可讀性。它的行文生動活潑,語調輕松詼諧,充滿了盎然的情趣。在作者的筆下,楊柳天牛像個吝嗇鬼,身穿一件似乎「缺了布料」的短身燕尾禮服;小甲蟲「為它的後代作出無私的奉獻,為兒女操碎了心」;而被毒蜘蛛咬傷的小麻雀,也會「愉快地進食,如果我們餵食動作慢了,他甚至會像嬰兒般哭鬧」……多麼可愛的小生靈啊!難怪魯迅先生將《昆蟲記》奉為「講昆蟲生活」的楷模。

《昆蟲記》也很有真實感,那些具體而詳細的文字,不時讓我感覺到放大鏡、潮濕、星辰,還有蟲子氣味的存在,真的使人身臨其境。被我因為厭惡而忽視太久的昆蟲的身影,及它們囂張的鳴叫,一下子聚攏過來,我屏住呼吸,然後,憑它們穿透了我心靈的幽暗。是《昆蟲記》,讓我重新喜歡上了這些小生靈,發現它們並不討厭,相反,還有很多可愛之處;是《昆蟲記》,讓我看到了昆蟲跟我們人類在生與死、勞動與掠奪等許多問題上都有著驚人的相似。《昆蟲記》不同與小說,它是最基本的事實,是法布爾生活的每一天、每一夜,獨自的,安靜的,是幾乎與世隔絕的寂寞和艱辛。

《昆蟲記》的確是一個奇跡,是由人類傑出的代表法布爾與自然界眾多的平凡子民――昆蟲,共同譜寫的一部生命的樂章,一部永遠解讀不盡的書。這樣一個奇跡,在人類即將邁進新世紀大門、地球即將迎來生態學時代的緊要關頭,也許會為我們提供更珍貴的啟示。

《昆蟲記》不僅僅充滿著對生命的敬畏之情,更蘊涵著追求真理、探求真相的求真精神,給了我很大的啟發:在生活中和學習中,我們要學習法布爾勇於探索世界、勇於追求真理的勇氣和毅力,無論做什麼事情都要像法布爾那樣,要有一種嚴謹的科學精神,堅持「准確記述觀察得到的事實,既不添加什麼,也不忽略什麼」。做任何事情都要堅持不懈,即使條件艱苦,也要為了理想而不斷奮斗!
讀《昆蟲記》有感

《昆蟲記》是法國傑出昆蟲學家、文學家法布爾的傳世佳作,亦是一部不朽的著作。一個人耗費一生的光陰來觀察、研究「蟲子」,已經算是奇跡了;一個人一生專為「蟲子」寫出十卷大部頭的書,更不能不說是奇跡;而這些寫「蟲子」的書居然一版再版,先後被翻譯成50多種文字,直到百年之後還會在讀書界一次又一次引起轟動,更是奇跡中的奇跡。這不得不令人驚嘆!

閱讀這本書,我彷彿走進了一個奇異的昆蟲世界。平時在我看來毫不起眼的小蟲子,竟會如此有趣!我從不知觀察蟲子,與蟲子打交道還有如此高深的學問。螢火蟲、螞蟻、蜘蛛、蟋蟀、毛毛蟲,燕子、麻雀……林林總總,一個個妙趣橫生的故事,一段段栩栩如生的昆蟲的景況,涵蓋了關於昆蟲的進食、保護自己、交配、養育後代、勞作、狩獵及生死,幾近所有的細節。這樣一部富含知識、趣味、美感和思想豐富的巨作使我浮想聯翩。

這是一部嚴謹的科學著作,也是一部優美的文學經典,又是一部永垂不朽的昆蟲史詩。無愧於「昆蟲的史詩」,「昆蟲的荷馬」的稱號。

法布爾把未知世界比作處於黑暗之中的無限廣闊的拼磚畫面,把科學工作者比作手捉提燈照看這畫面的探索者;他認為自己就是這探索者,一步一步地移動,一小塊一小塊地照亮方磚,使已知構圖的面積逐漸增大。他將一切品質和才華匯集在這種精神之下,為人類做出自己獨特的奉獻。不必為他的去世惋惜,《昆蟲記》中凝結著他的一切。

我深深地嘆服於法布爾為探索大自然所付出的精神。這位感情細膩、思想深刻的天才,這位偉大的科學家用哲學家一般的思考,美術家一般的觀察,文學家一般的敘述為我們開啟了一扇通向昆蟲世界,更是通向科學的大門.

『玖』 配台1000多的工作用電腦能用XSL就OK的要怎麼配

簡單的,用Copy to EXCEL表名.xls type xl5,注意的是,運行此命令時須使要轉換的DBF表在當前工作區,可以通過Select來擇取工作區。

另外提供一些以編程方式將DBF導成XSL的程式及相關資料,希望對你有用:

VFP導成XLS&& DbfToExcel.PRG
&& 記得要安裝Excel啊,否則不好用

CLOSE DATABASES ALL
SET DATE YMD
SET CENTURY ON
cDbfFile = GETFILE("dbf")
IF EMPTY(cDbfFile)
RETURN
ENDIF
USE (cDbfFile) ALIAS FoxTable IN 0
IF NOT USED("FoxTable")
=MESSAGEBOX("打開表失敗,程序將中止!", 16, "Error")
RETURN
ENDIF
cExcelFile = PUTFILE("保存為(&N):",JUSTSTEM(cDbfFile)+".xls","xls")
IF EMPTY(cExcelFile)
CLOSE DATABASES ALL
RETURN
ENDIF
SELECT FoxTable
oExcelSheet = GETOBJECT("","Excel.Sheet") && 產生Excel對象
IF NOT TYPE("oExcelSheet") = "O"
=MESSAGEBOX("Excel對象創建失敗,程序將中止!", 16, "Error")
RETURN
ENDIF
oExcelApp = oExcelSheet.Application
oExcelApp.Workbooks.Add()
oExcelApp.ActiveWindow.WindowState=2
oSheet = oExcelApp.ActiveSheet
nFldCount = AFIELDS(aFldList, "FoxTable")
FOR i = 1 TO nFldCount
oSheet.Cells(1,i).Value = aFldList[i, 1]
ENDFOR
cRecc = STR(RECCOUNT("FoxTable"))
SCAN
WAIT WINDOW ALLTRIM(STR(RECNO())) + "/" + cRecc NOWAIT
FOR i = 1 TO nFldCount
vValue = .NULL.
IF AT(aFldList[i, 2], "CDLMNFIBYT") = 0
LOOP
ENDIF
cFldName = aFldList[i, 1]
vValue = EVALUATE(cFldName)
DO CASE
CASE aFldList[i, 2] = "C" && 字元/字元串
vValue = TRIM(vValue)
CASE aFldList[i, 2] = "D" && 日期
vValue = DTOC(vValue)
CASE aFldList[i, 2] = "T" && 日期時間
vValue = TTOC(vValue)
CASE INLIST(aFldList[i, 2], "N", "F", "I", "B", "Y") && 數值
CASE aFldList[i, 2] = "L" && 邏輯
CASE aFldList[i, 2] = "M" && 備注型
OTHERWISE
vValue = .NULL.
ENDCASE
IF VARTYPE(vValue) = "C" AND EMPTY(vValue)
LOOP
ENDIF
IF NOT ISNULL(vValue)
oSheet.Cells(RECNO("FoxTable")+1, i).Value = vValue
ENDIF
ENDFOR
ENDSCAN
cChrStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
FOR i = 1 TO nFldCount
cColumn = SUBSTR(cChrStr, INT((i-1)/26), 1) + SUBSTR(cChrStr, IIF(MOD(i, 26)= 0, 26, MOD(i, 26)) , 1)
oSheet.Columns(cColumn + ":" + cColumn).ColumnWidth = 12
IF aFldList[i, 2] = "M"
oSheet.Columns(cColumn + ":" + cColumn).WrapText = .F.
ENDIF
ENDFOR
oExcelApp.ActiveWorkbook.SaveAs(cExcelFile)
oExcelApp.ActiveWorkbook.Close(.F.)
oExcelApp.ActiveWorkbook.Close(.F.)
oExcelApp.Quit
oExcelSheet = .NULL.
oExcelApp = .NULL.
WAIT CLEAR
=MESSAGEBOX("轉換完畢!", 64, "OK")
CLOSE DATABASES ALL

程序是用VFP8寫的,在VFP6中也可以,沒有問題。只要能夠執行完成,就會是正確的,行數只受你安裝的Excel最大行數限制,至少大於65535行

這個程序支持所有欄位類型,包括MEMO類型欄位。

在VFP中全面控制Excel VFP和Excel都可以用來進行處理資料庫表格,如果巧妙地將二者的優點結合起來,將會大大方便我們的工作。比如我們可以利用VFP進行處理數據,而利用Excel的預覽列印功能進行報表列印。這就需要我們在VFP中直接來控制Excel。下面就在開發VFP應用項目時對Excel的控製作一下介紹:
1.創建Excel對象
eole=CREATEOBJECT(′Excel.application′)
2.添加新工作簿
eole.Workbooks.add
3.設置第3個工作表為激活工作表
eole.Worksheets(〃sheet3〃).Activate
4.打開指定工作簿
eole.Workbooks.Open(〃c:\temp\ll.xls〃)
5.顯示Excel窗口
eole.visible=.t.
6.更改Excel標題欄
eole.Caption=〃VFP應用程序調用Microsoft Excel〃
7.給單元格賦值
eole.cells(1,4).value=XM(XM為資料庫欄位名)
8.設置指定列的寬度(單位:字元個數)
eole.ActiveSheet.Columns(1).ColumnWidth=5
9.設置指定行的高度(單位:磅)
eole.ActiveSheet.Rows(1).RowHeight=1/0.035
(設定行高為1厘米,1磅=0.035厘米)
10.在第18行之前插入分頁符
eole.Worksheets(〃Sheet1〃).Rows(18).PageBreak=1
11.在第4列之前刪除分頁符
eole.ActiveSheet.Columns(4).PageBreak=0
12.指定邊框線寬度(Borders參數如下)
ole.ActiveSheet.Range(〃b3:d3〃).Borders(2).Weight=3
13.設置四個邊框線條的類型
eole.ActiveSheet.Range(〃b3:d3〃).Borders(2).LineStyle=1
(其中Borders參數:1-左、2-右、3-頂、4-底、5-斜、6-斜/;LineStyle值:1與7-細實、2-細虛、4-點虛、9-雙細實線)
14.設置頁眉
eole.ActiveSheet.PageSetup.CenterHeader=〃報表1〃
15.設置頁腳
eole.ActiveSheet.PageSetup.CenterFooter=〃第&P頁〃
16.設置頁眉到頂端邊距為2厘米
eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035
17.設置頁腳到底邊距為3厘米
eole.ActiveSheet.PageSetup.FooterMargin=3/0.035
18.設置頂邊距為2厘米
eole.ActiveSheet.PageSetup.TopMargin=2/0.035
19.設置底邊距為4厘米
eole.ActiveSheet.PageSetup.BottomMargin=4/0.035
20.設置左邊距為2厘米
veole.ActiveSheet.PageSetup.LeftMargin=2/0.035
21.設置右邊距為2厘米
eole.ActiveSheet.PageSetup.RightMargin=2/0.035
22.設置頁面水平居中
eole.ActiveSheet.PageSetup.CenterHorizontally=.t.
23.設置頁面垂直居中
eole.ActiveSheet.PageSetup.CenterVertically=.t.
24.設置頁面紙張大小(1-窄行8 5 11 39-寬行14 11)
eole.ActiveSheet.PageSetup.PaperSize=1
25.列印單元格網線
eole.ActiveSheet.PageSetup.PrintGridlines=.t.
26.拷貝整個工作表
eole.ActiveSheet.UsedRange.Copy
27.拷貝指定區域
eole.ActiveSheet.Range(〃A1:E2〃).Copy
28.粘貼
eole.WorkSheet(〃Sheet2〃).Range(〃A1〃).PasteSpecial
29.在第2行之前插入一行
eole.ActiveSheet.Rows(2).Insert
30.在第2列之前插入一列
eole.ActiveSheet.Columns(2).Insert
31.設置字體
eole.ActiveSheet.Cells(2,1).Font.Name=〃黑體〃
32.設置字體大小
eole.ActiveSheet.Cells(1,1).Font.Size=25
33.設置字體為斜體
eole.ActiveSheet.Cells(1,1).Font.Italic=.t.
34.設置整列字體為粗體
eole.ActiveSheet.Columns(1).Font.Bold=.t.
35.清除單元格公式
eole.ActiveSheet.Cells(1,4).ClearContents
36.列印預覽工作表
eole.ActiveSheet.PrintPreview
37.列印輸出工作表
eole.ActiveSheet.PrintOut
38.工作表另為
eole.ActiveWorkbook.SaveAs(〃c:\temp\22.xls〃)
39.放棄存檔
eole.ActiveWorkbook.saved=.t.
40.關閉工作簿
eole.Workbooks.close
41.退出Excel
eole.quit

以上控制調用語句在中文VFP5.0企業版下運行通過,運行環境為Excel 97及中文Windows 98。

Grid轉Excel的類

*------------------------------------*
rex1105

************

*****轉excel類,編寫日期:2006-05-23 By Rex1105

********

PARAMETERS oGrid,cHeader
IF PARAMETERS()<2
Return .F.
ENDIF
cRec=ALLTRIM(oGrid.RECORDSOURCE)
Select ALIAS(cRec)
FILE_NAME=PUTFILE("","","XLS")
IF EMPTY(FILE_NAME)
Return .F.
ENDIF

***檢查是否有安裝office軟體***
excelsheet=GETOBJECT("","excel.sheet")
IF TYPE("excelsheet")#"O"
MESSAGEBOX("您沒有安裝office辦公軟體!",16,"信息提示")
RELEASE excelsheet
Return .F.
ENDIF
****檢查文件有無打開*****
LOCAL loldsetopt,mChanNum,nWS
nWs=2
loldsetopt=DDESETOPTION("safety")
=DDESETOPTION("safety",.F.)
mChanNum=DDEINITIATE("excel",'&file_NAME')
IF <>mChanNum-1
MESSAGEBOX("有同名的Excel文件打開!請先關閉它!",64,"信息提示")
=DDETERMINATE(mChanNum)
=DDESETOPTION("safety",loldsetopt)
Return .F.
ELSE
=DDETERMINATE(mChanNum)
=DDESETOPTION("safety",loldsetopt)
ENDIF
LOCAL cCopy,oexl
DIMENSION [oGrid.ColumnCount,2]dColumn

FOR i=1 TO oGrid.COLUMNCOUNT
FOR ii=1 TO oGrid.COLUMNCOUNT
nOrder=oGrid.COLUMNS(ii).COLUMNORDER
IF nOrder=i
[i,1]dColumn=oGrid.COLUMNS(ii).header1.CAPTION
[i,2]dColumn=oGrid.COLUMNS(ii).CONTROLSOURCE
EXIT
ENDIF
ENDFOR
ENDFOR

****建立輸出文件*****
cCopy=""
FOR i=1 TO ALEN(dColumn,1)
cCopy=cCopy+[i,2]dColumn+","
NEXT
cCopy=LEFT(cCopy,LEN(cCopy)-1)
cCopy="COPY TO "+'"'+FILE_NAME+'"'+" TYPE XL5 FIELDS "+cCopy
&cCopy

&&建立excel表,並寫表頭
oexl=CREATEOBJECT("excel.APPLICATION")
WITH oexl
.workbooks.OPEN(FILE_NAME)
.VISIBLE=.T.
.cells.Select
.Selection.FONT.Size=10
ENDWITH
Select ALIAS(cRec)
=AFIELDS(cField,cRec)
****第一行加中文標題*****
FOR i=1 TO ALEN(dColumn,1)
oexl.cells(1,i).VALUE=[i,1]dColumn
****每列數據處理,分字元與數值日期*****
DO CASE
CASE TYPE([i,2]dColumn)="N"
***查找數值的小數位****
FOR ii=1 TO ALEN(cField,1)
IF UPPER([i,2]dColumn)=UPPER(cRec)+"."+[ii,1]cField
nWS=[ii,4]cField
EXIT
ENDIF
NEXT
oexl.COLUMNS(retuabc(i)+":"+retuabc(i)).NumberFormatLocal = "#,##0."+REPLICATE("0",nWs)+"_);[紅色](#,##0."+REPLICATE("0",nWs)+")"
CASE TYPE([i,2]dColumn)="D" OR TYPE([i,2]dColumn)="T"
oexl.COLUMNS(retuabc(i)+":"+retuabc(i)).NumberFormatLocal = "yyyy/mm/dd"
ENDCASE
NEXT

****表格線****

oexl.RANGE("A1:"+retuabc(ALEN(dColumn,1))+ALLTRIM(Str(RECCOUNT()+1))).Select

oexl.Selection.BorderS(5).LineStyle = -4142
oexl.Selection.BorderS(6).LineStyle = -4142
WITH oexl.Selection.BorderS(7)
.LineStyle =1
.Weight = 2
.ColorIndex = -4105
ENDWITH
WITH oexl.Selection.BorderS(8)
.LineStyle =1
.Weight = 2
.ColorIndex =-4105
ENDWITH
WITH oexl.Selection.BorderS(9)
.LineStyle =1
.Weight = 2
.ColorIndex = -4105
ENDWITH
WITH oexl.Selection.BorderS(10)
.LineStyle =1
.Weight = 2
.ColorIndex = -4105
ENDWITH
WITH oexl.Selection.BorderS(11)
.LineStyle =1
.Weight = 1
.ColorIndex = -4105
ENDWITH
WITH oexl.Selection.BorderS(12)
.LineStyle =1
.Weight = 1
.ColorIndex = -4105
ENDWITH

***第一行顯示灰色加粗體****
WITH oexl.RANGE("A1:"+retuabc(ALEN(dColumn,1))+"1")
.HorizontalAlignment=3
.VerticalAlignment = 2
.WrapText = .T.
.FONT.bold=.T.
.Interior.ColorIndex = 40
ENDWITH

oexl.Rows("1:1").Select
oexl.Selection.INSERT
oexl.Selection.INSERT
oexl.Selection.INSERT
&&抬頭
WITH oexl.RANGE("A1:"+retuabc(ALEN(dColumn,1))+"1")
.merge
.VALUE=cHeader
.FONT.Size=14
.HorizontalAlignment=3
.VerticalAlignment=2
.FONT.bold=.T.
ENDWITH
&&加報表時間
WITH oexl.RANGE("A2:d2")
.merge
.VALUE="報表時間:"+TTOC(DATETIME())
ENDWITH
&&加表格第一列
oexl.cells.Select
oexl.Selection.COLUMNS.AUTOFIT()
RELEASE oexl
Return .T.

熱點內容
linux顯示目錄 發布:2025-03-15 20:30:42 瀏覽:659
素數演算法表示 發布:2025-03-15 20:24:02 瀏覽:841
大話西遊手游怎麼看伺服器等級 發布:2025-03-15 20:21:53 瀏覽:220
rsa加密c源代碼 發布:2025-03-15 19:53:55 瀏覽:693
linux解壓bin 發布:2025-03-15 19:40:25 瀏覽:384
存儲數據為什麼只能使用兩種狀態 發布:2025-03-15 19:40:21 瀏覽:264
平方的運演算法則 發布:2025-03-15 19:38:57 瀏覽:971
江蘇省蘇州市社保卡初始登錄密碼是多少 發布:2025-03-15 19:38:55 瀏覽:516
安卓主板哪裡有賣 發布:2025-03-15 19:26:10 瀏覽:31
Q9源碼 發布:2025-03-15 19:24:21 瀏覽:177