vfp上机试题

VFP上机试题

一、

(1)属性设置及程序改错题

gc245.scx的功能是：设计一个窗口，日历牌每10秒显示一次，每次显示10秒；系统时间的数字式表每秒显示一次新的时间。要求：

①设置计时器Timer1 和Timer2的属性

②在编写的二个过程代码Timer1_Timer(),Timer2_Timer()中各有一个错误，请调试改正。调试改正中，每个过程代码只能改一处，并不得增删语句

timer1.timer:

if bel1.visible=.t.

bel1.visible=.f.

else

bel1.visible=.f. && .t.

endif

timer2.timer:

if thisform. label1.caption!=time() && label2

bel2.caption=time

endif

(2)程序填空题

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)处，将其补充完整，以便得到正确答案，但不得增删原语句。

Command1.click:

SET TALK OFF

TOT=0

FOR N=1 TO 10

T=0

M=1

DO WHILE M<=N

T=t+(1) M**2

M=M+1

ENDDO

TOT=TOT+T

ENDFOR

? 'S=',(2) TOT

SET TALK ON

RETURN

二、

1: 属性设置及改错题:

gc291.scx的功能是:设计一个窗口,输入一个整数,按下"判断"按钮,若该整数是一负数,则显示"该数不是一个素数",若为素数,则显示"该数是一个素数",否则也显示"该数不是一个素数".要求:

(1) 设置label2和label3的属性,使其开

始运行时不可见.

(2) 在command1_click() 的过程代码

中有两处错误,请调试改正.

Command1.click:

bel2.visible=.f.

bel3.visible=.f.

n=thisform.text1.value

if n<0

bel3.visible=.t.

endif

for i=2 to sqrt(n)

if mod(n,i)=0

loop

endif

endfor

if i>=sqrt(n)

bel2.visible=.t.

else

bel3.visible=.t.

endif

2:程序填空题

设表文件WK.DBF的编号字段名为BH,类型为数值型,宽度为3,程序TK291.scx的功能是,单击"处理"按钮实现:把BH每一位相加是奇数的记录存放到WK1.DBF文件中，并要求按照BH从大到小排序。

请在该程序空白(1)、(2)处，将其补充完整，以便得到正确答案，但不得增删原语句。

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

三、

1: 属性设置及改错题:

已知表文件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 top

else

skip -1

endif

thisform.refresh

comand3.click:

if eof()

go bottom

else

skip

endif

thisform.refresh

2: 程序填空题

TK292.scx的功能是,单击"计算"按钮实现求自然对数底E，要求误差小于1e-6,计算公式为：E=1+1/1！+1/2！+1/3！+...

请在该程序空白(1)、(2)处，将其补充完整，以便得到正确答案，但不得增删原语句。

Command1.click:

s=1

p=1

i=1

set decimal to 10

do while ( 1 )

p=p/i

s=s+p

i=i+1

enddo

thisform.text1.value=( 2 )

thisform.refresh

四、

1.属性设置及程序改错题（20分）

gc293.scx的功能是：该表单运行时自动处于最大化状态，窗口内有一个标签和一个计时器控件，标签“欢迎使用本上机测试系统”为从右向左移动的字幕，移动时间间隔为100毫秒。要求：