发布时间 : 星期日 文章计算机二级VFP上机模拟考试题更新完毕开始阅读82be9a4e767f5acfa1c7cdac
计算机二级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. endif Timer2的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 top else skip -1 endif thisform.refresh Command3的click过程代码如下： if eof( ) go bottom else skip endif thisform.refresh
试题二 程序填空题
TK292.scx的功能是,单击\计算\按钮实现求自然对数底E，要求误差小于1e-6,计算公式为：E=1+1/1！+1/2！+1/3！+...
请在该程序空白(1)、(2)处，将其补充完整，以便得到正确答案，但不得增删原语句。
“计算”按钮的click事件代码如下： s=1 p=1 i=1 set decimal to 10 do while ( 1 ) p=p/i