乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > VBA宏与VB对象的替代问题-人鬼过河 excel,三人三鬼过河

VBA宏与VB对象的替代问题-人鬼过河 excel,三人三鬼过河

作者:乔山办公网日期:

返回目录:excel表格制作


青蛙是两栖类动物,最原始的青蛙在三叠纪早期开始进化。现今最早有跳跃动作的青蛙出现在侏罗纪。因为青蛙是以昆虫和其他无脊椎动物为主食,因此必须栖息於水边。
青蛙属于动物界、脊索动物门、两栖纲、无尾目、始蛙亚目、中蛙亚目、新蛙亚目。英文名frog。

无尾目是属于两栖纲的动物,成体基本无尾,卵一般产于水中,孵化成蝌蚪,用鳃呼吸,经过变态,成体主要用肺呼吸,但多数皮肤也有部分呼吸功能。主要包括两类动物:蛙和蟾蜍。这两类动物没有太严格的区别,有的一科中同时包括两种。一般来说,蟾蜍多在陆地生活,因此皮肤多粗糙;蛙体形较苗条,多善于游泳。两种体形相似,颈部不明显,无肋骨。前肢的尺骨与桡骨愈合,后肢的胫骨与腓骨愈合,因此爪不能灵活转动,但四肢肌肉发达。

无尾目是生物从水中走上陆地的第一步,比其他两栖纲生物要先进,虽然多数已经可以离开水生活,但繁殖仍然离不开水,卵需要在水中经过变态才能成长。因此不如爬行纲动物先进,爬行纲动物已经可以完全离开水生活。

蛙类
蛙类大约有4800种,绝大部分生活在水中,也有生活在雨林潮湿环境的树上的。卵产于水中,也有的树蛙仅仅利用树洞中或植物叶根部积累残余的水洼就能使卵经过蝌蚪阶段。2003年在印度西部新发现一种“紫蛙”,常年生活在地底的洞中,只有季风带来雨水时才出洞生育。

蛙类和蟾类很难绝对地区分开,有的科如盘舌蟾科就即包括蛙类也有蟾类。

蛙类最小的只有50毫米,只相当一个人的大拇指长,大的有300毫米(一尺多长),瞳孔都是横向的,皮肤光滑,舌尖分两叉,舌跟在口的前部,倒着长回口中,能突然翻出捕捉虫子。有三个眼睑,其中一个是透明的,在水中保护眼睛用,另外两个上下眼睑是普通的。头两侧有两个声囊,可以产生共鸣,放大叫声。体形小的品种叫声频率较高。

有的蛙类皮肤分泌e5a48de588b67a686964616f332毒液以防天敌,生活在亚马逊河流域雨林中的一种树蛙分泌物被当地印第安人用来制作箭毒,见血封喉。

蛙类分布在除了加勒比海岛屿和太平洋岛屿以外的全世界。但目前在全世界迅速地减少,主要原因是环境污染造成的,还有气候的变化,外来物种的侵入,由于人类扩张造成栖息环境的缩小等原因。

蛙类的繁殖方式基本和蟾蜍类相似,也是以昆虫为食,但大型蛙类可以捕食小鱼甚至小鼠。基本在夜间捕食。

青蛙捕食大量田间害虫,是对人类有益的动物。它不单单是害虫的天敌,丰收的卫士,那熟悉而又悦耳的蛙鸣,其实就如同是大自然永远弹奏不完的美妙音乐,是一首恬静而又和谐的田野之歌。“稻花香里说丰年,听取蛙声一片”,有蛙的叫声农民就有播种的希望,有蛙声就有收获的喜悦和欢乐!

从前的都市郊区和乡村都有一片片宽阔的水塘,那里是蛙类生息的乐园。然而几乎是一夜之间却被都市的蔓延所吞噬,一些残存的青蛙成了真正的井底之蛙,它们虽然有幸生存下来却不幸失去了田野,失去了禾苗,失去了活动的天地和自由,甚至只有等到夜深人静的时候,才敢法生生地发出几声鸣叫,轻轻地,缓缓地,似乎怕惊扰了都市瑰丽的梦幻,又似在一声声地呼唤着远离它们的同伴。但它们越来越多的同伴也正在城市的另一些角落更为绝望地哀鸣!一双双贪婪的手把它们从田野捉来,又被一双双麻木的手将它们买去,它们还来不及瞧一眼陌生的都市,就生生地成了家家案俎上的肉食!相比于那一双双或贪婪或麻木的大手,它们的反抗显得是那样的软弱和乏力,它们只有发出一声声凄惨绝望的哀鸣!

两栖动物中的大多数种类已经在地球上衰落了,而使现生种类也迅速成为濒危物种的罪责则归咎于诸多方面,其中最主要的是频繁的人类活动和全球工业的急剧发展,一方面,它致使物种灭绝;另一方面,由于工业污染特别是化学工业污染,使生态环境恶化日益加剧,使湿地大规模遭到破坏。

最近的研究发现,作为一种农用真菌抑制剂的化合物三苯基锡,其含量即使低于田间浓度,也可能导致几种青蛙发生畸变甚至死亡。

杀菌剂三苯基锡,主要用来对付甜菜和马铃薯体内的疾病,但有时也用于洋葱、水稻等多种农作物中。这不可避免地污染了水生生态环境,有的是直接污染水稻田,另外还通过地表径流污染江河沟渠。因为三苯基锡的液相降解速度很慢,导致它在水中富集,从而对水生生物造成极大的毒害,特别是损伤了蝌蚪大脑的中枢神经系统。

一般而言,真菌抑制剂的浓度越高,对生物的毒害就越大。对于两栖类动物,化学品常会导致其发育滞缓,而发育滞缓又将导致其难于逃脱捕食者的攻击。这很可能是导致一些地区青蛙种群灭绝的原因。

还有其他污染物要对更多地区两栖动物数量下降负责,酸雨则堪称罪魁祸首之一。事实上,几乎所有两栖动物的卵和幼体在酸碱度低于4.5的水中均不能生存。然而酸雨的酸碱度一般都在3.5可以使水塘溪流水中正常的酸碱度下降到致死的水平。在加拿大、斯堪的纳维亚国家和东欧,都已经确认酸雨是造成池塘湖泊中的两栖动物减少的原因。

对于更大区域甚至全球范围内两栖动物数量下降负有不可推卸责任的也许是臭氧的减少。地球臭氧层变薄,紫外线辐射量上升,将使两栖动物的卵无法孵化为幼体。最有可能受紫外线辐射增强的影响的其他两栖动物,是生活在更高寒、更靠近极地的两栖动物,那些地区的臭氧层最薄,两栖动物必须晒太阳来调节体温,结果受辐射量增加,脱氧核糖核酸分子被破坏。

环境激素也可能要对全球两栖动物数量下降负责,滴滴涕之类杀虫剂分解的污染物,有可能严重破坏两栖动物的生殖能力,其情况类似于鱼和鳄鱼等水中生物。事实上已经发现,这种环境激素使一些雌性树蛙雄性化,同时也会使另外一些种类的雄性树蛙雌性化,结果,这些树蛙都不能生育。这种在环境中不易分解的激素分子,沉积在池塘湖泊底部的污泥中,被在底部生活的两栖动物的幼体吞入腹中。这种激素、很小的积聚量就能生效,而且极易随风飘散,因此,不论原生地在哪里,都会形成全球威胁。

地球上日渐严重的温室效应不仅使气候出现了奇怪的变化,也使变色的青蛙数量在逐渐增多,很多地方出现了各种橘黄色、白色、甚至粉红色的青蛙,这种现象肯定不是自然界与人类在开玩笑。

北美洲发现多处的畸形青蛙是生活环境中维生素A复合物含量过高造成的,其中含有视黄酸,它是一种激素,能控制脊椎动物几个重要方面的发育过程,它的过量也会导致人类的生育畸形。

在美国,靠近湖泊和河流的湿地中出现了一些严重畸形的青蛙,有的只有3条腿,有的前两条腿缺失,有的后腿长了3条或4条。这一消息引起了世界各地的环保专家和人士的震惊和密切关注。对此,有人认为是寄生虫捣的鬼,有的认为罪魁祸首是杀虫剂,还有的则认为是臭氧层破坏造成紫外线过多污染环境而致动物畸形。其中最大的可能是水源污染所致。目前可以确认的是水源受到多种物质的污染,包括特殊的杀虫剂、重金属、氯化物,当然也不排除其他化学物质的污染。

由于青蛙是水陆两栖动物,他们一般被视为是环境卫生的准确的晴雨表或指示器。青蛙在发育时,其胚胎直接浸泡于水中,更容易受到致畸物的影响,因而更脆弱。对于人来说,尽管其胚胎在发育时,受到多种因素的保护,但是通过激素致青蛙畸形的途径也可以影响到人,人类畸变的可能也是存在的。能致青蛙畸形也一定能使人畸变,这一点是毫无疑问的。这一天的到来只是时间问题而已。

因此,我们的结论是:保护生态环境,就是保护人类自己!

蛙类是指青蛙(黑斑蛙)、蟾蜍(俗称癞蛤蟆)等没有尾巴的两栖动物,它们在分类上是属于脊索动物门、脊椎动物亚门、两栖纲。由于皮肤裸露,不能有效地防止体内水分的蒸发,因此它们一生离不开水或潮湿的环境,怕干旱和寒冷。所以大部分生活在热带和温带多雨地区,分布在寒带的种类极少。我国的蛙类有130种左右,它们几乎都是消灭森林和农田害虫的能手。

在农田里常见的蛙类有黑斑蛙、泽蛙、金线蛙、花背蟾蜍等等。从古巴引入的牛蛙可算是蛙中的“巨人”,体长可达20厘米。它那哞哞的鸣声很像牛叫,所以叫牛蛙。其实我国也有身体很大的蛙,例如生活在江南稻田中的虎纹蛙,身长超过12厘米,鸣声犹如狗叫。生活在江南山涧溪流中的棘蛙,又叫“石鸡”,体长也有12厘米左右。那么我国最小的蛙有多大呢?只比蚕豆略大一点。早春二月,当北方还是风雪交加,海南岛上已经鲜花怒放。这时,白天在稻田附近可听到“呱呱”的鸣声。这是最小蛙类之一——姬蛙在求偶。身长才2.5厘米,在鸣叫时,咽喉的下部会鼓出一个大气泡——鸣囊。有时,你还可以听到从水草间传来阵阵“吱吱”的声音,那是一种不易发现的小蛙——浮蛙的鸣声。浮蛙是灰色的,身长只有2厘米,常飘浮在水草之间,只露出个头。一有动静,就马上潜水而逃。别看这些蛙身体小,它们是小型害虫和白蚁的天敌。树蛙在我国约有十几种,它们轻盈瘦小,指端有吸盘,善攀登高大的树干或矮小的灌木丛,体色和周围环境一致。

蛙类的生殖特点是雌雄异体、水中受精,属于卵生。繁殖的时间大约在每年四月中下旬。在生殖过程中,蛙类有一个非常特殊的现象——抱对。需要说明的是,蛙类的抱对并不是在进行交配,只是生殖过程中的一个环节,研究表明,如果人为地把雌雄青蛙分开(即没有抱对的过程),那么即使是在青蛙的繁殖期里,雌蛙也不能排出卵细胞。可见抱对的生物学意义,主要是通过抱对,可以促使雌蛙排卵。一般蛙类都在水中产卵、受精,卵孵化后变成蝌蚪,在水中生活,然后变成幼蛙登陆活动。不过树蛙的产卵方法与众不同,斑腿树蛙产出的卵好像一团白色的肥皂沫,又像一团奶油,粘附在水草上。最有趣的是峨眉树蛙,它把卵块产在水边的树叶上,卵就在卵块中发育,然后落到湖里,继续发育。又如鸣声悦耳的弹琴蛙,在产卵前还会先筑一个泥窝,然后把卵产在里面。有些属于树蛙的蛙类并不上树,而是生活在水里。有些树蛙如红蹼树蛙和黑蹼树蛙,指、趾间有宽大的蹼,能由高处的树枝向低处展蹼滑翔,所以又叫飞蛙。有吸盘的蛙类除了树蛙外,还有雨蛙和湍蛙。其中以湍蛙比较特别,它们喜欢生活在湍急的水域中,能敏捷地穿过急流,爬登岩石。湍蛙的蝌蚪也很奇特,它的腹部有一个吸盘,能吸附在岩石上,以免被急流冲去。有“胡子”的蟾蜍是我国特有的珍奇蛙类,最早发现在峨嵋山,后来在南方几省相继发现。这种蛙吻部宽圆、扁平,雄性上颌缘有椎形角质黑刺12—16根,所以叫胡子蟾。这些“胡子”的功能目前还在人们的研究之中。蛙的种类很多,但不论哪一种,都主要以害虫为食。

青蛙的本领

1、捉虫能手
2、歌唱家
3、运动健将
4、伪装高手

青蛙头上有两只圆而突出的眼睛,一张又宽又大的嘴、舌头很长。身体的背上是绿色带有深色条纹,腹部是白色。身体下面有四条腿,前腿短,后腿长,脚趾间有蹼。青蛙是两栖动物,能在地上跳,也能在水里游,会发出“呱呱”的声音,雄的叫声响亮。
春天,青蛙在水草上产卵,卵慢慢地变成蝌蚪。蝌蚪是黑色的,圆圆的身体,有一条长尾巴,蝌蚪一天天长大,先长出后腿,再长出前腿,尾巴渐渐地缩短退化,最后变成青蛙。
青蛙是捉害虫能手,青蛙捉害虫全靠他又长又宽的舌头,舌根长在口腔的前面,舌尖向后,还分叉,上有许多黏液,只要小飞虫从身边飞过,就猛地往上一跳,张开大嘴,快速地伸出长长的舌头,一下子把害虫吃掉。青蛙是保护农田的功臣,我们都要爱护它。

青蛙的眼睛看静的东西迟钝,看动的东西敏锐.

青蛙在吞咽食物时会:眨眼睛
青蛙属于:变温动物
青蛙的呼吸器官是?:肺和皮肤
青蛙的幼体叫蝌蚪,它是靠什么来呼吸的?:腮
青蛙的眼脸是如何闭合的?:由下往上
青蛙的舌根在他嘴里的什么部位?:在嘴的前端
青蛙除了用肺外还用什么器官呼吸?:皮肤
青蛙的舌头构造?:青蛙的舌头舌根在外,舌尖向里,舌上有粘液,以便于捕捉昆虫。

网络用语:
网络上经常把相貌不好的男孩叫“青蛙”。
据传的出处:
据说有个男子很丑,家人想给他张罗亲事,但是媒人一看见他就哇的一声吐了,赶快跑了。这样次数多了,他也习以为常了,但是父母还不甘心,每次媒人来了后,他都提个痰盂过来,说:请哇。意思是,吐吧,我就知道你要吐,不过请吐到痰盂里面,免得把地脏了。 后来,传了出去,街坊邻居都知道了,请哇这个词也渐渐拨散开来。后来就演化成看见某人很丑,就说:请哇,意思是联系这个青年的故事,你很丑很差劲,让人要吐了。时间久了,这个词慢慢演化成青蛙了,有这个词条,方便。

你可以这样试试:
Selection前面带上Word.Application对象的名,例如:
Dim AppWord As Word.Application
Set AppWord = CreateObject("Word.Application") '实例化Word对象

AppWord.Visible = False '使得Word对象对象不可见
AppWord.Documents.Open FileName:="C:\TEST.DOC"
AppWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter


做了一个e799bee5baa6e59b9ee7ad94338“动画”,代码如下:

Sub 开始()

Sheets("游戏").Select

Range("a1") = "A岸": Range("b1") = "河": Range("d1") = "B岸"

Range("a2:a4") = "人": Range("a5:a7") = "鬼": Range("b2:d7") = ""

'1:人鬼->

Call yd(2, 5, 1)

'2:人<-

Call yd(2, 8, -1)

'3:鬼鬼->

Call yd(6, 7, 1)

'4:鬼<-

Call yd(5, 8, -1)

'5:人人->

Call yd(2, 3, 1)

'6人鬼<-

Call yd(2, 6, -1)

'7人人->

Call yd(2, 4, 1)

'8鬼<-

Call yd(7, 8, -1)

'9鬼鬼->

Call yd(6, 7, 1)

'10鬼<-

Call yd(7, 8, -1)

'11鬼鬼->

Call yd(5, 7, 1)

MsgBox "过河完毕!", , "人鬼过河"

Range("a2:a4") = "人": Range("a5:a7") = "鬼": Range("b2:d7") = ""

End Sub

Sub yd(x1, x2, fx)

If fx = 1 Then

  y = 1

  For i = 1 To 3

    Cells(x1, y + 1) = Cells(x1, y): Cells(x1, y) = ""

    Cells(x2, y + 1) = Cells(x2, y): Cells(x2, y) = ""

    y = y + 1: Call 延时

  Next

Else

  y = 4

  For i = 1 To 3

    Cells(x1, y - 1) = Cells(x1, y): Cells(x1, y) = ""

    Cells(x2, y - 1) = Cells(x2, y): Cells(x2, y) = ""

    y = y - 1: Call 延时

  Next

End If

End Sub

Sub 延时()

    For i = 1 To 50000000: Next

End Sub

需要新建一个空白工作表,表名取“游戏”,运行代码就能看到过河的过程了。

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网