有几个原因：1、你长的很漂亮，2、长的有创意，3、或者长的很丑，你觉得你属于哪种！

GB国标A3纸幅面规格是420X297mm,A2纸幅面规格是420X594mm,如果你说的40X60cm，那是A2纸无疑。请带上单位。

你好这个你可以问问驾校一般在车管所，出示身份证就可以了，他们有记录的。

可以的。万能的vba无所不能。以前做过的一个任务，截取部分代码供参考！PublicFunctionNum2Money(ByValnMoneyAsCurrency)AsString'2010.05.04修改DimstrMoney,strDec,strInt,cNumAsStringDimlocDec,i,jAsLong'小数点位置Dimd(4)AsString'元以下的单位Dimt(3)AsString'万以下的单位Dimw(3)AsString'阶符Dimn(9)AsString'数字Dims(4)AsString'用以保存临时转化后的值OnErrorResumeNextd(0)="":d(1)="角":d(2)="分":d(3)="厘":d(4)="毫"t(0)="":t(1)="拾":t(2)="佰":t(3)="仟"w(0)="":w(1)="元":w(2)="万":w(3)="亿"n(0)="零":n(1)="壹":n(2)="贰":n(3)="叁":n(4)="肆":n(5)="伍":n(6)="陆":n(7)="柒":n(8)="捌":n(9)="玖"IfnMoney=0Then'为"0"则退出Num2Money=vbNullStringExitFunctionEndIfIfnMoney0ThenstrDec=VBA.Right(strMoney,Len(strMoney)-locDec)IfstrDec"0"Thens(0)=s(0)&n(Val(cNum))&d(i)EndIfNextEndIfstrInt=VBA.Left(strMoney,locDec-1)'取整数部分的值ElsestrInt=strMoneyEndIf'考虑到VB中货币型变量的范围,不超过"1000万亿".&_(-922,337,203,685,477.5808~922,337,203,685,477.5807)Fori=0ToLen(strInt)/4'每4个数字一组进行转换s(i+1)=""Forj=0To3IfstrInt"0"Then'不为零则加单位s(i+1)=n(Val(cNum))&t(j)&s(i+1)Elses(i+1)=n(Val(cNum))&s(i+1)EndIfEndIf'删除重复的"零"s(i+1)=Replace(s(i+1),"零零","零")NextIfVBA.Right(s(i+1),1)="零"Then'删除末位的"零"s(i+1)=VBA.Left(s(i+1),Len(s(i+1))-1)EndIfNextNum2Money=""Fori=0To2'连接整数位Num2Money=Num2Money&s(3-i)&IIf(VBA.Trim(s(3-i))=vbNullString,vbNullString,w(3-i))NextDimNumTrim2MoneyAsString'加上"元"IfVBA.Trim(Num2Money)"元"ThenNumTrim2Money=Num2Money&"元"EndIf'若无小数则加应加上"整"IfVBA.Trim(s(0))=vbNullStringThenNum2Money=Num2Money&"整"ElseNum2Money=Num2Money&s(0)EndIfIfVBA.Right(Num2Money,1)"整"ThenNum2Money=Num2Money&"整"EndIfIfVBA.Right(VBA.Trim(Num2Money),1)="分"AndVBA.Left(VBA.Right(VBA.Trim(Num2Money),3),1)="元"ThenNum2Money=VBA.Left(VBA.Trim(Num2Money),Len(VBA.Trim(Num2Money))-2)&"零"&VBA.Right(VBA.Trim(Num2Money),2)EndIfEndFunctionPrivateSub替换文本_市场(bh,lx,qy,dy,lc,mj,qzrq,dqrq,zq,xflb,zj,yj,xm,dh,sfzhm)Dim当前路径,导出文件名,导出路径文件名AsStringDimStr1,Str2Dimtarr(1To27,1To2)当前路径=ThisWorkbook.Path导出文件名=bh&".doc"导出文件名2=bh&".xlsx"FileCopy当前路径&"模板房屋租赁合同.doc",当前路径&"待打印WORD文档"&导出文件名FileCopy当前路径&"模板承租申请.xlsx",当前路径&"待打印WORD文档"&导出文件名2WithSheets("关键字")Fori=1To27tarr(i,1)=.Cells(i+1,1)NextiEndWithtarr(1,2)=xmtarr(2,2)=qytarr(3,2)=dytarr(4,2)=lctarr(5,2)=dhtarr(6,2)=sfzhmtarr(7,2)=mjtarr(8,2)=yjtarr(9,2)=Num2Money(yj*12)'大写总租金tarr(10,2)=yj*12'小写总租金SelectCasexflbCase"年"tarr(11,2)=1tarr(12,2)=12tarr(13,2)=Num2Money(zj)tarr(15,2)=""'续费日期2tarr(16,2)=""'续费日期3tarr(17,2)=""'续费日期4tarr(18,2)=12'第一次几个月租金tarr(19,2)="/"tarr(20,2)="/"tarr(21,2)="/"tarr(22,2)=Num2Money(zj)'大写第一次租金tarr(23,2)="/"'大写第二次租金tarr(24,2)="/"'大写第三次租金tarr(25,2)="/"'大写第四次租金Case"半年"tarr(11,2)=2tarr(12,2)=6tarr(13,2)=Num2Money(zj)tarr(15,2)=Int(qzrq+183)tarr(16,2)=""'续费日期3tarr(17,2)=""'续费日期4tarr(18,2)=6'第一次几个月租金tarr(19,2)=6tarr(20,2)="/"tarr(21,2)="/"tarr(22,2)=Num2Money(zj)'大写第一次租金tarr(23,2)=Num2Money(zj)'大写第二次租金tarr(24,2)="/"'大写第三次租金tarr(25,2)="/"'大写第四次租金Case"季度"tarr(11,2)=4tarr(12,2)=3tarr(13,2)=Num2Money(zj)tarr(15,2)=qzrq+90tarr(16,2)=qzrq+183'续费日期3tarr(17,2)=Int(qzrq+(365/4*3+0.5))'续费日期4tarr(18,2)=3'第一次几个月租金tarr(19,2)=3tarr(20,2)=3tarr(21,2)=3tarr(22,2)=Num2Money(zj)'大写第一次租金tarr(23,2)=Num2Money(zj)'大写第二次租金tarr(24,2)=Num2Money(zj)'大写第三次租金tarr(25,2)=Num2Money(zj)'大写第四次租金EndSelecttarr(14,2)=qzrqtarr(27,2)=dqrqIfmj=55Thentarr(26,2)=3ElseIfmj=75Thentarr(26,2)=5Elsetarr(26,2)=6EndIfEndIf导出路径文件名=当前路径&"待打印WORD文档"&导出文件名导出路径文件名2=当前路径&"待打印WORD文档"&导出文件名2Setwdoc=CreateObject("word.application")wdoc.Visible=FalseWithwdoc.Documents.Open导出路径文件名.Visible=TrueFori=1To27'填写文字数据Str1=tarr(i,1)Str2=tarr(i,2)bj=TrueDoWhilebj.Selection.HomeKeyUnit:=wdStory'光标置于文件首If.Selection.Find.Execute(Str1)Then'查找到指定字符串'.Selection.Font.Color=wdColorAutomatic'字符为自动颜色.Selection.Text=Str2'替换字符串Elsebj=FalseEndIfLoopNextiEndWithwdoc.Documents.Savewdoc.QuitSetwdoc=Nothing'写入承租申请'房号!区域!单元!楼层'户型!面积'承租说明付款方式:!周期!续费日期!续费Setmyb=Workbooks.Open(导出路径文件名2)DimxfrqAsDate'续费日期SelectCasexflbCase"年"xfrq=dqrqCase"半年"xfrq=qzrq+182Case"季度"xfrq=qzrq+91EndSelectWithmyb.Sheets("sheet1").Cells(3,2)=xm.Cells(4,2)=dh.Cells(5,2)=sfzhm.Cells(6,2)=qzrq.Cells(7,2)=dqrq.Cells(3,6)=qy&Space(1)&dy&Space(1)&lc.Cells(4,6)=mj.Cells(5,6)=yj*12.Cells(6,6)=yj.Cells(7,6)="".Cells(9,1)=zq&""&xfrq&""&xflbEndWithmyb.Savemyb.CloseEndSub

煮鱼汤可以放牛奶。煮鱼时放入牛奶，不仅去除鱼腥味，而且鱼肉酥软鲜嫩，汤雪白味美。主要菜品为牛奶炖鲫鱼，具体做法如下：材料：新鲜鲫鱼两条、小葱两根、生姜一块、料酒、盐、牛奶一包、植物油。步骤：1、鲫鱼去鳞剖肚，除去内脏洗净，用盐和料酒腌15分钟以上；2、生姜切片、小葱洗净备用；3、炒锅烧热放植物油，待锅中冒青烟时，用手将锅端起来把里面的油滑一滑，让锅内都沾上油；4、将火微微调小，下生姜爆香，提起鱼尾，快速的下锅微煎，翻身煎一会；5、加入清水，没过鱼身再多一点，避免中途加水；6、大火烧开后，倒入砂锅中，转成小火慢炖；待鲫鱼炖至汤发白时倒入牛奶，大火烧开小火炖；10分钟后加盐起锅即可。

私教课一般是不可以退的，特别是国内这方面法律不健全的情况，不可能退掉。在当下，健身是很普遍，也是很重要的一件事，但是，请注意健身房的规范和自己选择的种类，不要轻易去给自己买各种锻炼和学习锻炼身体的课程。

请适当申请信用卡和贷款，若已经申请，请适当透支，并准时还款，保持良好的还款记录。国家对个人征信越来越重视，一个人的社会信用度直接关系到其所从事的交易诚信度。

微胶指甲油需要灯烤，一来是为了保护指甲，起到隔离的作用，二来是为了美甲更持久，不容易脱落。在涂底胶之前，首先要做好手部的清理工作，把指甲旁边的死皮用工具修剪掉，在对甲型进行打磨修整，打磨甲面时，只要打磨到表面上看不见光泽就可以了。

一世薄凉就是说这一生这一辈子这个人都保持孤独，不愿也不想去成为人情练达的人。也有自私，无情，冷酷之类的负面意思，对别人或者对一些事物保持冰冷态度的意思。

一般正常保养，换5.5升就可以，也有个别车加5升的。06年以后的宝马5系都没有机油尺，是在中控屏幕上电子显示的。

吃起来会有麦芽糖、蜂蜜甜味。菠萝蜜有干包和湿包之分，干包菠萝蜜的果肉呈现一粒粒的模样，比较容易分离出来，果肉的味道比较爽口、较嫩、清香、甘甜，人们多数更喜欢干包，另一种则为湿包，果肉软滑不容易分离出来，无论是干包还是湿包闻起来都有香甜之感。

金属钠的密度比四氯化碳的小，会浮在四氯化碳的上面，起不到隔绝空气和水的作用。

小龙虾不是海里的，是淡水虾。小龙虾的真名叫“克氏原螯虾”是一种如假包换的淡水虾。小龙虾对环境的适应性较强，病害少，能在湖泊、池塘、河沟、稻田等多种水体中生长，养殖条件要求不高，养殖技术易于普及。

艺术漆培训建业佳士利艺术涂料特训,只要4、5天的时间,基本就能入门了,其他的就要靠工作多熟悉了。艺术漆起源于欧洲，先进的工艺也由欧洲蔓延开来，进入国内市场以后，以其新颖的装饰风格，不同寻常的装饰效果，倍受人们的欢迎和推崇。艺术涂料是一种新型的墙面装饰艺术漆，再加上现代高科技的处理工艺，使产品无毒，环保，同时还具备防水，防尘，燃等功能，优质艺术涂料可洗刷，耐摩擦，色彩历久常新。

我朋友就是专家，只要在某分类中得分前五名就是专家了，每周评选一次。没有任何报酬，满足一下自己的虚荣心吧。

可以在管道井分别关闭阀门、来分段测试一下，先确定具体哪一段，再在这一段分段寻找。

4只硅整流二极管（比如1N4001～1N4007系列）串联后与LED灯串联，正向串接，每只硅二极管压降0.7~0.75V，正好满足你的3V要求。一只硅二极管不足1毛钱。

埃尔发舒适性较高，内饰豪华，做工精致，价格偏高，唯雅诺品牌认知度高，内饰做工一般，迈特威和上面两款没法比，日产贵士还差不多

语音内容胆囊炎的患者在饮食方面的选择，主要需要注意的是，避免一些辛辣，油腻生冷等，相应的一些比较难以消化和对胆道和胃肠道的负担比较重的食物。在早餐的选择上可以进行一些，例如：粥，面食，以及一些低脂的牛奶等等。对于一些全脂牛奶以及煎炸的早餐，例如油条，油饼等等，是不建议食用的，由于这些食物有可能会导致患者的一个胆囊内部压力的继续的增高，而使疾病进一步加重。在疾病的静止期，也就是没有发生急性了胆囊的炎症期间，也需要尽量保持清淡饮食，以减少诱发胆囊炎的可能性。