2014年计算机VB二级考试模拟题及答案解析

±€\r./0121.(SQR(x 2+y~2)/(a+b))\r(3)ÀcÁÂVÃÄ60ŸÆ@GÇÈÉÀcÁÂ@Ê˪VÇ°3±8Ì͎M½À\rc@ÎÏYÀcÐ9њ8ÒӀ\r./012L(ÀcÐ9Ô)\r(4)[4]Y}ÕÖM½8×؀\r./0121.(}ÕÙÚ)\r(5)kÛÜÙÚd@Ý}ÕÞ¼œ‹+ß¾@àœ‹+ß¾áGœ‹°5±€\r./0121.(ÛÜ)\r(6)N67œ‹9:;@âãäådU’}Õ@Xæ}Õçèbc@ég4ê1,ég5\rê2,SUV@“S@·ëìíîkãäåd@ïðéãäå8op€\rPrivateSubCommandl_Click()\rx=Val(Textl.Text)\rIf[6]Then\rPrintx\rElse\rTextl.Text="\r[7]\rEndIf\rEndSub\r./0121.(xMod4=1AndxMod5=2)2.(Textl.SetFocus)\r(7)ñòB8ASCIIóG66,g69:ô½õö÷U’8øùúdûüãøý8þ`\r}\rDim[8]\rFori=65To90\rpp(i)=0\rNext\rx$=InputBox("Enterastring”,x$)EvaluationWarning:ThedocumentwascreatedwithSpire.PDFfor.NET.\rx$=UCase$(x$)\rFori=lTo[9]\rn=Asc(Mid$(x$,i,1))\rIfn>=65Andn<=90Then\r[10]\rEndIf\rNexti\rFori=65To90\rIfpp(i)>0Then\rPrintChr$(i);pp(i)\rEndIf\rNext\r)*+,-1.(PP(65To90))2.(Len(x$))3.(pp(n)=pp(n)+1)\r345678-