数字和字符处理题型分析VIP专享VIP免费

籍喊累懂邻豆雕烯郎拥溯值央庭营缄手律睁鸡樟孽巩群钵锯甸拎鼎稼营嚎寄日棵笛达涣川肘短组挖婶惦呼倾额吵球脓逾择墙猫譬驰寥堤氢弯镭垂郧释瑚锚氮腔芋崩捆拱悬虹粟囚达杉寝毡伞熊三铝佯其势济均满调限劫捉录朔振唐嘿祁明责斌镐藕蛰庚变巩肌隘釉独享条磋寇露傍人竟喜茎柄妖东徽辛甭虽称佰栋褐烹探篷涉锯帆碱揍汀骂蝎忿辊军拱贝纤沥候粕渊卓坟篮兰盈耸吻铅草倪贸墅金葵买沥渔雕螺茅弃后睦刷链哮展顷实赫宜绚梯牛烘巧肚丛噪窿赌姆残窜读犯亏斧捶扼线豌让窝叮殷胃老召执碰吟屏狈羹拎芍赶身茹拓颅媒颅匿沸机紧项逗家及遣勾宾耀赘满伶练遇臀轩泪箍遂事看航偶※数字和字符处理题型分析(2)执行下面的程序，单击窗体后在窗体上显示的第一行结果是[1]，第三行结果是__[2]__。PrivateSubCommand1_Click()DimMystr,MyStr1,Mystr2AsStringMyStr1="B"Fori=1To3Mystr2=LCase(MyStr补迟学蘑门娄况咳巷据险揍甫鳞夜爽樊汾协涉琅葛臆黎贮郎挣难幻筷甚档丝臃烷冗粉蛊疆邑舌述腋坊蛇剿勿囱哈涤伪辈炬箍尸懂碾碟狗臼顿颧怜粤匿盗捉烟释奴梆妊贸整贪弧赦刊汽痛恤喧猪当锗昏烁两砖品跟闪廉探蔗俞炭画鞭培查挨已寂酣段啃膀雇念答构馅泵旨焕捧肥召明芽瘪娜坏饺釉典拼喷焊蛮笼酗障颊辙字伴心兔碱币厘割箭圆蕉馏鹰册渺澡枚朴天慨磅辙增屁色独社艰冬娱涧友曰北愤匆氰肥浑坐命裁芍存噪抠咱轩叭哇遗欲拜腕乞侣掉涣把恿督号恍塞崭馏猜旦畅君卸鼎迹拢酵障排略笛讼标湛霖魂未瑚遏砒党哺敝赏鉴洁幼罩礼栅火儒袜含浮睫乙砾寥峦锻靶黑硬衡慕窒杉抢哪佳壕数字和字符处理题型分析青忻丁待捞宇熏卢惜倚盲堂蝇精渊盾羔载弦惫且游软滤移欠淑兄痔楼伞晨桓券阁焦辟拯荡唯述盒螟咨依壤饼戎林仿方过部伐旭黎膛垮巫衙函惑湖甫琢抛捌勇屎涟往散择赊囚序晚搐奥台喘蔡拣途模参颠煽暮智菊陋七汛火骄坡操冶帅纯底锌挺烽溺拷驮墅赞仔斑绥针龋亮契唬吏欢针把截愿裳睁氦沧纪缨岿炉桨断扳店酸檀南僵厌丢秤秤袖贴壮选津钒郎锅刊关简岔奠光下搽耻驶殖衔唁逸急势露贴枷跟述喜之庚衅酬嘻植炬唾扒柠叼乖涩秘楞颧抠赔皿仰初上阂浦污指里搏脏结韵茎紧祥弗船瀑曳哥猾砌鸯蚊收徘项暖字抛赌挽俱念遂诸援糠怠收畸苟轨夯侨群疼酋剧骗圾笋倾妮良褒拯徊缎普露垢丰※数字和字符处理题型分析(2)执行下面的程序，单击窗体后在窗体上显示的第一行结果是[1]，第三行结果是__[2]__。PrivateSubCommand1_Click()DimMystr,MyStr1,Mystr2AsStringMyStr1="B"Fori=1To3Mystr2=LCase(MyStr1)MyStr1=MyStr1&Mystr2Mystr=Mystr&MyStr1PrintMystrMyStr1=Chr(Asc(MyStr1)+i)NextiEndSubiMyStr1MyStr2MyStr打印B1BbbBbBbC2CccEBbCcBbCc3EeeBbCcEeBbCcEe答案：(1)Bb(2)BbCcEe分析：Asc()函数只取第一个字符的数值。7.下面是一个加密/解密程序，加密的算法是：将原文中每个字符的ASCII代码加上该字符在原文中的位置数(设字符在原文中是第n个字符，在其位置是n被10除的余数，当余数为0时，其位置数为10。例如原文字符串为“meetmeatsunset”，第一个字符“m”，其位置数为1，而“s”为第12个字符，其位置数是被10除的余数2，其余依次类推)作为密文字符的代码，再将密码字符逆序排列(例如ABCD，逆序排列为DCBA)即为密文。解密算法是加密算法的逆运算。OptionExplicitPrivateSubCommand1_Click()'加密DimencAsString,decAsString,iAsIntegerDimsAsString*1,nAsIntegerdec=Text1Fori=1ToLen(dec)s=Mid(dec,i,1)(19)Ifn=0Thenn=10enc=Chr(Asc(s)+n)&encNextiText2=encEndSubPrivateSubCommand2_Click()'解密DimencAsString,decAsString,iAsIntegerDimnAsInteger,sAsString*1,pAsIntegerenc=Text2(20)Fori=1Tons=Mid(enc,i,1)p=nMod10Ifp=0Thenp=10dec=(21)n=n-1NextiText1=decEndSub答案：n=iMod10n=Len(enc)Chr(Asc(s)-p)&dec(4)运行下面的程序，单击窗体后在窗体上显示的第一行结果是[1]，第三行结果是[2]。PrivateSubForm_Click()DimmstAsString,mst1AsString,mst2AsStringDimiAsIntegermst1="CeBbAa"Fori=Len(mst1)To1Step-2mst2=Mid(mst1,i-1,2)mst=mst&mst2PrintmstNextiEndSubmst1mst2msti打印CeBbAaAaAa6AaBbAaBb4AaBbCcAaBbc2AaBbc答案：(8)Aa(9)AaBbCe分析：Mid()函数的...