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

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

《江西省二级上机考试VF上机50题答案.docx》由会员分享，可在线阅读，更多相关《江西省二级上机考试VF上机50题答案.docx（59页珍藏版）》请在冰豆网上搜索。

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

●cStr="1111001110000001111111100011111110"

zStr=LEFT（cstr,1）

cCnt=1

FORn=2TOLEN（cStr）

IFSubstr（cStr,n,1）=SUBSTR（cStr,n-1,1）&&比较相邻的两个字符是否相同，相同则累计字符数，否则记#

cCnt=cCnt+1

ELSE

zStr=zStr+ALLTRIM（STR（cCnt））+"#"

cCnt=cCnt+1

ENDIF

ENDIF

zStr=zStr+ALLTRIM（STR（cCnt））

waitwindows"二进制压缩后为：

"+zstr

cCnt=cCnt+1——cCnt=1

ENDIF——endfor

n1=1

n2=1

nSum=n1+n2&&第1和2项之和

i=2&&项数,初值为2

DOWHILEnSum<=500

t=

（1）

n1=n2

n2=t+n1

nSum=nSum+n2

i=i+1

ENDDO

i=

（2）

WAITWindows"前"+STR（i）+"项的和刚好不大于500"

（1）n1

（2）i+1

str1=ThisForm.Text1.Value

strleng=len（str1）

str2=""

Fori=1Tostrleng

zf=str（str1,i,1）

DoCase

casezf>='a'.AND.zf<='z'

strasc=ASC（zf）+3

ifstrasc>ASC（"z"）

strasc=strasc-26

endif

str2=str2+CHR（strasc）

casezf>='A'.AND.zf<='Z'

strasc=asc（zf）+3

ifstrasc>ASC（"Z"）

strasc=strasc-26

endif

str2=str2+CHR（strasc）

otherwise

str2=str2+zf

endcase

endfor

ThisForm.text2.value=str2

CloseThisform

zf=str（str1,i,1）——zf=substr（str1,i,1）

CloseThisform——releasethisform

Dimea（40）

store0toa

store0toi,j

num=

（1）

Fori=1Tonum

a

（1）=1

a（i）=1

Forj=i-1To2Step-1

（2）

next

Forj=1Toi

@i,j*5saystr（a（j）,4）

Nextj

Nexti

（1）val（thisformtext1value）

（2）a（j）=a（j-1）+a（j）

x=INT（90*RAND（））+10

y=INT（90*RAND（））+10

ys=INT（1+2*RAND（））&&随机产生运算符

IFys=1

Thisform.Text1.Value=STR（x,3）+"+"+STR（y,3）+"="

ThisForm.Text1.Tag=STR（x+y）

ELSE

IFx

t=x

x=y

y=x

ENDIF

ThisForm.Text1.Value=STR（x,3）+"-"+STR（y,3）+"="

ThisForm.Text1.Tag=x-y

ENDIF

ThisForm.Text2.SetFocus（）

Text2.Value=""

ThisForm.Text1.Tag=x-y——ThisForm.Text1.Tag=STR（x+y）

Text2.Value=""——ThisForm.Text2.Value=""

SETTALKOFF

z="123456"

CLEAR

FORx=1TOLEN（z）

?

SPACE（6-x）

FORy=1TO2*x-1

?

?

SUBSTR（

（1））

ENDFOR

ENDFOR

FORx=LEN（z）TO1

（2）

?

SPACE（6-x）

FORy=1TO2*x-1

?

?

SUBSTR（z,x,1）

ENDFOR

ENDFOR

（1）z,x,1

（2）step-1

CLEAR

INPUT"请输入一个整数：

"TOn

flag=0

FORi=2TOn-1

IFn/i=INT（n/i）

flag=1

（1）

ENDIF

ENDFOR

IF

（2）

?

STR（n）+"不是一个素数!

"

ELSE

?

STR（n）+"是一个素数!

"

ENDIF

RETURN

（1）exit

（2）flag=1

ys=Thisform.Optiongroup1.Option1.Value

a=VAL（Thisform.Text1.Value）

b=VAL（Thisform.Text2.Value）

DOCASE

CASEys=1

Thisform.Text3.Value=a+b

CASEys=2

Thisform.Text3.Value=a-b

CASEys=3

Thisform.Text3.Value=a*b

CASEys=4

IFb=0

Thisform.Text3.Value=a/b

ENDIF

ENDCASE

ys=Thisform.Optiongroup1.Option1.Value——ys=Thisform.Optiongroup1.Value

IFb=0——IFb！

=0

CLEAR

num=0

FORa=1TO500

c=0

d=''

FORb=1TOa-1

IF

（1）

c=c+b

d=d+','+STR（b）

ENDIF

ENDFOR

IFa=c

?

a

?

?

d

num=

（2）

ENDIF

ENDFOR

WAITWINDOWS"完数的个数是：

"+STR（num）

（1）a/b=int（a/b）

（2）num+1

s=0

n=1

FORi=1TO10

n=n*i

s=s*n

ENDFOR

Thisform.Text1=s

s=s*n——s=s+nThisform.Text1=s——Thisform.Text1.value=s

USEsz

SORTTOsz1ONnum/D

USEsz1

DOWHILE!

EOF（）

bw=INT（num/100）

sw=INT（（num-100*bw）/10）

gw=MOD（num,10）

IFMOD（

（1）,2）=0

DELETE

ENDIF

（2）

ENDDO

PACK

LIST

（1）bw+sw+gw

（2）skip

IFThisform.Text1.text="xsl"ANDThisform.Text2.text="1357"

Thisform.Caption="欢迎登录考试系统！

"

ELSE

Thisform.Caption="用户名或密码不对，请重新输入！

"

Thisform.flag=Thisform.flag+2

ENDIF

IFthisform.flag=3

Thisform.Caption="超过指定次数，禁止登录！

"

Thisform.Refresh

ENDIF

j=1

p=0

s=0

FORi=1TO10

DOWHILEj<=i

p=p+

（1）

j=j+1

ENDDO

s=s+p

ENDFOR

?

's=',

（2）

SETTALKON

RETURN

（1）j^2

（2）str（s）

IFThisform.Label1.Visible=.T.

Thisform.Label1.Visible=.F.

ELSE

Thisform.Label1.Visible=.F.

ENDIF

IFThisform.Label1.Caption!

=Time（）

Thisform.Label2.Caption=Time

ENDIF

Thisform.Label1.Visible=.F.——Thisform.Label1.Visible=.T.

Thisform.Label2.Caption=Time——Thisform.Label2.Caption=Time（）

SETTALKOFF

CLEAR

FORi=10TO99

sw=INT（i/10）

gw=MOD（i,10）

j=

（1）

IFPRIME（i）ANDPRIME（j）

?

?

i

ENDIF

ENDFOR

SETTALKON

RETURN

*****判断某数为素数的函数******

FUNCTIONPRIME（）

PARAMETERx

y=

（2）

FORk=2TOSQRT（x）

IFMOD（x,k）=0

y=.F.

ENDIF

ENDFOR

RETURNy

ENDFUNC

（1）gw*10+sw

（2）.T.

Thisform.Label2.Visible=.F.

Thisform.Label3.Visible=.F.

xi=Val（Thisform.Text1.Value）

IFxi<0

Thisform.Label3.Visible=.T.

ELSE

FORi=2TOSqrt（xi）

IFMod（xi,i）=0

Loop

ENDIF

ENDFOR

IFi>=Sqrt（xi）

Thisform.Label2.Visible=.T.

ELSE

Thisform.Label3.Visible=.T.

ENDIF

ENDIF

Loop——exitIFi>=Sqrt（xi）——IFi>Sqrt（xi）

IFThisform.Label1.Fontsize<36

Thisform.Label1.Fontsize=

（1）

ELSE

IFThisform.Label1.Fontsize=36

Thisform.Label1.Fontsize=

（2）

ENDIF

ENDIF

（1）Thisform.Label1.Fontsize+1

（2）8

SETTALKOFF

nCnt=0

FORi=1TO10

ACCEPT"请输入第"+STR（i,2）+"个数字：

"TOx

IFMOD（x/2）=0

nCnt=nCnt+1

ENDIF

ENDFOR

?

"偶数个数的统计结果是：

",nCnt

CANCEL

IFMOD（x/2）=0——IFMOD（val（x），2）=0

?

"偶数个数的统计结果是：

",nCnt——?

"偶数个数的统计结果是：

",+str（nCnt）

CLEAR

FORa=1TO10000

x=LEN（ALLTRIM（STR（a）））

b=0

FORc=1Tox

z=SUBSTR（ALLT（

（1））

b=b+VAL（z）**x

ENDFOR

IF

（2）

?

"Ls",a

ENDIF

ENDFOR

（1）str（a））,c,1

（2）a=b

SETTALKOff

CLEAR

INPUT"A="TOa

CLEAR

Thisform.label1.visible=.t.

docase

casetype（'a'）="C"

Thisform.label1.caption=a+"--字符型数据"

casetype（'a'）="D"

Thisform.label1.caption=a+"--日期型数据"

casetype（'a'）="N"

Thisform.label1.caption=a+"--数值型数据"

endcase

SETTALKON

Thisform.label1.caption=a+"--日期型数据——Thisform.label1.caption=dtoc（a）+"--日期型数据"

Thisform.label1.caption=a+"--数值型数据"——Thisform.label1.caption=str（a）+"--数值型数据"

SETTALKOFF

clear

S=1

N=1

X=2

Y=1

DOWHILEN

（1）

S=S+Y/X

Y=X

X=

（2）

N=N+1

ENDDO

?

"1+1/2+2/3+3/4+...=",S

SETTALKON

（1）<30

（2）X+1

settalkoff

clear

fork=1to3

fori=1toiif（k=1,5,4）

?

?

iif（k=1,space（5-i）,space（i））

forj=1toif（k=1,2*i-1,9-2*i）

?

?

"*"

endfor

?

endfor

endfor

settalkon

fork=1to3——fork=1to2forj=1toif（k=1,2*i-1,9-2*i）修改为：

forj=1toiif（k=1,2*i-1,9-2*i）

settalkoff

s=

（1）

fori=1to200

s=s+

（2）

endfor

ThisForm.Text1.Value=s

settalkon

（1）0

（2）i*（i+1）

ifthis.value=1

thisform.text1.fontunderline=.t.

else

thisform.text1.fontStrikethru=.f.

endif

ifthis.value=1

thisform.text1.fontStrikethru=.t.

else

thisform.text1.fontunderline=.f.

endif

thisform.text1.fontStrikethru=.f.修改为：

thisform.text1.fontStrikethru=.t.

thisform.text1.fontunderline=.f.修改为：

thisform.text1.fontunderline=.t.

SETTALKOFF

CLEAR

A=A=VAL（THISFORM.TEXT1.VALUE）

B=VAL（THISFORM.TEXT2.VALUE）

Y=

（1）

FORI=YTO1STEP-1

IFINT（A/I）=A/I

IFINT（B/I）=B/I

N=I

EXIT

ENDIF

ENDIF

ENDFOR

THISFORM.TEXT3.VALUE=STR（N）

wait''

SETTALKON

SETTALKOFF

CLEAR

M=VAL（THISFORM.TEXT1.VALUE）

N=VAL（THISFORM.TEXT2.VALUE）

X=MAX（M,N）

FORI=XTO

（2）

IFINT（I/M）=I/M

IFINT（I/N）=I/N

A=I

EXIT

ENDIF

ENDIF

ENDFOR

THISFORM.TEXT3.VALUE=STR（A）

wait''

SETTALKON

（1）MIN（A,B）

（2）M*N

N=Thisform.Optiongroup1.Optional1.value

r=Val（Thisform.Text1.value）

doease

caseN=1

thisform.text2.Value=2*3.14*r

caseN=2

thisform.text2.Value=3.14*r*r

endcase

thisform.refresh

（1）N=Thisform.Optiongroup1.Optional1.value修改为：

N=Thisform.Optiongroup1.value

（2）doease修改为：

docase

SETTALKOFF

CLEAR

INPUT"A="TOA

INPUT"B="TOB

DO

（1）WITHA,B

?

A,B

PROCsub

PARAD1,D2

IFD1

T=D1

（2）

D2=T

ENDIF

RETURN

SETTALKON

（1）sub

（2）D1=D2

A=STR（THISFORM.TEXT1.VALUE）

B=VAL（THISFORM.TEXT2.VALUE）

ZC=（A+B）*2

MJ=A*B

THISFORM.TEXT3.CAPTION=ZC

THISFORM.TEXT4.VALUE=MJ

（1）A=STR（THISFORM.TEXT1.VALUE）修改为：

A=VAL（THISFORM.TEXT1.VALUE）

（2）THISFORM.TEXT3.CAPTION=ZC修改为：

THISFORM.TEXT3.VALUE=ZC

SETTALKOFF

CLEAR

X=2

DOWHILE.T.

X=X+1

IFX>10

（1）

ENDIF

IFX=INT（X/3）*3

?

X

ELSE

（2）

ENDIF

ENDDO

SETTALKON

（1）EXIT（10分）

（2）LOOP（10分）

thisform.list1.rowsource="成绩.学号"

thisform.list1.rowsource=6

thisform.list1.rowsource=6修改为：

Thisform.List1.Rowsourcetype=6

CLEA

A=10

DIMEX（A）

FORI=1TO10

INPUT"X="TOX（I）

ENDFOR

S=0

K=1

3

DOWHILE（K

（1））

S=S+

（2）（X（K））

K=K+1

ENDDO

?

S

（1）<=A

（2）ABS

SETDELETEon

USE职工

DELETEALL

IFEMPTY（THIS.VALUE）

RETURN.F.

ELSE

RECALLALL

LOCATEFORALLTRIM（职工号）=ALLTRIM（THIS.VALUE）

IFFOUND（）

DELETEALL

RECALLFORALLTRIM（职工号）=ALLTRIM（THIS.VALUE）

ELSE

RECALLALL

MESSAGEBOX（"查无此人!

",0,"提示信息"）

ENDIF

RETURN.T.

ENDIF

THISFORM.REFRESH

（1）USE职工修改为：

SELECT职工

（2）RECALLALL修改为：

DELETEALL

SETTALKOFF

CLEAR

S=0

N=1

STORE0TOMAX,MIN

DOWHILEN<=8

INPUT"X="TOX

S=S+X

IFMAX

（1）

MAX=X

ENDIF

IFMIN>X

（2）

ENDIF

N=N+1

ENDDO

?

"AVERAGE="+STR（（S-MAX-MIN）/6,19,2）

wait''

SETTALKON

（1）

（2）MIN=X

Thisform.text1.value="职工.职称"

Thisform.Release

（1）Thisform.text1.value="职工.职称"修改为：

Thisform.text1.controlsource="职工.职称"

（2）Thisform.Release修改为：

thisform.refresh

SETTALKOFF

CLEAR

FORN=1TO500

IFMOD（N,5）=0

（1）（MOD（N,3）=0）

IF

（2）（N/2）!

=N/2

?

N

ENDIF

ENDIF

ENDFOR

SETTALKON

（1）.and.

（2）INT

SETTALKOFF

X=0

FORI=1TO5

ACCEPT"请输入第"+STR（I,2）+"个数：

"TOA

FORJ=2toA-1

ifA/J=int（A/J）

exit

endif

endfor

ifJ=A

X=J+1

ENDIF

ENDFOR

?

"素数的个数为：

",X

SETTALKON

（1）ACCEPT"请输入第"+STR（I,2）+"个数：

"TOA修改为：

INPUT"请输入第"+STR（I,2）+"个数：

"TOA

（2）X=J+1修改为：

X=X+1

SETTALKOFF

CLEAR

H=6

FORI=1TO

（1）

IFI<=H

?

SPACE（H-I+1）

FORJ=1TO2*I-1

?

?

CHR（ASC（"A"）+

（2））

ENDFOR

ENDIF

ENDFOR

wait''

SETTALKON

（1）H

（2）I-1

SETTALKOFF

CLEAR

s=0

i=1

DOWHILEi<=999

s=s+2

i=i+1

ENDDO

?

"1+3+5+7+…+999=",s

wait''

SETTALKON

（1）s=s+2修改为：

s=s+i（10分）

（2）i=i+1修改为：

i=i+2（10分）

thisform.Label1.fontsize=thisform.Label1.fontsize+1

ifthisform.Label1.fontsize=

（1）

thisform.Label1.fontsize=

（2）

endif

thisform.refresh

（1）35

（2）x

n=（thisform.text1.value）

ifn<0

thisform.label2.visible=.t.

endif

fori=2ton-1

ifn/i=int（n/i）

exit

endif

endfor

ifi=n

thisform.label2.visible=.t.

else

t