vfp上机试题

VFP上机试题

一、

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

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

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

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

timer1.timer:

if https://www.360docs.net/doc/2f5203890.html,bel1.visible=.t.

https://www.360docs.net/doc/2f5203890.html,bel1.visible=.f.

else

https://www.360docs.net/doc/2f5203890.html,bel1.visible=.f. && .t.

endif

timer2.timer:

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

https://www.360docs.net/doc/2f5203890.html,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:

https://www.360docs.net/doc/2f5203890.html,bel2.visible=.f.

https://www.360docs.net/doc/2f5203890.html,bel3.visible=.f.

n=thisform.text1.value

if n<0

https://www.360docs.net/doc/2f5203890.html,bel3.visible=.t.

endif

for i=2 to sqrt(n)

if mod(n,i)=0

loop

endif

endfor

if i>=sqrt(n)

https://www.360docs.net/doc/2f5203890.html,bel2.visible=.t.

else

https://www.360docs.net/doc/2f5203890.html,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毫秒。要求：

(1)设置表单Form1和计时器Timer1的属性；

(2)在编写的过程代码Timer1_Timer()中有二个错误，请调试改正，并不得增删语句。

IF https://www.360docs.net/doc/2f5203890.html,bel1.Left + https://www.360docs.net/doc/2f5203890.html,bel1.Width < 0

https://www.360docs.net/doc/2f5203890.html,bel1.Caption = THISFORM.Width

ELSE

https://www.360docs.net/doc/2f5203890.html,bel1.Left = https://www.360docs.net/doc/2f5203890.html,bel1.Left + 10

ENDIF

2.程序填空题（20分）

tk293.SCX的功能是：该表单中设有一个文本框，一个标签和一个命令按钮。在文本框中输入数字（'0'~'6'），可在标签中用中文和英文同时显示星期几，单击命令按钮，可释放该表单。

请在文本框KeyPress事件的空白(1)、(2)处，填上适当的代码，将其补充完整，以便得到正确答案，但不得增删原语句。

LPARAMETERS nKeyCode, nShiftAltCtrl

IF 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

https://www.360docs.net/doc/2f5203890.html,bel1.Caption= (2)

ENDIF

THISFORM.Text1.SelStart=0

THISFORM.Text1.SelLength=LEN(THISFORM.Text1.Text)

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

gc314.scx的功能是：该表单运行时位居Visual FoxPro主窗口的正中，在编辑框中输出从100开始被3、5、7除余数均为1的10个数。该表单有两个命令按钮command1“开始计算”、command2“清空编辑框”和一个编辑框Edit1。点击“开始计算”，开始求满足条件的数，将满足条件的数输出到编辑框中，每输出一个换一行。要求：

(1)设置表单Form1和命令按钮command1的

属性；

(2)在command1的click事件代码中有两个

错误，请调试改正，并不得增删语句。

i=100

num=0

do while num<=10

if (i % 3 = 1) .and. (i % 5 = 1) and (i % 7 = 1)

THISFORM.Edit1=THISFORM.Edit1.Value+STR(i,5)+CHR(13)+chr(10)

num=num+1

ENDIF

i=i+1

ENDd

2.程序填空题（20分）

tk314.scx的功能是：该表单以5号字体显示“预祝大家通过考试!”字样，然后不停地递增放大该字体，当达到35号字体时，又恢复成最初状态；单击命令按钮，可释放该表单。

请在计时器Timer1的过程代码Timer1.Timer()的空白(1)、(2)处，填上适当的代码，

将其补充完整，以便得到正确答案，但不得增删

原语句。

i = i + 1

If i > 35

i = (1)

endif

(2)=i

thisform.refresh

六、

（1）属性设置及程序改错题:属性设置(4分*2题=8分),程序改错(6分*2题=12分),计20分.

表单gc337的功能是：设计一个表单，当单击增加按钮Command1时将文本框Text1中的内容增加到列表框List1中,当单击删除按钮Command2时将List1中所选中的项目删除。开始时表单的标题为“二级考试上机”,Text1中字体为20号。

具体要求：

①设置表单Form1和文本框Text1的属性。

②为完成以上操作,Command1和

Command2的过程代码中各有一处错误，

请调试改正。调试改正中，每个过程代码

只能改一处，并不得增删语句。

Command1的过程代码:

thisform.list1.additem(text1.value)

thisform.text1.value=""

Command2的过程代码:

num=thisform.list1

thisform.list1.removeitem(num)

thisform.list1.refresh

（2）程序填空题:(10分*2=20分),计20分

表单tk337的功能是：当按下显示按钮时，在屏幕上显示如下图形：

1

1 1

1 2 1

1 3 3 1

1 4 6 4 1

……

其中显示的行数(小于10)由文本框Text1输入。该程序不完整，请补充空白（1）、（2）处，以便能得到正确答案，但不得增删原语句。

Dime a(40)

store 0 to a

store 0 to i,j

num=(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

七、

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

gc338.scx的功能是：该表单包含1个标签Label1、1个选项按钮组Optiongroup1和3个文本框Text1、Text2、Text3。该表单刚运行时，标签不显示，通过选择选项按钮组中不同选项，使从文本框输入的3个数字分别以“从小到大排列”和“从大到小排列”的方式在标签位置输出，要求标签能自动调整大小；双击该表单，则释放该表单。

要求：(1)依题目要求，设置标签Label1的两处属性；

(2)在选项按钮组Optiongroup1的Click事件代码和表单Form1的Dblclick事件代码中分别有一个错误，请调试改正，并不得增删语句。

a=V AL(THISFORM.Text1.Value)

b=V AL(THISFORM.Text2.Value)

c=V AL(THISFORM.Text3.Value)

If b>a

d=a

a=b

b=d

ENDIF

If c>a

d=a

a=c

c=d

ENDIF

If b>c

d=b

b=c

c=d

ENDIF

If THIS.Value=1

https://www.360docs.net/doc/2f5203890.html,bel1.Caption=STR(c,5)+""+STR(b,5)+""+STR(a,5)

THISFORM.Text1.SetFocus

Else

https://www.360docs.net/doc/2f5203890.html,bel1.Caption=STR(a,5)+""+STR(b,5)+""+STR(c,5)

THISFORM.Text1.SetFocus

ENDIF

2.程序填空题（20分）

tk338.scx的功能是：该表单包含1个标签Label1(要

求在表单中居中，标签文本对齐方式为居中)，3个命令按钮

command1“暂停”、command2“继续”和command3“退出”。

Label1用来显示系统的当前时间；单击命令按钮command1，

时钟停止；单击命令按钮command2，时钟继续显示系统的当

前时间；单击命令按钮command3，关闭表单。

请在计时器Timer1的过程代码Timer1.Timer()的空

白(1) 处和command1的过程代码command1.Click()的空白

(2) 处，填上适当的代码，将其补充完整，以便得到正确答案，

但不得增删原语句。

Timer1的过程代码:

If https://www.360docs.net/doc/2f5203890.html,bel1.Caption !=time()

https://www.360docs.net/doc/2f5203890.html,bel1.Caption = (1)

ENDIF

command1的过程代码:

(2)

八、

1. 程序改错题(20分)

gc374.scx的功能是：将一个二进制字符串压缩，其中结果保留该字符串的首字符，然后将连续的0或1用其数目来表示，当遇到不同字符时用“*”表示。

例如：字符串"111100000111111111000111110000"压缩后为“14*5*9*3*5*4”。请修改程序中2处错误，并调试该程序，使之正确运行，不得增加或删除程序行。

cString="111100000111111111000111110000"

cResult=LEFT(cString,1)

nCount=1

FOR n=2 TO LEN(cString)

IF SUBSTR(cString,n,1)=SUBSTR(cString,n-1,1) &&比较前后两个字符是否相

同，同则计字符数，否则记*

nCount=nCount+1

ELSE

cResult=cResult+ALLTRIM(STR(nCount))+"*"

nCount=nCount+1

ENDIF

ENDIF

cResult=cResult+ALLTRIM(STR(nCount))

WAIT WINDOWS "压缩后为"+cResult

2. 程序填空题(20分)

tk374.scx的功能是：对于数列1,1,2,3,5, 8,……(从第3项开始，每一数列项的值为前2项之和)，求前多少项的和刚好不大于1000。程序中有两处空，请补充完整，使之能正确运行。

在(1)和(2)中填入正确的内容，去掉(1)和(2)符号，使之正确运行，不得增加或删除程序行。

a1=1

a2=1

nSum=a1+a2 &&第1、2项之和

nCount=2 &&项数，初值为2

DO WHILE nSum<=1000

x=(1) &&此处有一空(1)

a1=a2

a2=x+a1

nSum=nSum+a2

nCount=nCount+1

ENDDO

nCount=(2) &&此处有一空(2)

WAIT WINDOWS "前"+STR(nCount)+"项的和刚好不大于1000"

九、

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

gc375.scx表单的功能是：设计一个表单，当单击“加密”按钮时将文本框Text1中的字符串进行加密，加密后的结果显示在文本框Text2中；当单击“退出”按钮时释放表单。初始时表单的标题为“数据加密”，Text2中的内容为只读。

具体要求：

①设置文件文本框Text2和表单的属性。

②在编写的“加密”按钮事件代码和“退出”按钮的事件代码中各有一处错误，请调试改正。

调试改正时，每个事件代码只能改一处，并不得增删语句。

*加密算法说明:

*对输入的每个英文字符(区分大小写)将其向右移动5个位置,其它字符不变

*即a→f,b→g,c→h,……,z→e

*结果超过z的向前移，即z→e

“加密”按钮事件代码

oldstr=ThisForm.Text1.Value

length=len(oldstr)

enstr=""

For i=1 To length

c=str(oldstr,i,1)

Do Case

case c>='a' .and. c<='z'

iasc=asc(c)+5

if iasc>asc("z")

iasc=iasc-26

endif

enstr=enstr+chr(iasc)

case c>='A' .and. c<='Z'

iasc=asc(c)+5

if iasc>asc("Z")

iasc=iasc-26

endif

enstr=enstr+chr(iasc)

otherwise

enstr=enstr+c

endcase

endfor

ThisForm.text2.value=enstr

“退出”按钮的事件代码

Close ThisForm

2. 程序填空题(20分）

tk375.scx表单的功能是：单击“计算”按钮，对于数列1,1,2,3,5, 8,……(从第3项开始，每一数列项的值为前2项之)，求前多少项的和刚好不大于1000。程序中有两处空，请补充完整，使之能正确运行。

在(1)和(2)中填入正确的内容，去掉(1)和(2)符号，使之正确运行，不得增加或删除程序行。

a1=1

a2=1

nSum=a1+a2 &&第1、2项之和

nCount=2 &&项数，初值为2

DO WHILE nSum<=1000

x=(1) &&此处有一空(1)

a1=a2

a2=x+a1

nSum=nSum+a2

nCount=nCount+1

ENDDO

nCount=(2) &&此处有一空(2)

WAIT WINDOWS "前"+STR(nCount)+"项的和刚好不大于1000"