省考vf上机及答案.doc

模拟试题245gc245.scx的功能是：设计一个窗口，日历牌每10秒显示一次，每次显示10秒；系统时间的数字式表每秒显示一次新的时间。要求：设置计时器Timer1 和Timer2的属性在编写的二个过程代码Timer1_Timer(),Timer2_Timer()中各有一个错误，请调试改正。调试改正中，每个过程代码只能改一处，并不得增删语句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 OFFTOT=0FOR N=1 TO 10 T=0 M=1 DO WHILE M 35 i = (1)endif(2)=ithisform.refresh模拟试题337表单gc337的功能是：设计一个表单，当单击增加按钮Command1时将文本框Text1中的内容增加到列表框List1中,当单击删除按钮Command2时将List1中所选中的项目删除。开始时表单的标题为“二级考试上机”,Text1中字体为20号。具体要求：设置表单Form1和文本框Text1的属性。为完成以上操作,Command1和Command2的过程代码中各有一处错误，请调试改正。调试改正中，每个过程代码只能改一处，并不得增删语句。表单tk337的功能是：当按下显示按钮时，在屏幕上显示如下图形：11 11 2 11 3 3 11 4 6 4 1其中显示的行数(小于10)由文本框Text1输入。该程序不完整，请补充空白（1）、（2）处，以便能得到正确答案，但不得增删原语句。*Command1的Click事件代码如下：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模拟试题338gc338.scx的功能是：该表单包含1个标签Label1、1个选项按钮组Optiongroup1和3个文本框Text1、Text2、Text3。该表单刚运行时，标签不显示，通过选择选项按钮组中不同选项，使从文本框输入的3个数字分别以“从小到大排列”和“从大到小排列”的方式在标签位置输出，要求标签能自动调整大小；双击该表单，则释放该表单。要求：(1)依题目要求，设置标签Label1的两处属性；(2)在选项按钮组Optiongroup1的Click事件代码和表单Form1的Dblclick事件代码中分别有一个错误，请调试改正，并不得增删语句。tk338.scx的功能是：该表单包含1个标签Label1(要求在表单中居中，标签文本对齐方式为居中)，3个命令按钮command1“暂停”、command2“继续”和command3“退出”。Label1用来显示系统的当前时间；单击命令按钮command1，时钟停止；单击命令按钮command2，时钟继续显示系统的当前时间；单击命令按钮command3，关闭表单。 请在计时器Timer1的过程代码Timer()的空白 (1) 处和command1的过程代码command1.Click()的空白 (2) 处，填上适当的代码，将其补充完整，以便得到正确答案，但不得增删原语句。*Timer1的Timer事件的代码如下：If THISFORM.Label1.Caption !=time() THISFORM.Label1.Caption = (1)ENDIFCommand1的Click事件的代码如下：(2)模拟试题374gc374.scx的功能是：将一个二进制字符串压缩，其中结果保留该字符串的首字符，然后将连续的0或1用其数目来表示，当遇到不同字符时用“*”表示。例如：字符串111100000111111111000111110000压缩后为“14*5*9*3*5*4”。请修改程序中2处错误，并调试该程序，使之正确运行，不得增加或删除程序行。tk374.scx的功能是：对于数列1,1,2,3,5, 8,(从第3项开始，每一数列项的值为前2项之和)，求前多少项的和刚好不大于1000。程序中有两处空，请补充完整，使之能正确运行。在(1)和(2)中填入正确的内容，去掉(1)和(2)符号，使之正确运行，不得增加或删除程序行。*Command1的Click事件代码如下：a1=1a2=1nSum=a1+a2&第1、2项之和nCount=2&项数，初值为2DO WHILE nSum=1000x=(1)&此处有一空(1)a1=a2a2=x+a1nSum=nSum+a2nCount=nCount+1ENDDOnCount=(2)&此处有一空(2)WAIT WINDOWS 前+STR(nCount)+项的和刚好不大于1000模拟试题375gc375.scx表单的功能是：设计一个表单，当单击“加密”按钮时将文本框Text1中的字符串进行加密，加密后的结果显示在文本框Text2中；当单击“退出”按钮时释放表单。初始时表单的标题为“数据加密”，Text2中的内容为只读。具体要求：设置文件文本框Text2和表单的属性。在编写的“加密”按钮事件代码和“退出”按钮的事件代码中各有一处错误，请调试改正。调试改正时，每个事件代码只能改一处，并不得增删语句。tk375.scx表单的功能是：单击“计算”按钮，对于数列1,1,2,3,5, 8,(从第3项开始，每一数列项的值为前2项之)，求前多少项的和刚好不大于1000。程序中有两处空，请补充完整，使之能正确运行。在(1)和(2)中填入正确的内容，去掉(1)和(2)符号，使之正确运行，不得增加或删除程序行。Command1的Click事件代码如下：tk374.scx的功能是：对于数列1,1,2,3,5, 8,(从第3项开始，每一数列项的值为前2项之和)，求前多少项的和刚好不大于1000。程序中有两处空，请补充完整，使之能正确运行。在(1)和(2)中填入正确的内容，去掉(1)和(2)符号，使之正确运行，不得增加或删除程序行。*Command1的Click事件代码如下：a1=1a2=1nSum=a1+a2&第1、2项之和nCount=2&项数，初值为2DO WHILE nSum 35 i = (1)endif(2)=ithisform.refresh模拟试题459gc459.scx的功能是：设计一个表单，其上创建有命令按钮和文本框各一个，当用鼠标点击按下“查看日期-时钟”按钮时文本框显示当前日期，其格式为：yyyy-mm-dd，当松开鼠标按钮时出现当前时间，日期和时间均据中显示。要求：1) 设置Command1及Text1的属性；2) 在编写的Command1二个过程代码MouseDown和MouseUp中各有一个错误，请调试改正。调试改正中，每个过程代码只能改一处，并不得增删语句。题中涉及的文件所在位置均指考生目录（即Z:盘）。*command1的mousedown事件如下：LPARAMETERS nButton, nShift, nXCoord, nYCoordTHISFORM.Text1.Value=DATE()THISFORM.Text1.DateFormat=10 &该行有错THISFORM.Text1.DateMark=-*command1的mouseup事件如下：LPARAMETERS nButton, nShift, nXCoord, nYCoordTHISFORM.text1.Value=Time() &该行有错 tk459.prg的功能是：求出并显示所有两位的绝对素数。一个素数的数字位置经过任意对换后仍为素数，则称为绝对素数。如素数17交换后的71也是素数，所以17是绝对素数。请在该程序(1)、(2)空白处填上适当内容，将其补充完整，但不得增删语句。题中涉及的文件所在位置均指考生目录（即Z:盘）。set talk offclearfor i = 10 to 99 a = int(i/10)&十位数 b = mod(i, 10)&个位数 j = (1) &十位与个位换位后的数。此处有一空 if prime(i) and prime(j) then ? i&输出所有两位绝对素数 endifendforset talk onreturn*判断某数为素数函数*function prime()parameters xy = (2)&设置返回初值。此处有一空for p = 2 to sqrt(x) if mod(x, p) = 0 then y = .f. endifendforreturn yendfunc模拟试题460gc460.scx的功能是：设计一个表单，上面的可以进行加、减、乘、除运算。只要分别在Text1与Text2中输入两个数，点击命令按钮“开始计算”，便根据右边的操作选择计算出结果，并且将结果放在Text3中显示出来。要求：设置命令按钮的属性。设置单选按钮控件的属性，使加法运算为缺省运算。在编写的过程代码Command1_click()中有两个错误，请调试改正。调试改正中，每个代码只能改一处，并不得增删语句。 题中涉及的文件所在位置均指考生目录（即Z:盘）。*Command1的click事件如下：op=thisform.optiongroup1.option1.value &该行有错a=val(thisform.text1.value)b=val(thisform.text2.value)do case case op=1 thisform.text3.value=a+bcase op=2 thisform.text3.value=a-bcase op=3 thisform.text3.value=a*bcase op=4 if b=0 then &该行有错thisform.text3.value=a/bendifendcasetk460.scx的功能是：该表单包含1个标签Label1(要求在表单中居中，标签文本对齐方式为居中)，3个命令按钮command1“暂停”、command2“继续”和command3“退出”。Label1用来显示系统的当前时间；单击命令按钮command1，时钟停止；单击命令按钮command2，时钟继续显示系统的当前时间；单击命令按钮command3，关闭表单。请在计时器Timer1的过程代码Timer1.Timer()的空白 (1) 处和command1的过程代码command1.Click()的空白 (2) 处，填上适当的代码，将其补充完整，以便得到正确答案，但不得增删原语句。 题中涉及的文件所在位置均指考生目录（即Z:盘）。*Timer1的Timer事件如下：If THISFORM.Label1.Caption !=time() THISFORM.Label1.Caption = (1)ENDIF *Command1的click事件如下：（2）*Command2的click事件如下：thisform.timer1.enabled=.t.THISFORM.Timer1.Interval=1000模拟试题483 gc483.scx的功能是：计算T=1!+2!+10!的值，如下图所示,有关属性已经设置好，要求点击命令按钮“计算”，把T的值在文本框中显示出来。在编写的命令按钮代码中有两处错误，请调试改正。调试改正中，每个过程代码只能改一处，并不得增删语句。题中涉及的文件所在位置均指考生目录（即Z:盘）。*Command1的click事件如下：t=0 &该行有错p=1for i=1 to 10 p=p*i t=t*pendforthisform.text1=t &该行有错tk483.prg的功能是：输入一个整数N,判断它是否素数（质数）。素数是指除了能被1和此数本身整除外，不能被其它任何整数整除的数。 判断素数的基本方法是：把N作为被除数，以2到N-1作为除数，一个一个的相除，如果都除不尽，N就是素数，只要有一次能整除，N就不是素数。请在该程序(1)、(2)空白处填上适当内容，将其补充完整，但不得增删语句。题中涉及的文件所在位置均指考生目录（即Z:盘）。clearinput 请输入一个整数： to nflag=0for i=2 to n-1if n/i=int(n/i)flag=1 (1) endifendfor? nif (2) ? 不是一个素数!else? 是一个素数。endifreturn模拟试题484 gc484.scx的功能是：该表单设计成一个登陆界面，其上有2个标签控件、2个文本框、1个命令按钮，当输入用户名(设置为hxhy)和密码(设置为5921)后，单击“确认”按钮，检验输入是否正确，如果正确，就显示“Welcome.”；如果不正确，则显示“用户名或密码不对，请重新输入”；若两次输入不正确，则显示“用户名或密码不对，登陆失败”。要求： 1) 新建表单属性num，用于记录本次登陆的次数，默认值设置为0；设置文本框Text2的InputMask属性和PasswordChar属性； 2) 在已编写的Command1的Click事件代码中有2个错误，请调试改正，调试改正中不得增删语句。 题中涉及的文件所在位置均指考生目录（即Z:盘）。*Command1的click事件如下：if thisform.text1.text=hxhy and thisform.text2.text=5921 thenthisform.caption= Welcome.elsethisform.caption= 用户名或密码不对，请重新输入thisform.num=ThisForm.num+2 &该行有错endifIf ThisForm.num=5 then &该行有错thisform.caption= 用户名或密码不对，登陆失败thisform.releaseendiftk484.prg的功能是：找出1000之内所有的完数，并统计它们的个数。完数是指：数的各因子之和正好等于该数本身（例如6的因子是1、2、3，而1+2+3=6，所以6是完数）。请在该程序(1)、(2)空白处填上适当内容，将其补充完整，但不得增删语句。题中涉及的文件所在位置均指考生目录（即Z:盘）。SET TALK OFFCLEARnCount = 0FOR n1 = 1 TO 1000 m = 0 FOR n2 = 1 TO n1-1 IF _(1)_ m = m + n2 ENDIF ENDFOR IF n1 = m ? n1 nCount _(2)_ ENDIFENDFORWAIT WINDOWS 完整的个数为 + STR(nCount) SET TALK ON模拟试题511 gc511.scx的功能是：该表单(名字为fml)上有一个列表框(List1)、一个文本框(Text1)和一个命令按钮(Command1，其Caption属性为“添加”)。在文本框Text1中输入字符串，如果该字符串在列表框中不存在，就将该字符串插入到列表框中，否则弹出对话框给出信息提示“该字符串已经存在，请重新输入”。要求： 1) 设置表单的Name属性和命令按钮Command1的Caption属性； 2) 在已编写的Command1的Click事件代码中有2个错误，请调试改正。调试改正中不得增删语句。*Command1的click事件如下：flag = 0FOR n = 1 TO THISFORM.list1.ListValue &该行有错IF THISFORM.List1.List(n) = THISFORM.Text1.Valueflag = 1ENDIFENDFORIF flag = 0THISFORM.List1.AddListItem(THISFORM.Text.Value) &该行有错ELSEMESSAGEBOX(该字符串已经存在，请重新输入)ENDIF tk511.prg的功能是：通过字符串变量操作，竖向显示“天长地久”，横向显示“地久天长”。 请在该程序(1)、(2)空白处填上适当内容，将其补充完整，但不得增删语句。SET TALK OFFCLEARSTORE 天长地久 TO chCLEARn = 1DO WHILE n =6 ThisForm.Label1.FontSize=ThisForm.Label1.FontSize-2 ENDIFENDCASE tk537.prg的功能是：对从键盘输入的10个数，并按照从小到大的顺序进行排序。请在该程序(1)、(2)空白处填上适当内容，将其补充完整，但不得增删语句。CLEARSET TALK OFFDIME A(10)FOR I = 1 TO 10 INPUT 请输入数据： TO A(I)ENDFORFOR I = 1 TO 9 FOR J = I + 1 TO _(1)_ IF A(I) _(2)_ A(J) B = A(I) A(I) = A(J) A(J) = B ENDIF ENDFORENDFORFOR I = 1 TO 10 ? A(I)ENDFORSET TALK ONRETURN模拟试题538gc538.scx的功能是：设计一个表单，其中有一个编辑框和两个命令按钮command1(搜索)和command2(修改)，如图所示，要求单击“搜索”按钮时，选择EDIT1中的某个字符串：VFP，单击按钮“修改”时，用字符串Visual FoxPro 去替换 VFP。两个命令按钮代码中有2处错误，请改正。*Command1的click事件如下：n=at(VFP,thisform.edit1.value)if n0thisform.edit1.selstart=n-1thisform.edit1.sellength=len(Visual FoxPro) &该行有错elsewait windows 没有匹配的单词 timeout 1endif*Command2的click事件如下：If thisform.edit1.seltext=Visual FoxPro &该行有错thisform.edit1.seltext=Visual FoxProelse wait windows 没有选择要替换的单词 timeout 1endif tk538.prg的功能是：设有两个表文件，XF.DBF的结构为：学号（C，6）、姓名（C，8）、选课号（C，6）和学分（N，1）；ZXF.DBf的结构为：学号（C，6）和总学分（N，3）。并且ZXF.DBf中的“学号”字段已经有确定的值，设计一个程序要求计算每位同学的总学分，并按总学分由低到高的顺序显示每个同学的学号、姓名和总学分。在（1）和（2）处填上适当语句，全部程序运行正确，不能添加和删除其它程序行。set talk offselect 1use xfselect 2use zxfselect 1go topdo while not eof()xh=学号select 2 (1) & 找到相同的学号repl 总学分 with 总学分+A.学分select 1skipenddoselect 2 (2) & 做索引文件，其名称为zxf.idxgo topdo while not eof()xh=学号select 1locate for 学号=xhselect 2? 学号,A.姓名,总学分skipenddoclose datareturn模拟试题563 gc563.scx的功能是：在标题为“随机改变颜色”表单(Form1)上有一个标签(Label1)和二个命令按钮(Command1和Command2的Caption分别为：“表单背景颜色”和“标签前景颜色”)，表单运行后，按相应的命令按钮则可随机调整表单的背景颜色和标签的前景颜色。要求： 1) 设置Command1和Command2的Caption属性； 2) 在已编写的Command1和和Command2的Click事件代码中分别有1个错误，请调试改正。调试改正中不得增删语句。*Command1的click事件如下：a=INT(RAND()*255)b=INT(RAND()*255)c=INT(RAND()*255)ThisForm.Color=RGB(a,b,c) &该行有错*Command1的click事件如下：a=INT(RAND()*255)b=INT(RAND()*255)c=INT(RAND()*255)ThisForm.Label1.Color=RGB(a,b,c) &该行有错 tk563.prg的功能是：找出1000之内所有的完数，并统计它们的个数。完数是指：数的各因子之和正好等于该数本身（例如6的因子是1、2、3，而1+2+3=6，所以6是完数）。请在该程序(1)、(2)空白处填上适当内容，将其补充完整，但不得增删语句。CLEARn1 = 1nCount = 0 DO WHILE n1 = 1000 m=0 FOR n2 = n1-1 TO 1 STEP -1 IF n1/n2 = _(1)_ & 此处有一空 m = m + n2 ENDIF ENDFOR IF n1 = m nCount = nCount+1 ? n1 ENDIF _(2)_& 此处有一空ENDDOWAIT WINDOWS完整的个数为+STR(nCount)RETURN模拟试题564 gc564.scx的功能是：任意输入一个正整数N，求1至N每个数平方根的和。图中用到了一个文本框（txtnumber）、一个命令按钮（command1）、两个标签（label1、lblresult）。要求单击“计算”按钮后，计算结果在标签iblresult中。命令按钮代码中有2处错误，请改正。*Command1的click事件如下：value1=val(thisform.txtnumber.value)result = 1 &该行有错For i = 1 To value1 result =sqrt( i) &该行有错Nextthisform.lblresult.Caption = 结果为： + str(result,12,6) tk564.scx的功能是：假设用户名和口令存储在表“口令表.DBF”中，当用户输入用户名（在TEXT1文本框内）和口令（在TEXT2文本框内），单击“登录”按钮时，若用户名输入错误，则提示“用户名错误”；若用户名输入正确，而口令输入错误，则提示“口令错误”。二者输入都正确则提示“欢迎使用”。在（1）和（2）处填上适当语句，使全程序运行正确，不能添加和删除其它程序行。*Command1的click事件如下：USE 口令表GO TOPFLAG=0DO WHILE (1)IF ALLTRIM(用户名)=ALLTRIM(thisform.text1.value) IF ALLTRIM(口令)=ALLTRIM( thisform.text2.value) WAIT 欢迎使用 WINDOW TIMEOUT 2ELSEWAIT 口令错误 WINDOW TIMEOUT 2ENDIFFLAG=1EXITENDIFSKIPENDDOIF flag= (2)WAIT 用户名错误 WINDOW TIMEOUT 2ENDIFuse*Command2的click事件如下：release thisformVF参考答案模拟试题245gc245.scx （1）属性设置 将Timer1的Interval属性设置为10000将Timer2的Interval属性设置为1000（2） 改错Timer1的Timer事件中Else后的thisform.label1.visible=.f.改为thisform.label1.visible=.t.Timer2的Timer事件中thisform.label2.caption=time改为thisform.label2.caption=time()tk245.prg （1）m2 (2) tot模拟试题291gc291.scx（1）属性设置 将Label2的Visible属性设置为.f.将Label3的Visible属性设置为.f.（2） 改错loop改为exitif isqrt(n)tk291.prg （1）n1+n2+n3 (2) skip模拟试题292gc292.scx（1）属性设置 将Combo1的RowSource属性设置为M,F 将Combo1的RowSourceType属性设置为：1（2） 改错Command2的Click事件代码中go top改为go bottomCommand3的Click事件代码中go bottom改为go t