江西省二级上机考试VF上机50题答案Word文档下载推荐.docx
- 文档编号:19515702
- 上传时间:2023-01-07
- 格式:DOCX
- 页数:59
- 大小:109.32KB
江西省二级上机考试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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 江西省 二级 上机 考试 VF 50 答案
![提示](https://static.bdocx.com/images/bang_tan.gif)