江西省二级上机考试VF上机50题答案Word文档下载推荐.docx

江西省二级上机考试VF上机50题答案Word文档下载推荐.docx

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

ASC（"

z"

）

strasc=strasc-26

endif

str2=str2+CHR（strasc）

A'

Z'

strasc=asc（zf）+3

Z"

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<

y

t=x

x=y

y=x

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

-"

ThisForm.Text1.Tag=x-y

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）

FORy=1TO2*x-1

SUBSTR（z,x,1）

ENDFOR

（1）z,x,1

（2）step-1

INPUT"

请输入一个整数：

"

TOn

flag=0

FORi=2TOn-1

IFn/i=INT（n/i）

flag=1

（1）

IF

（2）

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

ENDCASE

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

IFb=0——IFb！

=0

num=0

FORa=1TO500

c=0

d='

'

FORb=1TOa-1

IF

（1）

c=c+b

d=d+'

'

+STR（b）

IFa=c

a

d

num=

（2）

WAITWINDOWS"

完数的个数是：

+STR（num）

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

（2）num+1

s=0

n=1

FORi=1TO10

n=n*i

s=s*n

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

PACK

LIST

（1）bw+sw+gw

（2）skip

IFThisform.Text1.text="

xsl"

ANDThisform.Text2.text="

1357"

Thisform.Caption="

欢迎登录考试系统！

用户名或密码不对，请重新输入！

Thisform.flag=Thisform.flag+2

IFthisform.flag=3

超过指定次数，禁止登录！

Thisform.Refresh

j=1

p=0

DOWHILEj<

=i

p=p+

（1）

j=j+1

ENDDO

s=s+p

'

s='

（2）

SETTALKON

（1）j^2

（2）str（s）

IFThisform.Label1.Visible=.T.

Thisform.Label1.Visible=.F.

Thisform.Label1.Visible=.F.

IFThisform.Label1.Caption!

=Time（）

Thisform.Label2.Caption=Time

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

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

FORi=10TO99

sw=INT（i/10）

gw=MOD（i,10）

j=

（1）

IFPRIME（i）ANDPRIME（j）

i

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

FUNCTIONPRIME（）

PARAMETERx

y=

（2）

FORk=2TOSQRT（x）

IFMOD（x,k）=0

y=.F.

RETURNy

ENDFUNC

（1）gw*10+sw

（2）.T.

Thisform.Label2.Visible=.F.

Thisform.Label3.Visible=.F.

xi=Val（Thisform.Text1.Value）

IFxi<

Thisform.Label3.Visible=.T.

FORi=2TOSqrt（xi）

IFMod（xi,i）=0

Loop

IFi>

=Sqrt（xi）

Thisform.Label2.Visible=.T.

Loop——exitIFi>

=Sqrt（xi）——IFi>

Sqrt（xi）

IFThisform.Label1.Fontsize<

36

Thisform.Label1.Fontsize=

（1）

IFThisform.Label1.Fontsize=36

Thisform.Label1.Fontsize=

（2）

（1）Thisform.Label1.Fontsize+1

（2）8

nCnt=0

ACCEPT"

请输入第"

+STR（i,2）+"

个数字：

TOx

IFMOD（x/2）=0

nCnt=nCnt+1

偶数个数的统计结果是：

nCnt

CANCEL

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

nCnt——?

+str（nCnt）

FORa=1TO10000

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

b=0

FORc=1Tox

z=SUBSTR（ALLT（

（1））

b=b+VAL（z）**x

IF

（2）

Ls"

a

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

（2）a=b

SETTALKOff

A="

TOa

Thisform.label1.visible=.t.

docase

casetype（'

）="

C"

Thisform.label1.caption=a+"

--字符型数据"

D"

Thisform.label1.caption=a+"

--日期型数据"

N"

--数值型数据"

endcase

Thisform.label1.caption=a+"

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

——Thisform.label1.caption=str（a）+"

clear

S=1

N=1

X=2

Y=1

DOWHILEN

（1）

S=S+Y/X

Y=X

X=

（2）

N=N+1

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

S

（1）<

30

（2）X+1

settalkoff

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

settalkon

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

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

s=

（1）

fori=1to200

s=s+

（2）

ThisForm.Text1.Value=s

（1）0

（2）i*（i+1）

ifthis.value=1

thisform.text1.fontunderline=.t.

else

thisform.text1.fontStrikethru=.f.

endif

thisform.text1.fontStrikethru=.t.

thisform.text1.fontunderline=.f.

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

thisform.text1.fontStrikethru=.t.

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

thisform.text1.fontunderline=.t.

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

THISFORM.TEXT3.VALUE=STR（N）

wait'

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

THISFORM.TEXT3.VALUE=STR（A）

（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

thisform.refresh

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

N=Thisform.Optiongroup1.value

（2）doease修改为：

SETTALKOFF

TOA

B="

TOB

DO

（1）WITHA,B

A,B

PROCsub

PARAD1,D2

IFD1<

D2

T=D1

（2）

D2=T

（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

X=2

DOWHILE.T.

X=X+1

IFX>

10

ENDIF

IFX=INT（X/3）*3

X

ELSE

ENDDO

（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

X="

TOX（I）

S=0

K=1

3

DOWHILE（K

（1））

S=S+

（2）（X（K））

K=K+1

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）

RECALLALL

MESSAGEBOX（"

查无此人!

0,"

提示信息"

RETURN.T.

THISFORM.REFRESH

（1）USE职工修改为：

SELECT职工

（2）RECALLALL修改为：

DELETEALL

STORE0TOMAX,MIN

DOWHILEN<

=8

INPUT"

TOX

S=S+X

IFMAX

（1）

MAX=X

IFMIN>

X

（2）

AVERAGE="

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

（2）MIN=X

Thisform.text1.value="

职工.职称"

Thisform.Release

（1）Thisform.text1.value="

修改为：

Thisform.text1.controlsource="

（2）Thisform.Release修改为：

FORN=1TO500

IFMOD（N,5）=0

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

IF

（2）（N/2）!

=N/2

N

（1）.and.

（2）INT

X=0

FORI=1TO5

ACCEPT"

+STR（I,2）+"

个数：

FORJ=2toA-1

ifA/J=int（A/J）

exit

ifJ=A

X=J+1

素数的个数为：

X

（1）ACCEPT"

TOA修改为：

TOA

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

X=X+1

H=6

FORI=1TO

（1）

IFI<

=H

?

SPACE（H-I+1）

FORJ=1TO2*I-1

?

CHR（ASC（"

A"

）+

（2））

ENDFOR

（1）H

（2）I-1

s=0

i=1

DOWHILEi<

=999

s=s+2

i=i+1

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

s

（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）

（1）35

（2）x

n=（thisform.text1.value）

ifn<

0

thisform.label2.visible=.t.

endif

fori=2ton-1

ifn/i=int（n/i）

ifi=n

thisform.label2.visible=.t.

t