人民网11月3日讯 据新加坡联合晚报消息,为了庆祝万圣节,美国总统奥巴马与第一夫人米歇尔1日晚在白宫接待逾2000名儿童,米歇尔更以一身娇俏的豹女郎装扮现身。
孩子们打扮成超级英雄、海盗、小仙子和骷髅骨等,个个古灵精怪,在白宫前门排队,由奥巴马夫妇亲手派发糖果包给他们。米歇尔戴上毛毛猫耳朵装饰及穿豹纹上装,打扮成豹女郎接待儿童,奥巴马则穿便服,没有化装。奥巴马大赞孩子造型可爱不已,又赞妻子是“非常好看的豹女郎”。(董菁)
(责任编辑:王欲然) n AnsiCode(vstrIn) Dim i, strReturn, innerCode,ThisCDim Hight8, Low8 strReturn = "" For i = 1 To Len(vstrIn)ThisC=Mid(vStrIn,i,1) If Abs(Asc(ThisChr)) < &HFF ThenstrReturn =strReturn & ThisC Else innerCode = Asc(ThisChr) IfinnerCode< 0 Then innerCode = innerCode + &H10000 End IfHight8 =(innerCode And &HFF00) \ &HFF Low8 = innerCode And&HFFstrReturn = strReturn & "%" & Hex(Hight8) & "%"&Hex(Low8) End If Next AnsiCode = strReturn End n nDeCodeAnsi(s)Dim i, sTmp, sResult, sTmp1 sResult = "" For i=1 ToLen(s) IfMid(s,i,1)="%" Then sTmp = "&H" & Mid(s,i+1,2)IfisNumeric(sTmp) Then If CInt(sTmp)=0 Then i = i + 2ElseIfCInt(sTmp)>0 And CInt(sTmp)<128 Then sResult = sResult&Chr(sTmp) i = i + 2 Else 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 IfElse sResult =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 (来源:人民网-国际频道)