江西省二级上机考试VF上机50题答案
cStr="1111001110000001111111100011111110"zStr=LEFT(cstr,1)cCnt=1FORn=2TOLEN(cStr)IFSubstr(cStr,n,1)=SUBSTR(cStr,n-1,1)&&比较相邻的两个字符是否相同，相同则累计字符数，否则记#cCnt=cCnt+1ELSEzStr=zStr+ALLTRIM(STR(cCnt))+"#"cCnt=cCnt+1ENDIFENDIFzStr=zStr+ALLTRIM(STR(cCnt))waitwindows"二进制压缩后为："+zstrcCnt=cCnt+1——cCnt=1ENDIF——endforn1=1n2=1nSum=n1+n2&&第1和2项之和i=2&&项数,初值为2DOWHILEnSum<=500nt=(1)n1=n2n2=t+n1nSum=nSum+n2i=i+1ENDDOi=(2)WAITWindows"前"+STR(i)+"项的和刚好不大于500"(1)n1(2)i+1str1=ThisForm.Text1.Valuestrleng=len(str1)str2=""Fori=1Tostrlengzf=str(str1,i,1)DoCasecasezf>='a'.AND.zf<='z'strasc=ASC(zf)+3ifstrasc>ASC("z")strasc=strasc-26endifstr2=str2+CHR(strasc)ncasezf>='A'.AND.zf<='Z'strasc=asc(zf)+3ifstrasc>ASC("Z")strasc=strasc-26endifstr2=str2+CHR(strasc)otherwisestr2=str2+zfendcaseendforThisForm.text2.value=str2CloseThisformzf=str(str1,i,1)——zf=substr(str1,i,1)CloseThisform——releasethisformDimea(40)store0toastore0toi,jnum=（1）Fori=1Tonuma(1)=1na(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(90*RAND())+10y=INT(90*RAND())+10ys=INT(1+2*RAND())&&随机产生运算符IFys=1Thisform.Text1.Value=STR(x,3)+"+"+STR(y,3)+"="ThisForm.Text1.Tag=STR(x+y)ELSEIFx
=Sqrt(xi)Thisform.Label2.Visible=.T.ELSEThisform.Label3.Visible=.T.ENDIFENDIFLoop——exitIFi>=Sqrt(xi)——IFi>Sqrt(xi)nIFThisform.Label1.Fontsize<36Thisform.Label1.Fontsize=（1）ELSEIFThisform.Label1.Fontsize=36Thisform.Label1.Fontsize=（2）ENDIFENDIF（1）Thisform.Label1.Fontsize+1（2）8SETTALKOFFnCnt=0FORi=1TO10ACCEPT"请输入第"+STR(i,2)+"个数字："TOxIFMOD(x/2)=0nCnt=nCnt+1ENDIFENDFOR?"偶数个数的统计结果是：",nCntCANCELIFMOD(x/2)=0——IFMOD(val（x），2)=0?"偶数个数的统计结果是：",nCnt——?"偶数个数的统计结果是：",+str（nCnt）nCLEARFORa=1TO10000x=LEN(ALLTRIM(STR(a)))b=0FORc=1Toxz=SUBSTR(ALLT(（1）)b=b+VAL(z)**xENDFORIF（2）?"Ls",aENDIFENDFOR（1）str（a）),c,1（2）a=bSETTALKOffCLEARINPUT"A="TOaCLEARThisform.label1.visible=.t.docasencasetype('a')="C"Thisform.label1.caption=a+"--字符型数据"casetype('a')="D"Thisform.label1.caption=a+"--日期型数据"casetype('a')="N"Thisform.label1.caption=a+"--数值型数据"endcaseSETTALKONThisform.label1.caption=a+"--日期型数据——Thisform.label1.caption=dtoc（a）+"--日期型数据"Thisform.label1.caption=a+"--数值型数据"——Thisform.label1.caption=str（a）+"--数值型数据"SETTALKOFFclearS=1N=1X=2Y=1DOWHILEN(1)S=S+Y/XY=XnX=(2)N=N+1ENDDO?"1+1/2+2/3+3/4+...=",SSETTALKON(1)<30(2)X+1settalkoffclearfork=1to3fori=1toiif(k=1,5,4)??iif(k=1,space(5-i),space(i))forj=1toif(k=1,2*i-1,9-2*i)??"*"endfor?endforendforsettalkonfork=1to3——fork=1to2forj=1toif(k=1,2*i-1,9-2*i)修改为：forj=1toniif(k=1,2*i-1,9-2*i)settalkoffs=(1)fori=1to200s=s+(2)endforThisForm.Text1.Value=ssettalkon（1）0（2）i*(i+1)ifthis.value=1thisform.text1.fontunderline=.t.elsethisform.text1.fontStrikethru=.f.endififthis.value=1thisform.text1.fontStrikethru=.t.elsethisform.text1.fontunderline=.f.endifnthisform.text1.fontStrikethru=.f.修改为：thisform.text1.fontStrikethru=.t.thisform.text1.fontunderline=.f.修改为：thisform.text1.fontunderline=.t.SETTALKOFFCLEARA=A=VAL(THISFORM.TEXT1.VALUE)B=VAL(THISFORM.TEXT2.VALUE)Y=(1)FORI=YTO1STEP-1IFINT(A/I)=A/IIFINT(B/I)=B/IN=IEXITENDIFENDIFENDFORTHISFORM.TEXT3.VALUE=STR(N)wait''SETTALKONnSETTALKOFFCLEARM=VAL(THISFORM.TEXT1.VALUE)N=VAL(THISFORM.TEXT2.VALUE)X=MAX(M,N)FORI=XTO(2)IFINT(I/M)=I/MIFINT(I/N)=I/NA=IEXITENDIFENDIFENDFORTHISFORM.TEXT3.VALUE=STR(A)wait''SETTALKON（1）MIN(A,B)（2）M*NN=Thisform.Optiongroup1.Optional1.valuenr=Val(Thisform.Text1.value)doeasecaseN=1thisform.text2.Value=2*3.14*rcaseN=2thisform.text2.Value=3.14*r*rendcasethisform.refresh（1）N=Thisform.Optiongroup1.Optional1.value修改为：N=Thisform.Optiongroup1.value（2）doease修改为：docaseSETTALKOFFCLEARINPUT"A="TOAINPUT"B="TOBDO（1）WITHA,B?A,BPROCsubPARAD1,D2IFD110（1）ENDIFIFX=INT(X/3)*3?XELSE（2）ENDIFENDDOSETTALKON（1）EXIT(10分)（2）LOOP(10分)thisform.list1.rowsource="成绩.学号"thisform.list1.rowsource=6thisform.list1.rowsource=6修改为：nThisform.List1.Rowsourcetype=6CLEAA=10DIMEX(A)FORI=1TO10INPUT"X="TOX(I)ENDFORS=0K=13DOWHILE(K（1）)S=S+（2）(X(K))K=K+1ENDDO?S（1）<=A（2）ABSSETDELETEonUSE职工nDELETEALLIFEMPTY(THIS.VALUE)RETURN.F.ELSERECALLALLLOCATEFORALLTRIM(职工号)=ALLTRIM(THIS.VALUE)IFFOUND()DELETEALLRECALLFORALLTRIM(职工号)=ALLTRIM(THIS.VALUE)ELSERECALLALLMESSAGEBOX("查无此人!",0,"提示信息")ENDIFRETURN.T.ENDIFTHISFORM.REFRESH（1）USE职工修改为：SELECT职工（2）RECALLALL修改为：DELETEALLnSETTALKOFFCLEARS=0N=1STORE0TOMAX,MINDOWHILEN<=8INPUT"X="TOXS=S+XIFMAX（1）MAX=XENDIFIFMIN>X（2）ENDIFN=N+1ENDDO?"AVERAGE="+STR((S-MAX-MIN)/6,19,2)wait''SETTALKON（1）CAndA+C>BAndB+C>AIF((A=B)OR(A=C))MESSAGEBOX("等边三角形")EndIfnIF((A*A=B*B+C*C)OR(B*B=A*A+C*C)ANDC*C=A*A+B*B)MESSAGEBOX("直角三角形")EndIfMESSAGEBOX("构成三角形")ElseMESSAGEBOX("不是三角形")EndIf（1）IF((A=B)OR(A=C))改为：IF((A=B)AND(A=C))（2）IF((A*A=B*B+C*C)OR(B*B=A*A+C*C)AND（C*C=A*A+B*B)）改为：IF((A*A=B*B+C*C)OR(B*B=A*A+C*C)OR(C*C=A*A+B*B))S=1T=1FORI=2TO9T=【1】+IS=【2】ENDFORTHISFORM.TEXT1.VALUE=S（1）T*10n（2）S+TA=VAL(THISFORM.TEXT1.VALUE)B=VAL(THISFORM.TEXT2.VALUE)C=VAL(THISFORM.TEXT3.VALUE)IfA+B>CORA+C>BAndB+C>AP=(A+B+C)/2S=SQRT(P*(P-A)*(P-B)*(P-C))THISFORM.TEXT4.CAPTION=SElseMESSAGEBOX("不是三角形")EndIfIfA+B>CORA+C>BORB+C>A改为：IfA+B>CANDA+C>BANDB+C>Aa=1b=2s=0fori=1to50s=s+（1）（2）b=b+ana=cendforThisForm.Text1.Value=s（1）b/a（2）c=bSETTALKOFFCLEARM=VAL(THISFORM.TEXT1.VALUE)N=MDOWHILEINT(N)!=NN=MENDDOSTORMOD(N,10)TOXDOWHILEN>0R=MOD(N,10)IFR<>0X=RENDIFN=INT(N/10)ENDDOnTHISFORM.TEXT2.VALUE=XSETTALKON（1）N=M改为：N=N*10（2）IFR<>0改为：IFR（2）5nSETTALKOFFCLEARM=VAL(THISFORM.TEXT1.VALUE)N=MDOWHILEINT(N)=NN=N*10ENDDOSTORMOD(N,10)TODDOWHILEN>0R=MOD(N,10)IFR>DD=RENDIFN=INT(N)ENDDOTHISFORM.TEXT2.VALUE=DSETTALKON（1）DOWHILEINT(N)=N改为：DOWHILEINT(N)!=N（2）N=INT(N)改为：N=INT(N/10)SetTalkOffnP=1C=0S=0ForI=1to30C=P+（1）P=CS=（2）EndForThisform.Text1.Value=SSetTalkON（1）I-1（2）S+C/IA=Thisform.label1.CaptionThisform.label2.Caption=Thisform.label3.CaptionThisform.label3.Caption=A（1）A=Thisform.label1.caption改为：A=Thisform.label2.CaptionA=Thisform.label1.CaptionThisform.label1.Caption=Thisform.label3.ValuenThisform.label3.Caption=A(2)Thisform.label1.Caption=Thisform.label3.Value改为：Thisform.label1.Caption=Thisform.label3.CaptionCLEAA=10DIMEX(A)FORI=1TO10X(I)=IENDFORS=0K=1DOWHILE(K（1）)S=S+（2）(X(K))K=K+1ENDDO?S（1）<=A（2）SQRTnsettalkoffclearr=1cc=10dowhiler<=6s=1dowhiles<=2*r@r,ccsay"*"cc=cc+1s=s+1enddocc=rr=r+1enddo（1）dowhiles<=2*r改为：dowhiles<=2*r-1(2)cc=r改为：cc=10-rclearfori=1to8?space(8-i)forj=1to（1）nifj<=i??allt(str(j))else??allt(str(（2）))Endifendforendfor（1）2*i-1（2）2*i-jthisform.text1.value=str(thisform.text1.value)thisform.release（1）thisform.text1.value=str(thisform.text1.value)改为：thisform.text1.value=Upper(thisform.text1.value)(2)thisform.release改为：thisform.refreshSETTALKOFFCLEARs=0ni=2DOWHILEi<=100s=（1）i=（2）ENDDO?"2+4+6+8+…+100=",swait''SETTALKON（1）s+i(2)i+2SETTALKOFFX=0FORI=1TO5ACCEPT"请输入第"+STR(I,2)+"个数："TOAIFMOD(A,2)=0X=X+1ENDIFENDFOR?"奇数的个数为：",XSETTALKONn（1）ACCEPT"请输入第"+STR(I,2)+"个数："TOA改为：INPUT"请输入第"+STR(I,2)+"个数："TOA（2）IFMOD(A,2)=0改为：IFMOD(A,2)<>0SETTALKOffCLEARINPUT"A="TOAINPUT"B="TOBINPUT"C="TOCifb>a（1）a=bb=dendififc>ad=a（2）c=dendififc>bd=bnb=cc=dendif?a,b,cSETTALKON（1）d=a(2)a=cThisform.Text1.value=TimeThisform.Refresh（1）Thisform.Text1.value=Time改为：Thisform.Text1.value=Time()Thisform.timer1.enabled=.T.(2)Thisform.timer1.enabled=.T.改为：Thisform.timer1.enabled=.F.clearsum=0fori=10to（1）forj=2toi-1nifi%j=0exitendifendforifj>=ia=int(i/10)b=i%10x=(2)fory=2tox-1ifx%y=0exitendifendforify>=x?alltrim(str(i)),"是个素数",alltrim(str(x)),"也是素数"sum=sum+iendifendifendfor?"求和结果是",sum（1）99n（1）b*10+aSETTALKOFFX=0FORI=1TO6ACCEPT"请输入第"+STR(I,2)+"个数"TOAIFMOD(A,2)=0X=I+1ENDIFENDFOR?"偶数的个数为：",XSETTALKON（1）ACCEPT"请输入第"+STR（I，2）+"个数"TOA改为：INPUT"请输入第"+STR(I,2)+"个数"TOA（2）X=I+1改为：X=X+1thisform.Label1.fontsize=thisform.Label1.fontsize+1ifthisform.Label1.fontsize=（1）thisform.Label1.fontsize=（2）endifnthisform.refresh（1）30（2）aThisform.Label2.Enabled=.T.IfThis.Value=1Thisform.Label2.Value="太阳为什么从东边升起？"ENDIFIfThis.Value=2Thisform.Label2.Caption="中国有多少人口？"ENDIFIfThis.Value=3Thisform.Label2.Caption="为什么有时会同时看到太阳和月亮？"ENDIFIfThis.Value=4Thisform.Label2.Caption="三个代表是什么？"ENDIFThisform.Refresh（1）Thisform.Label2.Enable=.T.改为：Thisform.Label2.Visible=.T.n（1）Thisform.Label2.Value="太阳为什么从东边升起？"改为：Thisform.Label2.Caption="太阳为什么从东边升起？"SETTALKOFFCLEARFORX=0TO100FORY=0TO100FORZ=0TO(1)IF3*X+5*Y+Z/3=100(2)X+Y+Z=100?"公鸡、母鸡、小鸡的数量分别是：",X,Y,ZENDIFENDFORENDFORENDFORSETTALKON（1）100（2）ANDSETDELETEONnUSE车票票价表DELETEALL（1）USE车票票价表改为：SELECT车票票价表IFEMPTY(THIS.VALUE)RETURN.F.ELSERECALLALLLOCATEFORALLTRIM(车票代码)=ALLTRIM(THIS.VALUE)IFFOUND()RECALLALLRECALLFORALLTRIM(车票代码)=ALLTRIM(THIS.VALUE)ELSEDELETEALLMESSAGEBOX("查无此票!",0,"提示信息")ENDIFRETURN.T.ENDIFTHISFORM.REFRESH（2）RECALLALL改为：DELETEALLSETTALKOFFnCLEARSUM=0.0A=2.0B=4.0K=3FORI=1TO30?ALLTRIM(STR(A))+'/'+ALLTRIM(STR(B))SUM=SUM+（1）A=A+2B=（2）I=I+1?SUMENDFORSETTALKON（1）A/B（1）B+KThisform.Pageframe1.Pages(1).Enabled=.F.IfThisform.Pageframe1.Page1.Text1.Value="cg"ThenThisform.Pageframe1.Pages(2).Enabled=.T.Thisform.Pageframe1.Pages(3).Enabled=.F.nThisform.Pageframe1.Pages(4).Enabled=.F.Thisform.Pageframe1.Activepage=2endifIfThisform.Pageframe1.Page1.Text1.Value="jsjm"ThenThisform.Pageframe1.Pages(2).Enabled=.F.Thisform.Pageframe1.Pages(3).Enabled=.T.Thisform.Pageframe1.Pages(4).Enabled=.F.Thisform.Pageframe1.Enabled=3EndifIfThisform.Pageframe1.Page1.Text1.Value="yj"ThenThisform.Pageframe1.Pages(2).Enabled=.F.Thisform.Pageframe1.Pages(3).Enabled=.F.Thisform.Pageframe1.Pages(4).Activepage=.T.Thisform.Pageframe1.Activepage=4EndifThisform.Refresh（1）Thisform.Pageframe1.Enable=3改为：Thisform.Pageframe1.Activepage=3(2)Thisform.Pageframe1.Pages(4).Activepage=.T.改为：Thisform.Pageframe1.Pages(4).Enabled=.T.nSETTALKOFFCLEARX=thisform.text1.valueC=SPACE(0)L=LEN(X)FORI=1TOLstep（1）R=（2）(X,I,2)C=R+CENDFORthisform.text2.value=Cwait''SETTALKON（1）2（2）SUBSTRThisform.Combo1.Rowsource="客户.客户号"Thisform.Combo1.Rowsource=6(2)Thisform.Combo1.Rowsource=6改为：Thisform.Combo1.RowsourceTYPE=6SETTALKOFFnCLEARSTORE1TOXDOWHILE（1）Y=1DOWHILEY<=9Z=X*YZ1=STR(Z,2)??STR(X,1)+"X"+STR(Y,1)+"="+Z1+""Y=（2）ENDDOX=X+1?ENDDOSETTALKOFF（1）x＜=9（2）Y+1THISFORM.COMMAND1.ENABLED=.t.THISFORM.COMMAND2.ENABLED=.t.（1）THISFORM.COMMAND1.ENABLED=.t.改为：THISFORM.COMMAND1.ENABLED=.f.nSKIPIFEOF()SKIP-1THISFORM.COMMAND2.ENABLED=.T.ENDIFIF!BOF()THISFORM.COMMAND1.ENABLED=.T.ENDIFTHISFORM.REFRESH（2）THISFORM.COMMAND2.ENABLED=.T.改为：THISFORM.COMMAND2.ENABLED=.F.SETTALKOFFclearX=VAL(thisform.text1.value)S=0DOWHILE.T.N=（1）(X,10)IFN=3S=S+1ENDIFnX=（2）(X/10)IFX=0EXITENDIFENDDOthisform.text2.value=STR(S)SETTALKON(1)MOD(2)INTdocasecasethis.value=1thisform.text1.fontbold="黑体"casethis.value=2thisform.text1.fontname="楷体"casethis.value=3thisform.text1.fontname="仿宋"endcase(1)thisform,tetx1.fontbold="黑体"改为：thisform.text1.fontname="黑体"nifthis.value=1thisform.text1.fontunderline=.t.elsethisform.text1.fontStrikethru=.f.endif（2）thisform.text1.fontnnderline=.t.改为：thisform.text1.fontStrikethru=.t.settalkoffclearf1=1f2=1fori=（1）to20f=（2）f1=f2f2=fendfor?"第二十项的值为："+str(f)settalkon（1）3（2）f1+f2nThisform.Pageframe1.Pages(1).Enabled=.F.IfThisform.Pageframe1.Page1.Text1.Value="2"ThenThisform.Pageframe1.Pages(2).Enabled=.T.Thisform.Pageframe1.Pages(3).Enabled=.F.Thisform.Pageframe1.Enabled=2endifIfThisform.Pageframe1.Page1.Text1.Value="3"ThenThisform.Pageframe1.Pages(2).Enabled=.F.Thisform.Pageframe1.Pages(3).Activepage=.T.Thisform.Pageframe1.Activepage=3EndifThisform.Refresh（1）Thisform.Pageframe1.Enable=2改为：Thisform.Pageframe1.Activepage=2（2）Thisform.Pageframe1.Pages(3).Activepage=.T.改为：Thisform.Pageframe1.Pages(3).Enabled=.T.a=Val(Thisform.Text1.value)b=Val(Thisform.Text2.value)c=Val(Thisform.Text3.value)nif(a>b)（1）endifif(a>c)（2）endifThisform.Text4.value=athisform.refresh（1）a=b（2）a=ca=Val(Thisform.Text1.value)b=Val(Thisform.Text2.value)c=Val(Thisform.Text3.value)if(a0（2）>=0CJ=成绩DOCASECASECJ>=90DJ="优"CASECJ>=80DJ="良"CASECJ>=70DJ="中"CASECJ>=60DJ="及格"OTHERWISEDJ="不及格"ENDCASEnThisform.text1.Caption=DJwait''thisform.refresh（1）CJ=成绩改为：CJ=分数.成绩（2）Thisform.text1.caption=DJ改为：Thisform.text1.VALUE=DJSETTALKOFFCLEARX=((1)(thisform.text1.value))IFX(2)IFX>5Y=X*X-1ELSEY=3*X*X+2*XENDIFELSEY=X^3ENDIFthisform.text2.value=STR(Y)SETTALKONnwait''RETURN（1）VAL（2）>0SETTALKOFFCLEARDOWHILE.NOT.EOF()IFMOD((学号),2)=0?姓名,学号ENDIFSKIP-1ENDDOSETTALKONwait''SETTALKON（1）IFMOD((学号),2)=0改为：IFMOD(val(学号),2)=0（1）SKIP-1改为：SKIPSETTALKOFFnCLEARDIMEA(4)DOWHILE.T.ACCEPT"学号"TOA(1)ACCEPT"姓名:"TOA(2)ACCEPT"课程号:"TOA(3)INPUT"成绩:"TOA(4)APPENDBLANK(1)FROMAWAIT"继续添加吗?(Y/N)"TOYNIFUPPER((2))="Y"LOOPELSEEXITENDIFENDDOwait''THISFORM.RELEASESETTALKON（1）GATHER（2）YNnSKIP-1IFBOF()THISFORM.COMMAND1.ENABLED=.T.ENDIFIF!EOF()THISFORM.COMMAND2.ENABLED=.T.ENDIFTHISFORM.REFRESH（1）THISFORM.COMMAND1.ENABLED=.T.改为：THISFORM.COMMAND1.ENABLED=.F.SKIPIFEOF()THISFORM.COMMAND2.ENABLED=.F.SKIP-1ENDIFIF!BOF()THISFORM.COMMAND1.ENABLED=.F.ENDIFTHISFORM.REFRESH(2)THISFORM.COMMAND1.ENABLED=.F.改为：nTHISFORM.COMMAND1.ENABLED=.T.SETTALKOFFsettalkoffS=0T=1k=-1fori=1to1000000step2k=(1)T=1/iS=S+(2)endfTHISFORM.Text1.VALUE=4*SSETTALKON（1）-k（2）k*TSELECT客户号,定货.订单号,SUM(单价*数量)AS总金额;HAVING客户,定货;WHERE客户.订单号=定货.订单号;GROUPBY客户号;GROUPBY定货.订单号;nINTOTABLEnewtThisform.Grid1.RecordSource="newt"Thisform.grid1.Visible=.t.（1）HAVING客户，定货；改为：FROM客户,定货;（2）GROUPBY客户号；改为：ORDERBY客户号;SETTALKOFFCLEARINPUT"A="TOAINPUT"B="TOBSTORE0TOSM,SNDO(1)WITHA,SMDOJC2WITHB,SNDOJC2WITHA-B,B?"表达式结果为S="+STR((SM+SN)/B,10,2)SETTALKONPROCJC2PARAX,YnI=1T=1DOWHILEI<=XT=(2)I=I+1ENDDOY=TRETURN（1）JC2（2）T*ISETTALKOFFT=1.0E=1.0N=1.0S=1.0DOWHILE(S>0.0000001)T=(1)S=1.0/TE=(2)N=N+1nENDDOTHISFORM.Text1.VALUE=ESETTALKON（1）T*N（2）E+SSELECT姓名,出勤天数,(出勤天数)AS未迟到天数;FROM出勤情况;INTOTABLEtable1Thisform.Grid1.RecordSource="table1"Thisform.grid1.Visible=.f.（1）SELECT姓名，出勤天数，（出勤天数）AS未迟到天数；改为SELECT姓名,出勤天数,(出勤天数-迟到次数)AS未迟到天数;SETtalkoffCLEARFORi=1TO9FORj=1TO(1)n??allt(STR(i))+"×"+ALLTRIM(STR(j))+"="+ALLTRIM(STR((2)))+""ENDFOR?endforSETTALKON（1）i（2）i*jthisform.timer1.enabled=.t.privateh,m,sstore0toh,m,sthisform.text1.value="00:00:00"thisform.refresh（1）Privateh,m,s改为：publich,m,ss=s+1ifs=60m=m+1s=0ifm=60h=h+1nm=0ifh=60h=0endifendifendifh1=iif(h<10,'0'+str(h,1),str(h,2))m1=iif(m<10,'0'+str(m,1),str(m,2))s1=iif(s<10,'0'+str(s,1),str(s,2))thisform.text1.value=h1+":"+m1+":"+s1thisform.refresh（1）ifh=60改为：ifh=24settalkoffxh=alltrim(thisform.text1.value)locafor学号=xhiffound()(1)成绩topjfor学号=xhthisform.text2.value=xhthisform.text3.value=(2)elsethisform.text2.value=""nthisform.text3.value=""messagebox("无该生的成绩！","错误")endifthisform.refresh（1）aver（2）pjN=Thisform.Optiongroup1.Optional1.valuea=Val(Thisform.Text1.value)b=Val(Thisform.Text2.value)doeasecaseN=1thisform.text3.Value=a+bcaseN=2thisform.text3.Value=a-bcaseN=3thisform.text3.Value=a*bcaseN=4thisform.text3.Value=a/bendcasethisform.refreshn（1）N=Thisform.Optiongroup1.Optional1.ralue改为：N=Thisform.Optiongroup1.value（2）doease改为：docaseSETTALKOFFclearX=thisform.text1.valueL=LEN(X)S=0FORI=1TOLN=(1)(X,I,1)IFN="A"S=(2)ENDIFENDFORthisform.text2.value=STR(S)SETTALKON（1）SUBSTR（2）S+1ndocasecasethis.value=1thisform.text1.fontSize=0casethis.value=2thisform.text1.alignment=2casethis.value=3thisform.text1.alignment=1endcasethisform.refresh(2)thisform.text1.fontsize=0改为：thisform.text1.alignment=0SETTALKOFFCLEAR?"2~500之间的同构数为:"FORX=2TO500P=(1)L=LEN(ALLTRIM(STR(X,19)))IFALLTRIM(STR(X,19))=(2)(ALLTRIM(STR(P,19)),L)??XENDIFENDFORnWAIT''SETTALKON（1）X*X（2）RIGHTSETTALKOFFclearThisform.Label2.Visible=.f.X=val(Thisform.Text1.Value)IFINT(X/2)<>X/2Thisform.label2.Caption="该数为偶数!"ELSEThisform.label2.Caption="该数为奇数!"ENDIFSETTALKON（1）Thisform.Label2.Visible=.f.改为：Thisform.Label2.Visible=.t.（2）IFINT(X/2)<>X/2改为：IFINT(X/2)=X/2nSETTALKOFFCLEARX=Thisform.Text1.valueP=SPACE(0)L=(1)I=1DOWHILEIthisform.label3.visible=.t.ifthisform.text1.value="Admin"orthisform.text2.value="1234"thisform.label3.caption="欢迎使用本系统!"elsethisform.label3.caption="用户名或密码不对，请重新输入"thisform.N=N+1endifthisform.refreshifthisform.N=3thennthisform.label3.caption="用户名或密码错误，您无权进入!"endif（1）ifthisform.text1.value="Admin"orthisform.text2.value="1234"改为ifthisform.text1.value="Admin"andthisform.text2.value="1234"（2）thisform.N=N+1改为：thisform.N=thisform.N+1SETTALKOFFCLEARM=(1)N=VAL(THISFORM.TEXT2.VALUE)X=MAX(M,N)FORI=XTO(2)IFINT(I/M)=I/MIFINT(I/N)=I/NA=IEXITENDIFENDIFENDFORnTHISFORM.TEXT3.VALUE=STR(A)wait''SETTALKON（1）VAL(THISFORM.TEXT1.VALUE)(2)M*NSETTALKOFFCLEARA=VAL(THISFORM.TEXT1.VALUE)B=VAL(THISFORM.TEXT2.VALUE)Y=(1)(A,B)FORI=YTO1STEP-1IFINT(A/I)=(2)IFINT(B/I)=B/IN=IEXITENDIFENDIFENDFORTHISFORM.TEXT3.VALUE=STR(N)wait''nSETTALKON（1）MIN（2）A/Is=1p=1N=VAL(thisform.text1.value)fori=1toNp=is=s+pendforthisform.text2.value=str(s)（1）s=1改为:s=0（1）p=i改为：p=p*iclearinput"请输入一个整数"tonflag=0fori=2ton-1ifn/i=int(n/i)n(1)endifendfor?nif(2)??"不是一个素数"else??"是一个素数"endifreturn（1）exit（2）i!=n
