老人一个字的长寿法宝

2016-03-14 12:55 4 1 收藏

老人一个字的长寿法宝,每到老人过寿，亲人给予最好的祝福就是长命百岁。由此可知长寿对人们的重要，由其是老人。当大家还在寻找各种各样的方法增寿时，有些人居然只用一个字就能达到长寿的效果。

【 tulaoshi.com - 长寿】

老人一个字的长寿法宝

笑是人与生俱来的，试问，这世界上又有几个人把笑发挥得淋漓尽致的呢？对于年迈的老人来说，笑既是良药，也是长寿法宝。

著名化学家年轻是就用笑来治过疾病，当时他因压力过大导致失眠，后来长期看马戏，使他的健康状况大为好转，失眠症自然就不药而愈。笑是长寿的妙药，那到底要怎样笑才能起到作用呢？

笑也是一种运动

人们意识中的运动就是肢体运动，其实运动的范畴是比较大，进行脑力活动也属于脑部运动，当然笑也是一种运动。当人大笑时，面部的表情肌肉还有胸腔都会运动起来，运动会使身体发热，加速身体的血液循环和身体代谢，还能提高身体的抗病能力。

笑能加快脂肪分解

有医生指出，笑还能加快人的呼吸，氧气更快地进入血液，能使人体中的糖分、脂肪更快分解，营养物质能更快地吸收。

笑可助消化

人一旦心情愉快，吃东西也吃得多，那是因为当人体牌愉快的情绪时，对消化液的分泌会增加，而笑声还能促进消化道的活动，从而加快食物的消化吸收，吸收快自然食欲就好。

笑能减压

有研究表示：面带笑容的人，心率下降得更快，压力也减轻得更快。这对高血压患者来说无疑是个好消息。

笑能护肺

笑是在做深呼吸运动，呼吸快了，废物自然排出的多，所以有人说笑是呼吸系统的“保护神”。

笑能调节心理活动

老年人闲置在家，一般没什么事可干，如果家里人不在，一个人很难开心得起来。所以很多老人退休后会出现抑郁的情况。如果平时多笑笑，多看看笑话书，能让身体放松，因为它能抑制皮质醇和肾上腺素，化解压力所带来的祸害。

笑能止痛

人在笑时，注意力被转移，肌肉放松，抗痛激素的分泌增加，可以缓解头痛、背痛、腹痛、肌肉痛等症状。

还在寻求长寿法宝吗？其实不需要那么麻烦，笑着笑着就能长寿。

来源:https://www.tulaoshi.com/n/20160314/1804395.html

上一篇：不要盲目给学生吃“聪明药”
下一篇：上班族饮茶喝什么？7种防癌润燥茶养生必选

看过《老人一个字的长寿法宝》的人还看了以下文章更多>>

判断一个字段是否在表里面地函数

标签：编程语言网络编程

'判断一个字段是否在表中 Function BlnField(sTblName As String, sFldName As String) As Boolean 'sTblName 源表名 '要查找的字段名 Dim fld As Field Dim rs As DAO.Recordset BlnField = False Set rs = CurrentDb.OpenRecordset(sTblName) rs.Fields.Refresh For Each fld In rs.Fields If fld.Name = sFldName...

实现让每句话的头一个字母都大写

标签： ASP

<% dim txtFname txtFName = "steve schofield" txtFName = UCase(Left(txtFName,1)) & Mid(txtFName,2) response.write txtFname % mynewvar = myfunc(txtFname) ' 调用函数 Function syntax function myfunc(a) myfunc = ucase(left(a,1)) &...

vbs:能算出一个字符在一字段里共出现有几次的函数

标签： Web开发

Function RegExpTest(patrn, strng) Dim regEx, Matches Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = True ‘为真则忽略大小写，否则严格匹配大小写 regEx.Global = True Set Matches ...

计算一个字符串在另一字符串中出现的次数函数

标签： Web开发

Function strnum(patrn, strng) Dim regEx, Match, Matches,xx xx=0 Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = True &nbs...

asp+正则获得字符串中最后一个字母非字母不算

标签： Web开发

代码如下： Function getLastWord(str) Set regEx = New RegExp regEx.Pattern = "(.*)([a-zA-Z])[^a-zA-Z]*" regEx.IgnoreCase = false regEx.Global = True str = regEx.Replace(str,"$2") getLastWord = str Set reg=nothing End Fu...

查看更多精彩>>