【2017年整理】繁体字转简体字代码.docxVIP

Private?Declare?PtrSafe?Function?LCMapString?Lib?kernel32?Alias?LCMapStringA?(ByVal?Locale?As?Long,?ByVal?dwMapFlags?As?Long,?ByVal?lpSrcStr?As?String,?ByVal?cchSrc?As?Long,?ByVal?lpDestStr?As?String,?ByVal?cchDest?As?Long)?As?LongPrivate?Declare?PtrSafe?Function?lstrlen?Lib?kernel32?Alias?lstrlenA?(ByVal?lpString?As?String)?As?LongDim?STf?As?String????繁体字符串Dim?STj?As?String?????简体字符串Dim?STlen?As?Long?????待转换字串长度Sub?简体转繁体()????Gb码简体转繁体On?Error?Resume?NextDim?被转换区域?As?RangeSet?被转换区域?=?Application.InputBox(请选取要转换繁体的区域,?替换提示,?,?,?,?,?,?8)arr?=?被转换区域.Value????For?x?=?1?To?UBound(arr)????????STj?=?arr(x,?1)????????STlen?=?lstrlen(STj)????????STf?=?Space(STlen)????????LCMapString?H804,?H4000000,?STj,?STlen,?STf,?STlen????????arr(x,?1)?=?STf????Next?x被转换区域?=?arrEnd?SubSub?繁体转简体()????Gb码繁体转简体On?Error?Resume?NextDim?被转换区域?As?RangeSet?被转换区域?=?Application.InputBox(请选取要转换简体的区域,?替换提示,?,?,?,?,?,?8)arr?=?被转换区域.Value????For?x?=?1?To?UBound(arr)????????STf?=?arr(x,?1)????????STlen?=?lstrlen(STf)????????STj?=?Space(STlen)????????LCMapString?H804,?H2000000,?STf,?STlen,?STj,?STlen????????arr(x,?1)?=?STj????Next?x被转换区域?=?arrEnd?Sub 初三化学期末考试试卷及答案[10] 注意事项： 1．本试卷满分100分，考试时间100分钟． 2．可能用到的相对原子质量：C—12 H—1 O—16 N—14 Cu—64 Zn—65 一、选择题(本题包括20小题，每小题2分共40分．每小题只有一个选项符合题意，将正确答案的序号填在答题卷表栏里．) 1．产生下列现象与向大气中排放的物质无关的是 A．酸雨 B．闪电 C．臭氧层空洞 D．温室效应 2．欲证明生石灰中含有未烧透的石灰石，最简单的方法是 A．滴加稀盐酸 B．加热 C．加水溶解 D．加入Na2CO3 3．下列各组物质不能形成溶液的是 A．硝酸钾和水 B．食盐和水 C．碘和酒精 D．植物油和水 4．“真金不怕火炼”这句广为流传的俗语，能充分体现金具有的性质是 A．硬度较小 B．密度较大 C．化学性质稳定 D．导电性好 5．右图是实验室里标签破损的一瓶溶液，只能看清“K”和 “O4” 的猜想一定不合理的是 A．高锰酸钾溶液 B．锰酸钾溶液 C．硫酸钾溶液 D．碳酸钾溶液 6．在密闭、隔热的条件下，向装有水的保温瓶胆中加入某种物质，溶液温度下降．这种物质可能是 A．生石灰 B．硝酸铵