資源描述:
《江西省二級上機(jī)考試VF上機(jī)50題答案》由會員上傳分享,免費(fèi)在線閱讀,更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、cStr="1111001110000001111111100011111110"zStr=LEFT(cstr,1)cCnt=1FORn=2TOLEN(cStr)IFSubstr(cStr,n,1)=SUBSTR(cStr,n-1,1)&&比較相鄰的兩個字符是否相同,相同則累計(jì)字符數(shù),否則記#cCnt=cCnt+1ELSEzStr=zStr+ALLTRIM(STR(cCnt))+"#"cCnt=cCnt+1ENDIFENDIFzStr=zStr+ALLTRIM(STR(cCnt))waitwindows"二進(jìn)制壓縮
2、后為:"+zstrcCnt=cCnt+1——cCnt=1ENDIF——endforn1=1n2=1nSum=n1+n2&&第1和2項(xiàng)之和i=2&&項(xiàng)數(shù),初值為2DOWHILEnSum<=500t=(1)n1=n2n2=t+n1nSum=nSum+n2i=i+1ENDDOi=(2)WAITWindows"前"+STR(i)+"項(xiàng)的和剛好不大于500"(1)n1(2)i+1str1=ThisForm.Text1.Valuestrleng=len(str1)str2=""Fori=1Tostrlengzf=str(str
3、1,i,1)DoCasecasezf>='a'.AND.zf<='z'strasc=ASC(zf)+3ifstrasc>ASC("z")strasc=strasc-26endifstr2=str2+CHR(strasc)casezf>='A'.AND.zf<='Z'strasc=asc(zf)+3ifstrasc>ASC("Z")strasc=strasc-26endifstr2=str2+CHR(strasc)otherwisestr2=str2+zfendcaseendforThisForm.text2.val
4、ue=str2CloseThisformzf=str(str1,i,1)——zf=substr(str1,i,1)CloseThisform——releasethisformDimea(40)store0toastore0toi,jnum=(1)Fori=1Tonuma(1)=1a(i)=1Forj=i-1To2Step-1(2)nextForj=1Toi@i,j*5saystr(a(j),4)NextjNexti(1)val(thisformtext1value)(2)a(j)=a(j-1)+a(j)x=INT(
5、90*RAND())+10y=INT(90*RAND())+10ys=INT(1+2*RAND())&&隨機(jī)產(chǎn)生運(yùn)算符IFys=1Thisform.Text1.Value=STR(x,3)+"+"+STR(y,3)+"="ThisForm.Text1.Tag=STR(x+y)ELSEIFx6、ext2.Value=""ThisForm.Text1.Tag=x-y——ThisForm.Text1.Tag=STR(x+y)Text2.Value=""——ThisForm.Text2.Value=""SETTALKOFFz="123456"CLEARFORx=1TOLEN(z)?SPACE(6-x)FORy=1TO2*x-1??SUBSTR((1))ENDFORENDFORFORx=LEN(z)TO1(2)?SPACE(6-x)FORy=1TO2*x-1??SUBSTR(z,x,1)ENDFORENDFOR(
7、1)z,x,1(2)step-1CLEARINPUT"請輸入一個整數(shù):"TOnflag=0FORi=2TOn-1IFn/i=INT(n/i)flag=1(1)ENDIFENDFORIF(2)?STR(n)+"不是一個素?cái)?shù)!"ELSE?STR(n)+"是一個素?cái)?shù)!"ENDIFRETURN(1)exit(2)flag=1ys=Thisform.Optiongroup1.Option1.Valuea=VAL(Thisform.Text1.Value)b=VAL(Thisform.Text2.Value)DOCASECAS
8、Eys=1Thisform.Text3.Value=a+bCASEys=2Thisform.Text3.Value=a-bCASEys=3Thisform.Text3.Value=a*bCASEys=4IFb=0Thisform.Text3.Value=a/bENDIFENDCASEys=Thisform.Optiongroup1.Option1.Value