小麻雀编程

‘壹’ 小学生应该阅读哪些经典书籍

快乐语文读本，新语文读本，科普类的，比方说“小学生科学认知趣问妙答”、画说最有趣的为什么、我们的身体等，还有抱抱丛书和看看丛书，要是喜欢动物的话，沈石溪的动物小说，还有，现在一些信谊世界精选图画书，虽然适合小一点的孩子，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.