江西省二級上機(jī)考試VF上機(jī)50題答案

《江西省二級上機(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)ELSEIFx

6、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