江西省二级上机考试VF上机50题答案.docx

1、江西省二级上机考试VF上机50题答案 cStr=1111001110000001111111100011111110zStr=LEFT(cstr,1)cCnt=1 FOR n=2 TO LEN(cStr) IF Substr(cStr,n,1)=SUBSTR(cStr,n-1,1) & 比较相邻的两个字符是否相同，相同则累计字符数，否则记# cCnt=cCnt+1 ELSE zStr=zStr+ALLTRIM(STR(cCnt)+# cCnt=cCnt+1 ENDIFENDIF zStr=zStr+ALLTRIM(STR(cCnt)wait windows 二进制压缩后为：+zstrcCnt=

2、 cCnt +1cCnt= 1 ENDIFendforn1=1n2=1nSum=n1+n2 &第1和2项之和i=2 &项数,初值为2DO WHILE nSum=a.AND.zfASC(z) strasc=strasc-26 endif str2=str2+CHR(strasc) case zf=A.AND.zfASC(Z) strasc=strasc-26 endif str2=str2+CHR(strasc) otherwise str2=str2+zf endcaseendforThisForm.text2.value=str2Close Thisform zf=str(str1,i,1)

3、zf=substr(str1,i,1) Close Thisformrelease thisformDime a(40)store 0 to astore 0 to i,jnum=（1） For i=1 To num a(1)=1 a(i)=1 For j=i-1 To 2 Step -1 （2） next For j=1 To i i,j*5 say str(a(j),4) Next jNext i（1） val(thisform text1 value) （2） a(j)=a(j-1)+a(j)x=INT(90*RAND()+10y=INT(90*RAND()+10ys=INT(1+2 *

4、 RAND() &随机产生运算符IF ys=1 Thisform.Text1.Value=STR(x,3)+STR(y,3)+= ThisForm.Text1.Tag=STR(x+y)ELSE IF xy t=x x=y y=x ENDIF ThisForm.Text1.Value=STR(x,3)+-+STR(y,3)+= ThisForm.Text1.Tag=x-y ENDIFThisForm.Text2.SetFocus()Text2.Value=ThisForm.Text1.Tag=x-y ThisForm.Text1.Tag=STR(x+y) Text2.Value=ThisForm

5、.Text2.Value=SET TALK OFFz=123456CLEARFOR x=1 TO LEN(z) ?SPACE(6-x) FOR y=1 TO 2*x-1 ?SUBSTR(（1）) ENDFORENDFORFOR x=LEN(z) TO 1 （2） ?SPACE(6-x) FOR y=1 TO 2*x-1 ?SUBSTR(z,x,1) ENDFORENDFOR （1） z,x,1 （2） step -1CLEARINPUT 请输入一个整数： TO nflag=0FOR i=2 TO n-1 IF n/i=INT(n/i) flag=1 （1） ENDIFENDFORIF （2）

6、?STR(n)+不是一个素数!ELSE ?STR(n)+是一个素数!ENDIF RETURN（1） exit （2） flag=1ys=Thisform.Optiongroup1.Option1.Value a=VAL(Thisform.Text1.Value)b=VAL(Thisform.Text2.Value)DO CASECASE ys=1 Thisform.Text3.Value=a+bCASE ys=2 Thisform.Text3.Value=a-bCASE ys=3 Thisform.Text3.Value=a*bCASE ys=4 IF b=0 Thisform.Text3.V

7、alue=a/b ENDIFENDCASEys=Thisform.Optiongroup1.Option1.Valueys=Thisform.Optiongroup1. Value IF b=0IF b！=0CLEARnum=0FOR a=1 TO 500 c=0 d= FOR b=1 TO a-1 IF （1） c=c+b d=d+,+STR(b) ENDIF ENDFOR IF a=c ?a ?d num=（2） ENDIFENDFOR WAIT WINDOWS 完数的个数是：+STR(num)（1） a/b=int(a/b) （2） num+1s=0n=1FOR i=1 TO 10 n=

8、n*i s=s*n ENDFORThisform.Text1=s s=s*ns=s+n Thisform.Text1=sThisform.Text1.value=sUSE szSORT TO sz1 ON num /DUSE sz1DO WHILE !EOF() bw=INT(num/100) sw=INT(num-100*bw)/10) gw=MOD(num,10) IF MOD(1),2)=0 DELETE ENDIF (2) ENDDOPACKLIST (1) bw+sw+gw (2) skipIF Thisform.Text1.text=xsl AND Thisform.Text2.t

9、ext=1357 Thisform.Caption=欢迎登录考试系统！ELSE Thisform.Caption=用户名或密码不对，请重新输入！ Thisform.flag=Thisform.flag+2 ENDIFIF thisform.flag=3 Thisform.Caption=超过指定次数，禁止登录！ Thisform.Refresh ENDIF j=1p=0s=0FOR i=1 TO 10 DO WHILE j=i p=p+（1） j=j+1 ENDDO s=s+pENDFOR? s=, （2） SET TALK ONRETURN （1） j2 （2） str(s)IF Thisf

10、orm.Label1.Visible=.T. Thisform.Label1.Visible=.F.ELSE Thisform.Label1.Visible=.F. ENDIFIF Thisform.Label1.Caption!=Time() Thisform.Label2.Caption=Time ENDIFThisform.Label1.Visible=.F.Thisform.Label1.Visible=.T. Thisform.Label2.Caption=TimeThisform.Label2.Caption=Time（）SET TALK OFFCLEARFOR i=10 TO 9

11、9 sw=INT(i/10) gw=MOD(i,10) j=（1） IF PRIME(i) AND PRIME(j) ?i ENDIFENDFORSET TALK ONRETURN*判断某数为素数的函数*FUNCTION PRIME()PARAMETER xy=（2） FOR k=2 TO SQRT(x) IF MOD(x,k)=0 y=.F. ENDIFENDFORRETURN yENDFUNC（1） gw*10+sw （2） .T.Thisform.Label2.Visible=.F.Thisform.Label3.Visible=.F.xi=Val(Thisform.Text1.Valu

12、e)IF xi=Sqrt(xi) Thisform.Label2.Visible=.T. ELSE Thisform.Label3.Visible=.T. ENDIFENDIF Loopexit IF i=Sqrt(xi)IF iSqrt(xi) IF Thisform.Label1.Fontsize36 Thisform.Label1.Fontsize=（1）ELSE IF Thisform.Label1.Fontsize=36 Thisform.Label1.Fontsize=（2） ENDIFENDIF（1） Thisform.Label1.Fontsize+1 （2） 8SET TAL

13、K OFFnCnt=0FOR i=1 TO 10 ACCEPT 请输入第+STR(i,2)+个数字： TO x IF MOD(x/2)=0 nCnt=nCnt+1 ENDIFENDFOR?偶数个数的统计结果是：,nCnt CANCEL IF MOD(x/2)=0IF MOD(val（x），2)=0 ?偶数个数的统计结果是：,nCnt ?偶数个数的统计结果是：,+str（nCnt） CLEARFOR a=1 TO 10000 x=LEN(ALLTRIM(STR(a) b=0 FOR c=1 To x z=SUBSTR(ALLT(（1）) b=b+VAL(z)*x ENDFOR IF （2） ?L

14、s,a ENDIFENDFOR （1） str（a）),c,1 （2） a=b SET TALK OffCLEARINPUT A= TO aCLEARThisform.label1.visible=.t.do case case type(a)=C Thisform.label1.caption=a+-字符型数据 case type(a)=D Thisform.label1.caption= a+-日期型数据 case type(a)=N Thisform.label1.caption= a+-数值型数据endcaseSET TALK ON Thisform.label1.caption= a

15、+-日期型数据Thisform.label1.caption=dtoc（a）+-日期型数据 Thisform.label1.caption= a+-数值型数据Thisform.label1.caption= str（a）+-数值型数据SET TALK OFFclearS=1N=1X=2Y=1DO WHILE N(1) S=S+Y/X Y=X X=(2) N=N+1ENDDO?1+1/2+2/3+3/4+.=,S SET TALK ON(1) 30 (2) X+1 set talk offclearfor k=1 to 3 for i = 1 to iif(k=1,5,4) ? iif(k=1,

16、space(5-i),space(i) for j=1 to if(k=1,2*i-1,9-2*i) ?* endfor ? endforendfor set talk onfor k=1 to 3for k=1 to 2 for j=1 to if(k=1,2*i-1,9-2*i) 修改为：for j=1 to iif(k=1,2*i-1,9-2*i)set talk offs= (1)for i=1 to 200 s=s+ (2) endfor ThisForm.Text1.Value=sset talk on （1） 0 （2） i*(i+1)if this.value=1 thisfo

17、rm.text1. fontunderline =.t.else thisform.text1.fontStrikethru=.f.endifif this.value=1 thisform.text1. fontStrikethru =.t.else thisform.text1.fontunderline=.f.endifthisform.text1.fontStrikethru=.f. 修改为：thisform.text1.fontStrikethru=.t.thisform.text1.fontunderline=.f. 修改为：thisform.text1.fontunderline

18、=.t.SET TALK OFFCLEAR A=A=VAL(THISFORM.TEXT1.VALUE) B=VAL(THISFORM.TEXT2.VALUE)Y= (1)FOR I=Y TO 1 STEP -1 IF INT(A/I)=A/I IF INT(B/I)=B/I N=I EXIT ENDIF ENDIFENDFORTHISFORM.TEXT3.VALUE=STR(N)wait SET TALK ONSET TALK OFFCLEAR M=VAL(THISFORM.TEXT1.VALUE)N=VAL(THISFORM.TEXT2.VALUE)X=MAX(M,N)FOR I=X TO

19、(2) IF INT(I/M)=I/M IF INT(I/N)=I/N A=I EXIT ENDIF ENDIFENDFORTHISFORM.TEXT3.VALUE=STR(A)wait SET TALK ON（1）MIN(A,B)（2）M*NN=Thisform.Optiongroup1.Optional1.valuer=Val(Thisform.Text1.value)do ease case N=1 thisform.text2.Value=2*3.14*r case N=2 thisform.text2.Value=3.14*r*rendcasethisform.refresh（1）N

20、=Thisform.Optiongroup1.Optional1.value 修改为：N=Thisform.Optiongroup1.value（2）do ease 修改为：do caseSET TALK OFF CLEAR INPUT A= TO AINPUT B= TO BDO （1） WITH A,B?A,BPROC subPARA D1,D2IF D110 （1） ENDIF IF X=INT(X/3)*3 ?X ELSE （2） ENDIF ENDDO SET TALK ON（1）EXIT(10分)（2）LOOP(10分)thisform.list1.rowsource=成绩.学号t

21、hisform.list1.rowsource=6thisform.list1.rowsource=6 修改为：Thisform.List1.Rowsourcetype=6CLEAA=10DIME X(A)FOR I=1 TO 10INPUT X= TO X(I)ENDFORS=0K=13DO WHILE (K（1）) S=S+（2）(X(K) K=K+1ENDDO?S（1）=A（2）ABSSET DELETE onUSE 职工DELETE ALLIF EMPTY(THIS.VALUE) RETURN .F.ELSE RECALL ALL LOCATE FOR ALLTRIM(职工号)=ALL

22、TRIM(THIS.VALUE) IF FOUND() DELETE ALL RECALL FOR ALLTRIM(职工号)=ALLTRIM(THIS.VALUE) ELSE RECALL ALL MESSAGEBOX(查无此人!,0,提示信息) ENDIF RETURN .T.ENDIFTHISFORM.REFRESH（1）USE 职工 修改为：SELECT 职工（2）RECALL ALL 修改为：DELETE ALL SET TALK OFFCLEARS=0N=1STORE 0 TO MAX,MINDO WHILE NX （2） ENDIF N=N+1ENDDO?AVERAGE=+ STR

23、(S-MAX-MIN)/6,19,2)wait SET TALK ON（1）X（2）MIN=XThisform.text1.value=职工.职称Thisform.Release（1）Thisform.text1.value=职工.职称 修改为：Thisform.text1.controlsource=职工.职称（2）Thisform.Release 修改为：thisform.refreshSET TALK OFFCLEARFOR N=1 TO 500 IF MOD(N,5)=0（1） (MOD(N,3)=0) IF （2）(N/2)!=N/2 ?N ENDIF ENDIFENDFORSET

24、TALK ON（1）.and.（2）INTSET TALK OFFX=0FOR I=1 TO 5 ACCEPT请输入第+STR(I,2)+个数： TO AFOR J=2 to A-1 if A/J=int(A/J) exit endifendfor if J=A X=J+1ENDIFENDFOR?素数的个数为：,XSET TALK ON（1）ACCEPT请输入第+STR(I,2)+个数： TO A 修改为：INPUT 请输入第+STR(I,2)+个数： TO A （2）X=J+1 修改为：X=X+1SET TALK OFFCLEARH=6FOR I=1 TO （1） IF I=H ?SPACE

25、(H-I+1) FOR J=1 TO 2*I-1 ?CHR(ASC(A)+（2）) ENDFOR ENDIFENDFORwait SET TALK ON（1）H（2）I-1SET TALK OFFCLEARs=0 i=1 DO WHILE i=999 s=s+2 i=i+1 ENDDO?1+3+5+7+999=,swait SET TALK ON（1）s=s+2修改为：s=s+i(10分)（2）i=i+1修改为：i=i+2(10分)thisform.Label1.fontsize=thisform.Label1.fontsize+1if thisform.Label1.fontsize=（1） thisform.Label1.fontsize=（2） endifthisform.refresh（1）35（2）xn= (thisform.text1.value) if n0 thisform.label2.visible=.t. endif for i=2 to n-1 if n/i=int(n/i) exit endifendfor if i=n thisform.label2.visible=.t. else t