计算机二级VFP上机模拟考试题
计算机二级VFP上机模拟考试题
(调试程序可到10.5.10.85的“电脑学园”中下载)
第一套:
试题一 属性设置及程序改错题
gc245.scx的功能是:设计一个窗口,日历牌每10秒显示一次,每次显示10秒;系统时间的数字式表每秒显示一次新的时间。要求:
①设置计时器Timer1 和Timer2的属性
②在编写的二个过程代码Timer1_Timer(),Timer2_Timer()中各有一个错误,请调试改正。
调试改正中,每个过程代码只能改一处,并不得增删语句
Timer1的timer过程代码如下:
if thisform.label1.visible=.t.
thisform.label1.visible=.f.
else
thisform.label1.visible=.f.
endifTimer2的timer过程代码如下:
if thisform.label1.caption!=time( )
thisform.label2.caption=time
endif试题二 程序填空题
tk245.scx的功能是:当按下“求和”按钮时,计算S=1**2+(1**2+2**2)+(1**2+2**2+3**2)+…(1**2+2**2+3**2+…+10**2)。请在该程序空白(1)、(2)处,将其补充完整,以便得到正确答案,但不得增删原语句。
“求和”按钮的click事件代码如下:
SET TALK OFF
TOT=0
FOR N=1 TO 10
T=0
M=1
DO WHILE M<=N
T=t+(1)
M=M+1
ENDDO
TOT=TOT+T
ENDFOR
? 'S=',(2)
SET TALK ON
RETURN
第二套:
试题一 属性设置及改错题:
gc291.scx的功能是:设计一个窗口,输入一个整数,按下"判断"按钮,若该整数是一负数,则显示"该数不是一个素数",若为素数,则显示"该数是一个素数",否则也显示"该数不是一个素数"。要求:
(1) 设置label2和label3的属性,使其开始运行时不可见。
(2) 在command1_click() 的过程代码中有两处错误,请调试改正。
Command1的click过程代码如下:
thisform.label2.visible=.f.
thisform.label3.visible=.f.
n=thisform.text1.value
if n<0
thisform.label3.visible=.t.
endif
for i=2 to sqrt(n)
if mod(n,i)=0
loop
endif
endfor
if i>=sqrt(n)
thisform.label2.visible=.t.
else
thisform.label3.visible=.t.
endif试题二 程序填空题
设表文件WK.DBF的编号字段名为BH,类型为数值型,宽度为3,程序TK291.scx的功能是,单击"处理"按钮实现:把BH每一位相加是奇数的记录存放到WK1.DBF文件中,并要求按照BH从大到小排序。
请在该程序空白(1)、(2)处,将其补充完整,以便得到正确答案,但不得增删原语句。
“处理”按钮的click事件代码如下:
USE WK
SORT TO WK1 ON BH/D
USE WK1
DO WHILE .NOT. EOF( )
N1=INT(BH/100)
N2=INT((BH-100*N1)/10)
N3=MOD(BH,10)
IF MOD(( 1 ),2)=0
DELETE
ENDIF
( 2 )
ENDDO
PACK
LIST
第三套:
试题一 属性设置及改错题:
已知表文件stud.dbf,包括学号(c,6),姓名(c,8),性别(c,1),系科(c,12),当前表中无记录。 gc292.scx的功能是:实现对表stud.dbf的记录输入。其中:
“追加”按钮:单击追加一条新记录;
“上一条”按钮:单击显示上一条记录;
“下一条”按钮:单击显示下一条记录;
“退出”按钮:单击录入窗口。
要求:
(1) 设置Combo1的属性,使得性别中只能输入“M”和“F”;
(2) 在command2_click()和 command3_click()的过程代码中有各有一处错误,请调试改正。
Command2的click过程代码如下:
if bof( )
go