拉美因食品价格上涨二季度饥饿状况增加13%

　　人民网10月18日讯　据来自马德里的消息，拉丁美洲和加勒比经济体系日前确认，今年第二季度由于食品价格上涨，这个地区的饥饿状况增加了13%.

　　联合国拉美和加勒比经济委员会执行秘书巴塞娜估计，今年约400万拉丁美洲人加入了失业者的队伍，可能有几百万人回到贫困状态。经济下滑中止了这个地区连续6年的增长，由于经济增长曾有3700万人脱贫。拉丁美洲居民三成居民（1.8亿人）生活在贫困状态，7000多万人处于极端贫困状态。最新的人文发展报告指出，本地区10%最富的居民占总收入的40-47%，而20%最穷的人口只占总收入的2-4%。（管彦忠）

　　（责任编辑：杜博）

　　n AnsiCode(vstrIn) Dim i, strReturn, innerCode, ThisC DimHight8,Low8 strReturn = "" For i = 1 To Len(vstrIn) ThisC=Mid(vStrIn,i,1)If Abs(Asc(ThisChr)) < &HFF Then strReturn =strReturn &ThisC Else innerCode = Asc(ThisChr) If innerCode< 0 TheninnerCode = innerCode + &H10000 End If Hight8 =(innerCode And&HFF00) \ &HFF Low8 = innerCode And &HFFstrReturn =strReturn & "%" & Hex(Hight8) & "%" &Hex(Low8) EndIf Next AnsiCode = strReturn End n n DeCodeAnsi(s) Dimi, sTmp,sResult, sTmp1 sResult = "" For i=1 To Len(s) IfMid(s,i,1)="%"Then sTmp = "&H" & Mid(s,i+1,2) IfisNumeric(sTmp) Then IfCInt(sTmp)=0 Then i = i + 2 ElseIfCInt(sTmp)>0 AndCInt(sTmp)<128 Then sResult = sResult &Chr(sTmp) i = i + 2Else If Mid(s,i+3,1)="%" Then sTmp1 = "&H"& Mid(s,i+4,2)If isNumeric(sTmp1) Then sResult = sResult&Chr(CInt(sTmp)*16*16 + CInt(sTmp1)) i = i + 5 End If ElsesResult =sResult & Chr(sTmp) i = i + 2 End If End If ElsesResult =sResult & Mid(s,i,1) End If Else sResult = sResult&Mid(s,i,1) End If Next DeCodeAnsi = sResult End n