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

计算机二级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=timeendif试题二程序填空题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 OFFTOT=0FOR N=1 TO 10 T=0 M=1 DO WHILE M=N T=t+(1) M=M+1 ENDDO TOT=TOT+TENDFOR? S=,(2)SET TALK ONRETURN第二套：试题一属性设置及改错题: gc291.scx的功能是：设计一个窗口，输入一个整数，按下判断按钮，若该整数是一负数,则显示该数不是一个素数，若为素数，则显示该数是一个素数，否则也显示该数不是一个素数。要求： (1) 设置label2和label3的属性,使其开始运行时不可见。(2) 在command1_click() 的过程代码中有两处错误，请调试改正。Command1的click过程代码如下：thisform.label2.visible=.f.thisform.label3.visible=.f.n=thisform.text1.valueif n=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 WKSORT TO WK1 ON BH/DUSE WK1DO 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 )ENDDOPACKLIST第三套：试题一属性设置及改错题: 已知表文件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 -1endifthisform.refreshCommand3的click过程代码如下：if eof( ) go bottom else skip endifthisform.refresh试题二程序填空题 TK292.scx的功能是,单击计算按钮实现求自然对数底E，要求误差小于1e-6,计算公式为：E=1+1/1！+1/2！+1/3！+.请在该程序空白(1)、(2)处，将其补充完整，以便得到正确答案，但不得增删原语句。“计算”按钮的click事件代码如下：s=1p=1i=1set decimal to 10do while ( 1 ) p=p/i s=s+p i=i+1enddothisform.text1.value=( 2 )thisform.refresh第四套：试题一属性设置及程序改错题（20分） gc293.scx的功能是：该表单运行时自动处于最大化状态，窗口内有一个标签和一个计时器控件，标签“欢迎使用本上机测试系统”为从右向左移动的字幕，移动时间间隔为100毫秒。要求： (1)设置表单Form1和计时器Timer1的属性； (2)在编写的过程代码Timer1_Timer()中有二个错误，请调试改正，并不得增删语句。Timer1的timer过程代码如下：IF THISFORM.Label1.Left + THISFORM.Label1.Width 0 THISFORM.Label1.Caption = THISFORM.WidthELSE THISFORM.Label1.Left = THISFORM.Label1.Left + 10ENDIF试题二程序填空题（20分） tk293.SCX的功能是：该表单中设有一个文本框，一个标签和一个命令按钮。在文本框中输入数字（06），可在标签中用中文和英文同时显示星期几，单击命令按钮，可释放该表单。请在文本框KeyPress事件的空白(1)、(2)处，填上适当的代码，将其补充完整，以便得到正确答案，但不得增删原语句。Text1的KeyPress过程代码如下：LPARAMETERS nKeyCode, nShiftAltCtrlIF nKeyCode=13 n = (1) DO CASE CASE N=1 M=星期一（Monday） CASE N=2 M=星期二（Tuesday） CASE N=3 M=星期三（Wednesday） CASE N=4 M=星期四（Thursday） CASE N=5 M=星期五（Friday） CASE N=6 M=星期六（Saturday） CASE N=7 M=星期天（Sunday） OTHERWISE M=重新输入！ ENDCASE THISFORM.Label1.Caption= (2) ENDIFTHISFORM.Text1.SelStart=0THISFORM.Text1.SelLength=LEN(THISFORM.Text1.Text) 第五套：试题一属性设置及程序改错题（20分） gc314.scx的功能是：该表单运行时位居Visual FoxPro主窗口的正中，在编辑框中输出从100开始被3、5、7除余数均为1的10个数。该表单有两个命令按钮command1“开始计算”、command2“清空编辑框”和一个编辑框Edit1。点击“开始计算”，开始求满足条件的数，将满足条件的数输出到编辑框中，每输出一个换一行。要求： (1)设置表单Form1和命令按钮command1的属性； (2)在command1的click事件代码中有两个错误，请调试改正，并不得增删语句。Command1的click过程代码如下：i=100num=0do while num 35 i = (1)endif(2)=ithisform.refresh第六套：试题一属性设置及程序改错题:属性设置(4分*2题=8分),程序改错(6分*2题=12分),计20分.表单gc337的功能是：设计一个表单，当单击增加按钮Command1时将文本框Text1中的内容增加到列表框List1中,当单击删除按钮Command2时将List1中所选中的项目删除。开始时表单的标题为“二级考试上机”,Text1中字体为20号。具体要求：设置表单Form1和文本框Text1的属性。为完成以上操作,Command1和Command2的过程代码中各有一处错误，请调试改正。调试改正中，每个过程代码只能改一处，并不得增删语句。Command1的click过程代码如下：thisform.list1.additem(text1.value)thisform.text1.value=Command2的click过程代码如下：num=thisform.list1thisform.list1.removeitem(num)thisform.list1.refresh试题二程序填空题:(10分*2=20分),计20分表单tk337的功能是：当按下显示按钮时，在屏幕上显示如下图形：11 11 2 11 3 3 11 4 6 4 1其中显示的行数(小于10)由文本框Text1输入。该程序不完整，请补充空白（1）、（2）处，以便能得到正确答案，但不得增删原语句。“显示”按钮的Click事件代码如下：Dime a(40)store 0 to astore 0 to i,jnum=(1)For i = 1 To num a(1) = 1 a(i) = 1 For j = i-1 To 2 Step -1 (2)next For j = 1 To i i,j*5 say str(a(j),4) Next j Next i第七套：试题一属性设置及程序改错题（20分） gc338.scx的功能是：该表单包含1个标签Label1、1个选项按钮组Optiongroup1和3个文本框Text1、Text2、Text3。该表单刚运行时，标签不显示，通过选择选项按钮组中不同选项，使从文本框输入的3个数字分别以“从小到大排列”和“从大到小排列”的方式在标签位置输出，要求标签能自动调整大小；双击该表单，则释放该表单。要求：(1)依题目要求，设置标签Label1的两处属性； (2)在选项按钮组Optiongroup1的Click事件代码和表单Form1的Dblclick事件代码中分别有一个错误，请调试改正，并不得增删语句。Optiongroup1的Click事件代码如下：a=VAL(THISFORM.Text1.Value)b=VAL(THISFORM.Text2.Value)c=VAL(THISFORM.Text3.Value)If ba d=a a=b b=dENDIFIf ca d=a a=c c=dENDIFIf bc d=b b=c c=dENDIFIf THIS.Value=1 THISFORM.Label1.Caption=STR(c,5)+STR(b,5)+STR(a,5) THISFORM.Text1.SetFocusElse THISFORM.Label1.Caption=STR(a,5)+STR(b,5)+STR(c,5) THISFORM.Text1.SetFocusENDIFForm1的Dblclick事件代码如下:THISFORM.Refresh试题二程序填空题（20分） tk338.scx的功能是：该表单包含1个标签Label1(要求在表单中居中，标签文本对齐方式为居中)，3个命令按钮command1“暂停”、command2“继续”和command3“退出”。Label1用来显示系统的当前时间；单击命令按钮command1，时钟停止；单击命令按钮command2，时钟继续显示系统的当前时间；单击命令按钮command3，关闭表单。请在计时器Timer1的过程代码Timer1.Timer()的空白 (1) 处和command1的过程代码command1.Click()的空白 (2) 处，填上适当的代码，将其补充完整，以便得到正确答案，但不得增删原语句。Timer1的timer过程代码如下：If THISFORM.Label1.Caption !=time( ) THISFORM.Label1.Caption = (1)ENDIF Command1的click事件代码如下：(2)第八套：试题一程序改错题(20分) gc374.scx的功能是：将一个二进制字符串压缩，其中结果保留该字符串的首字符，然后将连续的0或1用其数目来表示，当遇到不同字符时用“*”表示。例如：字符串111100000111111111000111110000压缩后为“14*5*9*3*5*4”。请修改程序中2处错误，并调试该程序，使之正确运行，不得增加或删除程序行。Command1的click事件代码如下：cString=111100000111111111000111110000cResult=LEFT(cString,1)nCount=1FOR n=2 TO LEN(cString)IF SUBSTR(cString,n,1)=SUBSTR(cString,n-1,1)&比较前后两个字符是否相同，同则计字符数，否则记*nCount=nCount+1ELSEcResult=cResult+ALLTRIM(STR(nCount)+*nCount=nCount+1ENDIFENDIFcResult=cResult+ALLTRIM(STR(nCount)WAIT WINDOWS 压缩后为+cResult试题二程序填空题(20分) tk374.scx的功能是：对于数列1,1,2,3,5, 8,(从第3项开始，每一数列项的值为前2项之和)，求前多少项的和刚好不大于1000。程序中有两处空，请补充完整，使之能正确运行。在(1)和(2)中填入正确的内容，去掉(1)和(2)符号，使之正确运行，不得增加或删除程序行。