计算机二级vfp模拟考试题,计算机二级VFP上机模拟考试题.doc

计算机二级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