vfp第5章.docx
《vfp第5章.docx》由会员分享，可在线阅读，更多相关《vfp第5章.docx（35页珍藏版）》请在冰点文库上搜索。
vfp第5章
试卷编号：
564
所属语言：
VisualFoxpro
试卷方案：
VF_第五章
试卷总分：
86分
共有题型：
2种
一、填空共64题（共计64分）
第1题（1.0分）题号:
308
已知STUDENT表有20条记录,执行以下代码后,屏幕显示的是【1】
clear
closeall
usestudent
i=0
scan
i=i+1
skip
endscan
?
i
第2题（1.0分）题号:
1272
实现如下表达式的和：
1+3+5+7+9+11，请完善如下程序：
s=0
ForI=1to11
ifmod（I,2）=0
【1】
EndIf
s=s+i
EndFor
?
s
第3题（1.0分）题号:
295
下列程序用来求0——100偶数之和,请将它写完整
STORE0TON,S
DOWHILE.T.
IFN>100
【1】
ELSE
S=S+N
ENDIF
N=N+2
ENDDO
第4题（1.0分）题号:
1271
完善下列程序,其功能是统计一个仅由数字组成的字符串中各种数字字符的个数:
Clear
cStr="110102342245676893319"
Store0Ton0,n1,n2,n3,n4,n5,n6,n7,n8,n9
DowhileLen（cStr）>0
C=Left（cStr,1）
n&C=【1】
cStr=【2】
Enddo
?
n0,n1,n2,n3,n4,n5,n6,n7,n8,n9
第5题（1.0分）题号:
277
函数LEN（STR（12345678901））的返回值为【1】,函数LEN（DTOC（DATE（）））的返回值为【2】
第6题（1.0分）题号:
1314
完善下列程序,以显示7~1000以内能被7整除且含有数字5的所有证书（例如35、56、105等）.
FORn=7TO1000【1】
ch=ALLT（STR（n））
IF"5"$ch
?
n
ENDIF
ENDFOR
第7题（1.0分）题号:
292
VFP系统中,程序控制分为顺序、分支和【1】.
第8题（1.0分）题号:
1327
运行以下程序后,VFP主窗口显示的结果是【1】.
【程序清单】
CLEAR
i=0
n=0
DOWHILEi<=10
IFMOD（i,2）=0
n=n+1
ENDIF
i=i+1
ENDDO
?
n
第9题（1.0分）题号:
301
运行下面的程序字段后屏幕显示的运行结果是:
【1】
SETTALKOFF
STORE4TON
?
S（N）
FUNCTIONS
PARAMETERSX
Y=1
P=0
FORi=1TOX
Y=Y*i
P=P+Y
ENDF
ReturnP
ENDF
第10题（1.0分）题号:
280
完善程序题.下列程序的功能是计算下列数列1!
2!
3!
…,n!
的前10项之和:
nResult=0
nMult=【1】
FORn=1TO10&&计数变量
nMult=nMult*n
nResult=【2】
ENDFOR
?
nResult
第11题（1.0分）题号:
294
已知N="1",M="2",X12="GOOD",则表达式X&N&M的值为【1】
第12题（1.0分）题号:
303
在VisualFoxPro中,基类的事件集合是固定的,不能进行扩充.
基类的最小事件集包括Init事件、Destroy事件和【1】事件
第13题（1.0分）题号:
297
设有一表文件xs.dbf且已在当前工作区中打开,则使用命令COPYTO【1】,
可以将该表的数据复制到Excel文件xs.xls中.
第14题（1.0分）题号:
1179
完善下列自定义函数STR_RV（）,其功能是将一个字符串（假设所有字符均为ASCII和GB2312字
符集中的字符）进行"反序".例如,STR_RV（"ABCD"）的返回值为"DCBA".
【程序清单】
FUNCTIONstr_rv（）
PARAMETERSc
P=SPACE（O）
DOWHILELEN（C）>0
x=ASC（【1】）
IFx>127&&ASCII码值大于127的字符为汉字（x为半个汉字的机内码）
i=2
ELSE
i=1
ENDIF
P=LEFT（C,i）+P
C=SUBSTR（c,i+1）
ENDDO
【2】
ENDFUNC
第15题（1.0分）题号:
1290
使程序的运行结果如下所示:
1*9+2=11
12*9+3=111
123*9+4=1111
1234*9+5=11111
12345*9+6=111111
123456*9+7=1111111
1234567*9+8=11111111
12345678*9+9=111111111
123456789*9+10=1111111111
完善下列程序:
SETTALKOFF
CLEAR
x=space（0）
Fori=1to【1】
x=x+allt（str（i））
?
STR（VAL（x））+"*9+"+【2】+"="+ALLT（STR（VAL（x）*9+i+1））
ENDFOR
第16题（1.0分）题号:
285
设定日期显示格式中,年的表示是否显示4位数的命令是【1】
第17题（1.0分）题号:
296
运行下列程序段以后,显示内容的前两行为:
【1】和【2】
SETTALKOFF
S="ABCDEF"
N=LEN（S）
K=1
DOWHILEK<=N
?
SUBS（S,K,N-K）
K=K+1
ENDDO
第18题（1.0分）题号:
300
完善下列程序,以实现通过字符串变量操作竖向显示"天长地久"、
横向显示"地久天长"的功能.程序清单如下:
SETTALKOFF
STORE"天长地久"TOch
CLEAR
n=1
DOWHILEn<8
?
substr【1】
n=n+2
ENDDO
?
substr【2】
?
?
SUBSTR（ch,1,4）
第19题（1.0分）题号:
1178
完善下列程序,其功能是显示如下所示的文字图形.
金
字字
大大大
宝宝宝宝
塔塔塔塔塔
【程序清单】
CLEAR
c="金字大宝塔"
n=LEN（c）/2
FORi=1TOn
?
SPACE（70-i）
FORj=1【1】
?
?
SUBS（C,2*i-1,2）
=INKEY（0.5）
ENDFOR
ENDFOR
第20题（1.0分）题号:
1329
有如下程序代码:
DIMENSIONxx[4]
ta=TYPE（"xx[1]"）
xx[1]="VFP"
xx=1113
tb=TYPE（"xx[1]"）
则这段程序运行后,变量ta和tb的值分别是【1】.
第21题（1.0分）题号:
1273
请写出x的值【1】,y值是【2】
X=26
y=0
ifint（x/2）=x/2
y=mod（x,3）
x=x+4
endif
ifint（x/3）=x/3
y=Mod（x,-4）
endif
?
x,y
第22题（1.0分）题号:
307
已知有三个文件分别程序文件、查询文件、表单文件,文件名都是a,
请问运行程序文件的命令是【1】、
运行查询文件的命令是【2】、
运行表单文件的命令是【3】
第23题（1.0分）题号:
310
完善以下用户自定义函数,使得当输入0——9之间的整数时,函数返回对应的中文:
functionntoc
parameterpdi
cstr="零一二三四五六七八九"
cresult=substr（cstr,【1】,【2】）
return【3】
endfunc
第24题（1.0分）题号:
279
函数或过程的参数可以是变量或数组元素,并可以通过值或引用传递.
如果希望自定义函数修改参数,并将修改后的值返还给主程序,则应通过【1】传递函数.
第25题（1.0分）题号:
287
循环语句中跳过当前循环,进入下一轮循环的语句是【1】
第26题（1.0分）题号:
1202
执行下列程序后,输出到屏幕的结果为【1】.
【程序清单】
CLEAR
cstring="VisualFoxPro"
nresult=0
m=LEN（cstring）
FORn=1tom
c=SUBSTR（cstring,n,1）
IF!
BETWEEN（ASC（c）,ASC（"A"）,ASC（"Z"））
LOOP
ENDIF
nresult=nresult+l
ENDFOR
?
nresult
第27题（1.0分）题号:
1242
.在VFP命令窗口中输入并执行命令【1】.FontSize=20,
可以使VFP主窗口中输出文本的字号设置为20.
第28题（1.0分）题号:
1177
执行以下程序段后,屏幕显示的运行结果为【1】.
【程序清单】
CLEAR
x=12
DoWHILE.T.
x=x+1
IFx=INT（x/4）*5
?
?
x
ELSE
LOOP
ENDIF
IFX>10
EXIT
ENDIF
ENDD0
第29题（1.0分）题号:
282
完善程序题.下列自定义函数DeleteSpace（）的功能是将一个字符串中的所有空格删除:
FUNCTIONDeleteSpace
PARAMETERScStr
cResult=SPACE（0）
FORn=1TO【1】
IFSUBSTR（cStr,n,1）=SPACE
（1）
【2】
ENDIF
cResult=cResult+SUBSTR（cStr,n,1）
ENDFOR
RETURN【3】
ENDFUNC
第30题（1.0分）题号:
275
在定义数组时,使用DECLEAR和【1】声明的数组属于"私有数组",
而使用PUBLIC命令声明的数组属于"全局数组",使用LOCAL命令声明的数组属于"局部数组".
第31题（1.0分）题号:
278
命令关键字和函数名一般可以缩写为前四个字母,但MEESSAGEBOX（）函数的缩写为【1】
第32题（1.0分）题号:
274
使用LOCAL、PRIVATE和PUBLIC关键字可以指定变量的作用域.
在命令窗口中创建的任何变量或数组均为【1】性变量.
第33题（1.0分）题号:
288
在自定义函数中,定义形式参数的关键字为【1】
第34题（1.0分）题号:
1286
在VFP中,每个对象都具有属性,以及与之相关的【1】.
其中,属性是定义对象的特征或某一方面的行为.
第35题（1.0分）题号:
1316
运行下列程序后,显示的运行结果的第二行为【1】
SETTALKOFF
CLEAR
Y="11111111"
FORI=1TOLEN（y）
X=LEFT（y,i）
?
SPACE（20-i*2）+x+"*"+x+"="+ALLT（STR（VAL（x）*VAL（x）））
ENDFOR
第36题（1.0分）题号:
286
如果2002年3月18号是星期一,则以下命令在屏幕上显示【1】
x={^2002/03/18}
?
dow（x）
第37题（1.0分）题号:
312
当人机交互改变对象的值时发生的事件是【1】,该事件在组合框、列表框等对象中被常常使用
（请写出完整的关键字）
第38题（1.0分）题号:
1312
在VFP中,利用可是化开发工具（表单设计器）创建表单和对象.通过对对象属性的修改、
方法程序的调用来处理对象.相对引用对象时,所设计的关键字
THIS、THISFORM、THISFORMSET只能在方法程序或【1】处理代码中使用.
第39题（1.0分）题号:
1291
运行下列程序后,显示的运行结果为【1】.
?
TT（"123E%nw$O4q*5n6"）
FUNCTIONTT
PARAcstr
cResult=space（0）
FORn=1toLEN（ALLT（cStr））
c=SUBSTR（cStr,n,1）
IF!
BETWEEN（c,"A","Z"）and!
BETWEEN（c,"a","z"）
LOOP
ENDIF
cResult=cResult+CHR（ASC（c）+1）
ENDFOR
RETURNcResult
ENDFUNC
第40题（1.0分）题号:
293
表达式STR（YEAR（DATE（）+10））的值的数据类型为【1】
第41题（1.0分）题号:
281
完善程序题.下列程序的功能是统计一个字符串中各个字符的个数（假设字符串仅由大写英文字母A,B,C,D组成）:
cStr='AABBDDCABCDAADBCAACCDDDDBB'&&字符串赋初值
STORE0TOnA,nB,nC,nD,&&计数变量
fori=1to【1】
C=LEFT（【2】）
docase
caseC="A"
nA=nA+1
caseC="B"
nB=nB+1
caseC="C"
nC=nC+1
caseC="D"
nD=nD+1
【3】
EndF
第42题（1.0分）题号:
290
下面的程序是给具有20个元数的一元数组赋整数值,并使其值的范围在0——99之间,
完成程序（已知rand（）是随机变量,其随机产生的值在0.0——1.0之间.
提示:
函数int（）返回其参数的整数部分）
dimemm（20）
fori=1to20
【1】
endf
第43题（1.0分）题号:
1251
完善下列程序，是程序的结果如下图所示
1*1=11*2=21*3=31*4=41*5=51*6=61*7=71*8=81*9=9
2*2=42*3=62*4=82*5=102*6=122*7=142*8=162*9=18
3*3=93*4=123*5=153*6=183*7=213*8=243*9=27
4*4=164*5=204*6=244*7=284*8=324*9=36
5*5=255*6=305*7=355*8=405*9=45
6*6=366*7=426*8=486*9=54
7*7=49788=567*9=63
8*8=648*9=72
9*9=81
*****程序*****
CLEAR
FORi=1TO9
FORj=1TO9
Ifi<=j
?
?
STR（I,1）+”*”+STR（j,1）+”=“+【1】+SPACE
（2）
ENDIF
ENDFOR
【2】
ENDFOR
第44题（1.0分）题号:
1200
完善下列程序,使两个程序的功能相同（求一个数列的前20项之和）.
【程序清单1】【程序清单2】
CLEARCLEAR
s=0s=0
FORi=1To20FORi=lTO19STEP2
s=s+（-1）**（i+1）/（【1】）s=s+1/（i*（i+1））-1/（（i+1）*（i+2））
ENDFORENDFOR
?
s?
S
第45题（1.0分）题号:
1335
下面有两段程序代码,它们的功能【1】（注:
答"相同"或"不相同"）.
【程序一清单】
nSum=0
p=1
FORi=1TO10
p=p*i
nSum=nSum+p
ENDFOR
?
nSum【程序二清单】
nSum=0
FORi=1to10
nSum=nSum+fJC（i）
ENDFOR?
nSum
FUNCTIONfJC
PARAMETERSx
p=1
FORn=1TOx
p=P*n
ENDFOR
RETURNp
ENDFUNC
第46题（1.0分）题号:
1204
一只球从100米的高度自由落下,每次落地后反弹回原高度的一半.下列程序的功能是:
计算并显示当它在第10次落地时,总共经过的距离和第10次反弹的高度.
【程序清单】
CLEAR
S=100
h=50
FoRi=1TO9
s=s+h*2
h=【1】
ENDFOR
?
"球在第10次落地时,共经过了:
'+ALLT（STR（s,10,6））+"米"
?
"球第1O次反弹的高度是:
"+ALLT（STR（h,10,6））+"米"
第47题（1.0分）题号:
1203
执行下列程序后,输出到屏幕的结果为【1】.
【程序清单】
CLEAR
STORE5TOml,m2
STORE1TOm3,m4
DOPAWITHml,m2,m3,m4
?
m4
PROCEDUREPA
PARAMETERa,b,c,d
d=b^2-4*a*c
DOCASE
CASEd<0
d=100
CASEd=0
d=200
CASEd>0
d=300
ENDCASE
RETURN
第48题（1.0分）题号:
291
如果当前日期是2000年4月1日,并且命令?
date（）在屏幕上返回04/01/00,
则命令行?
date（）+10在屏幕上返回的值为【1】
第49题（1.0分）题号:
1250
完善下列程序，使两个程序的功能相同。
[程序清单1]
CLEAR
S=0
P=1
Fori=1to20
P=【1】
S=S+P
ENDFOR
?
s
[程序清单2]
CLEAR
S=0
N=1
Fori=1to20
M=1
Forn=1toi
M=M*n
Endfor
S=S+M
Endfor
?
S
第50题（1.0分）题号:
306
执行以下程序,屏幕显示为:
【1】和【2】
x=8
DOWHILE.T.
x=x+1
IFx=INT（x/4）*5
?
?
x
ELSE
LOOP
ENDIF
IFx>10
EXIT
ENDIF
ENDDO
第51题（1.0分）题号:
298
依次执行以下命令之后,最后一条命令的输出结果是【1】
SETEXACTOFF
x="6.0"
?
IIF（x="6.0","VisualFoxPro"-x,"VisualFoxPro"+"5.0"）
第52题（1.0分）题号:
1343
下列自定义函数NTOC（）的功能是:
当传送一个1~7之间的数值型参数时,
返回一个中文形式的"星期日~星期六".例如,执行命令?
NTO（4）,显示"星期三".
FUNCTIONNTOC
PARAMETERSn
LOCALch
ch="日一二三四五六"
mch="星期"=SUBSTR（ch,【1】,2）
RETURNmch
ENDFUNC
第53题（1.0分）题号:
305
完善下列程序,使其具有如下功能:
将任意输入的十进制正整数转换为十六进制数形式并显示.
（提示:
字母A的ASCII码为65;INPUT语句用于从键盘上输入一个数据）
SETTALKOFF
CLEAR
INPUT"请输入任一正整数"TOnum&&输入一个数,并赋予变量num
num1=num
xnum=SPACE（0）
y="IIF（MOD（num,16）>9,CHR（【1】）,str（MOD（num,16）,1））"
DOWHILEnum>15
xnum=&y+xnum
num=INT（【2】）
ENDDO
xnum=&y+xnum
WAITWINDOWSTR（【3】）+"转换为十六进制后为"+xnum
第54题（1.0分）题号:
1201
下列程序用来计算数列2/1,3/2,5/3,……,155/18,173/19,192/20,……的前20项之和.
阅读程序并完善,使它能实现要求的功能.
【程序清单】
CLEAR
m=2s=0
FORi=1TO20
s=s+m/i
m=【1】
ENDFOR
?
s
第55题（1.0分）题号:
289
下面程序执行以后,屏幕上显示【1】
x=.t.
y=.f.
z=not（xand（yorx））
?
z
第56题（1.0分）题号:
302
已知在命令行输入?
at（"e","Helloeveryone!
",3）其返回值为9,
则?
at（"e","Helloeveryone!
",2）返回值为【1】
第57题（1.0分）题号:
1246
执行下列主程序后,输出结果为【1】
****主程序****
CLEAR
Publicx,y,z
X=3
Y=4
Z=5
Dopp
?
x+y+z
****过程****
ProcedurePP
LOCALx
X=5
Y=7
Z=x+y
EndPROC
第58题（1.0分）题号:
1234
在面向对象的程序设计中,通过类可以简化应用程序的设计,因为类具有【1】、
多态性、封装性、抽象性等特点.
第59题（1.0分）题号:
1206
执行下列程序后，输出到屏幕的结果为【1】。
【程序清单】
CLEAR
cstring="VisualFoxPro"
nresult=0
m=LEN（cstring）
FORn=1tom
c=SUBSTR（cstring,n,1）
IF!
BETWEEN（ASC（c），ASC（"A"）,ASC（"Z"））
LOOP
ENDIF
nresult=nresult+l
ENDFOR
?
nresult
第60题（1.0分）题号:
1229
本题程序求以下正项级数的近似值：
【程序清单】'
CLEAR
i=0
sn1=O
DOWHILE.T.
i=i+1
sn1=sn1+l/（i*（i+1）*（i+2））
sn2=【1】
IFABS（sn2-snl）<0.0001
【2】
ENDIF
ENDDO
?
sn2
第61题（1.0分）题号:
1230
以下程序产生1000
升级会员 