(模拟练习题)

操作题：

1.在考生文件夹下完成如下操作:

编制一个表单文件myform，在文本框中输入任一自然数，单击\统计\按钮，统计从这个数开始的20个能被3整除且末位为3的数，将统计结果在编辑框中显示，并利用标签输出这20个数的和(计数变量用k,求和变量用s)，如图design.jpg所示。

2.在考生文件夹下完成如下操作: 编制一个表单文件myform，功能为判断输入的任一自然数是否为素数，例如运行表单当 输入89并单击\判断素数\按钮，效果如图1.jpg所示,当输入90并单击\判断素数\按钮， 效果如图2.jpg所示。

3.在考生文件夹下完成如下操作:编制一个表单文件myform，对输入在文本框的文字，根据所选的按钮，用不同的颜色显示该文本框内的文字。如图1.jpg所示，例如单击命令按钮组中的\红色\按钮，文本框内的字体颜色变为红色。请完成命令按钮组的CLICK事件代码。（commandgroup1.click ）

4.在考生文件夹下完成如下操作:

编制一个能显示系统日期、星期和时间的表单myform.scx，并且能通过微调控件来调整系统日期，当系统日期改变时，星期也能相应的改变，表单的运行界面如图design.jpg。 请完成微调按纽的upclick事件代码 （spinner1.upclick) :

5. 编制表单文件myform,设计界面如design.jpg所示,运行后完成下面的功能：

（1）设置文本框中的内容为\欢迎使用本系统\，字体大小为10磅。

（2）实现文本框中的文字大小由原始的10磅,每隔1秒变大1磅,至30磅后停止变大,不重复变大过程。

6.请完成计时器timer1的timer事件代码。

要求：界面与题目给定的一致。

注意：按照要求的文件名保存在考生文件夹下在考生文件夹下完成如下操作:

编制一个表单文件myform,设计界面如design1.jpg和design2.jpg所示,运行后完成下面的功

能：

（1）编制一个信息显示（时钟）界面，显示当前时间（每秒动态跳动一次）；

（2）并将时钟的颜色按奇数秒设置为红色，偶数秒设置为蓝色，自动变换（与时间同步切换）请完成计时器timer1的timer事件代码。

7. 在考生文件夹下完成如下操作:

用命令按钮组设计一个\学生表信息浏览和编辑\表单，文件名为：myform.scx。表单界面设计请参考考生文件夹下的图片design.jpg。用\首记录\、\前翻\、\后翻\、\末记录\命令按钮对\学生表\中的记录进行浏览和修改。当\前翻\到首记录时，使\前翻\按钮失效；当\后翻\到末记录时，使\后翻\按钮失效。当单击\首记录\按钮，使\首记录\、\前翻\按钮失效；当单击\末记录\按钮，使\末记录\、\后翻\按钮失效。

8. 在考生文件夹下完成如下操作:

设计一个\统计奖学金\的表单，表单文件名为myform，表单的界面设计请参考考生文件夹下的图片design.jpg。表单实现的功能如下：单击\统计\按钮,统计出\学生表.dbf\中所有学生的奖学金总额,要求用DO WHILE语句实现。

9. 在考生文件夹下完成如下操作:

设计一个\查询学生的平均成绩\的表单，表单文件名为myform，表单的界面设计请参考考生文件夹下的图片design.jpg。表单实现的功能如下：当在组合框中选择一个\学生成绩表.dbf\中的学生姓名后，能显示该学生的姓名及平均成绩,再单击\确定\按钮后能在\成绩档次\文本框中显示该学生的成绩档次(平均成绩大于等于90分为优秀;大于等于80且小于90分为良好;大于等于70分且小于80分为中等;大于等于60分且小于70分为及格;小于60分为不及格)

10. 在考生文件夹下完成如下操作:

用命令按钮组设计一个表单，文件名为：myform.scx。表单运行时，当单击某个按钮，表单的背景颜色也随之改变。表单界面设计请参考考生文件夹下的图片design.jpg

11. 设计一个\方阵\表单，表单文件名为myform，表单的界面设计请参考考生文件夹下的图片design.jpg。表单实现的功能如下：单击\显示\按钮，在编辑框中显示指定数字的N*N方阵,使对角元素为A，其他元素为B。要求用双重FOR循环实现.

12. 在考生文件夹下完成如下操作:

编制一个表单文件myform,设计界面如design1.jpg所示,运行后完成下面的功能：任意输入一个字符串，单击统计按钮，分别统计出大写字母(asc值在65和90之间)的个数、小写字母(asc值在97和122之间)的个数、其他字符（除英文字母以外所有字符）的个数；单击\退出\按钮，结束表单运行.

13. 在考生文件夹下完成如下操作:

用列表框设计一个“成绩排名”表单，表单文件名为myform.scx,表单设计界面如design.jpg所示，运行界面如design2.jpg所示。表单实现的功能如下：利用“学生成绩表.dbf”,当在列表框中选择一个学生姓名后，显示该学生的总分及排名。请编写列表框](List1)的Click事件

代码。

14. 在考生文件夹下完成如下操作:

编制一个表单文件myform，根据score.dbf中的数据，通过SCAN循环实现如下功能：先根据表中三门课的成绩计算每个学生的总分、平均分，然后统计表中平均分在70分(包括70分)以上男生的人数（在score.dbf表的“性别”字段中用.T.表示男，用.F.表示女）。如图design.jpg所示，单击\统计\按钮将结果显示在\平均分在70分以上男生的人数\后面的文本框内。 要求:(1)利用数据环境添加score.dbf (2)写出\统计\按钮的click事件代码

15. 在考生文件夹下完成如下操作:

编制一个\学生\表信息查询表单，表单文件名为myform.scx，查找与用户输入的学生学号相匹配的记录，如果找到则显示指定学生的所有信息；如果未找到则显示“你所指定的学生不存在！”。表单设计界面如design.jpg所示。 16. 在考生文件夹下完成如下操作:

编制一个表单完成表文件\学生.dbf\内容的查询显示功能，表单文件名为myform.scx，表单设计界面如design.jpg所示。当用户在组合框（下拉列表）选择班级后，表单将自动显示对应班级的平均年龄。请写出组合框的interactivechange事件。

17. 在考生文件夹下完成如下操作:

用列表框编制一个\学生\表信息查询表单，表单文件名为myform.scx，表单设计界面如design.jpg所示。当在列表框中选中一个学生姓名后，查询与用户指定的学生姓名相匹配的记录，并显示指定学生的所有信息。请编写列表框的InteractiveChange事件代码。

18. 在考生文件夹下完成如下操作:

设计一个表单，文件名为：myform.scx。表单界面设计请参考考生文件夹下的图片design.jpg。label1的标题为\请输入口令:\中输入密码,并以星号（*）显示。当输入的密码正确时(设密码为\，并按回车键，label2中显示\欢迎使用本系统！\，若密码不正确，则显示\你无权使用本系统！\

改错题：

1. 在考生目录下，给定程序MODI1.PRG的功能是： 显示输出如下的乘法表: 1*1= 1 1*2= 2 1*3= 3 1*4= 4 2*2= 4 2*3= 6 2*4= 8 3*3= 9 3*4=12

4*4=16

程序中有两处错误，错误都在提示行：***********found***********的下面一行， 请改正程序中的错误，使它能得出正确的结果。

2. 在考生目录下，给定程序MODI1.PRG的功能是：从键盘输入一个字符串，并反序输出。如输入\，则输出\。

3. 考生目录下，有表文件\学生23.dbf\（其中的性别字段是逻辑型，.T.表示男，.F.表示女），给定程序MODI1.PRG的功能是：计算女生的个数和所有女生的奖学金总和。

4. 在考生目录下，给定程序MODI1.PRG的功能是： 表文件MODI4.DBF中有“数字（N，4）”、“素数否（L）”字段，若“数字”字段的值是素数，则存.T.到“素数否”字段中，若不是素数则存.F.到“素数否”字段中。

CLEAR

INPUT \ TO A INPUT \ TO B INPUT \ TO C D=B*B - 4*A*C if D<0 ?\复根\

ELSE

***********found***********

IF D>0

?\ ELSE ***********found*********** D1=ABS(D)

?\ ?\

ENDIF ENDIF

SET TALK ON RETURN

a. if d=0 b. d1=sqrt(d) 填空题

1. SET TALK OFF CLEAR

INPUT \请输入数据个数：\INPUT \

STORE X TO MAXI,MINI SUM=X P=M-2

FOR I=1 TO M-1 INPUT \SUM=SUM+X ******found****** ______(1)______ MAXI=X ENDIF IF X

R=SUM-MAXI-MINI ?R/P

SET TALK ON

a. if x>maxi b. mini=x 2. CLEAR FOR I=1 TO 5 ?SPACE(5-I)

******found******

FOR J=1 TO ________(1)________ ******found******

________(2)________ ENDFOR ENDFOR

a. for j=1 to 2*i-1 b. ?? chr(64+i)

3. set talk off clear

input \请输入一个正整数m:\?alltrim(str(m,19))+\的质数因子有:\i=2

do while i<=m

******found****** if ________(1)________ ??str(i,6)

m=int(m/i) ******found******

________(2)________ endif i=i+1 enddo

set talk on

a. if mod(m,i)=0 b. loop 4.

Set talk off Clear

Accept \请输入一个汉字字符串： \******found****** s2=________(1)________ ?s1+\ -> \set talk on

func zfcdz para s m=len(s) ch=space(0) do while m>0

c=subs(s,m-1,2) ch=ch+c m=m-2 enddo

******found***** ________(2)________ endfunc

a. s2=zfcdz(s1) b. return ch 5. Clear

Do while .t.

Input \

If num_x<100 or num_x>=1000 or int(num_x)<>num_x messagebox(\ loop Else

num_y=int(num_x/10) *******found*******

result=num_y-(_____(1)_____) ?result

*******found*******

_____(2)_____ Endif Enddo

a. result=num_y-(int(num_y/10)*10) b. exit 6. Set talk off Clear

Select 1

Use student exclusive

Index on number tag number Select 2

Use score exclusive *******found*******

Set relation to ____(1)_____

*******found*******

Replace degree with degree+2 for ____(2)____ List number, a->name,degree Set relation to Close all Set talk on

a. number into a b. year(date())-year(a->birthday)=18 7. set talk on clear

input \

s=1

i=2

do while i

*******found******* if ____(1)_____ s=s+i endif i=i+1 enddo

*******found******* if ____(2)____ ?M,\是完数\else

?M,\不是完数\endif

set talk on

a. if m%i=0 b. if s=m 8. SET TALK OFF USE STD8 GO 2

******found****** ______(1)______ HOW=0

DO WHILE I<=8 IF 性别=\男\

HOW=HOW+1 ENDIF

I=I+2

******found******

______(2)______ ENDDO ?HOW USE

SET TALK ON a. i=2 b. skip 2 9. set talk off clear

input \ input \ k=a*b do while k>=a

******found******

if mod(k,a)=0 and ___(1)_____ x=k

endif

******found****** ____(2)_____ enddo

?\两数的最小公倍数是:\set talk on

a. if mod(k,a)=0 and mod(k,b)=0 b. k=k-1 10. set talk off clear c=\

for i=1 to 3

accept c+\请输入口令：\ psw if psw=\

?\欢迎使用本系统！\*******found******* ______(1)_______ endif

******found****** ________(2)_______

?\口令三次错误，无权使用本系统！再见！\ else

?\口令错！再试一次。\ endif endfor

set talk on

a. exit b. if i>=3 11. SET TALK OFF CLEAR

USE 成绩表

ACCEPT\请输入学生的学号：\*******found******* ________(1)________ IF !FOUND() ?\查无此人!\ELSE

*******found******* ________(2)________ DO CASE CASE CJ>=90 DC=\优\ CASE CJ>=80 DC=\良\ CASE CJ>=70

DC=\中\ CASE CJ>=60 DC=\及格\ CASE CJ<60 DC=\不及格\ ENDCASE ?XH,CJ,DC ENDIF USE

SET TALK ON

a. locate for学号=xh b. average 成绩 to cj for 学号=xh 12. *分别累加男女同学奖学金

SET TALK OFF CLEAR

USE 学生表

INDEX ON 学号 TO INN0 ?\各班男女奖学金总额统计************\?\班级 男同学奖学金总额 女同学奖学金总额\ DO WHILE !EOF() CLASS=LEFT(学号,3) *******found*******

________(1)________ DO WHILE LEFT(学号,3)=CLASS *******found******* ________(2)________

BOYS=BOYS+奖学金 ELSE GIRLS=GIRLS+奖学金 ENDIF SKIP

ENDDO

?CLASS+STR(BOYS,19,2)+ STR(GIRLS,19,2) ENDDO USE

SET TALK ON

a. store 0 to boys,girls b. if 性别 13. SET TALK OFF USE STD13 LIST

******found******

REPLACE ALL 优秀否 WITH .T. FOR ______(1)______ ******found******

COPY TO YH ______(2)______ USE

SET TALK ON

a. replace all 优秀否 with .t. for笔试成绩>=85and上机成绩>=85 b. copy to yh for优秀否=.t.

14. SET TALK OFF CLEAR FOR I=10 TO 99 FOR J=2 TO I-1 *******found*******

IF ______(1)_______ EXIT ENDIF ENDFOR IF I=J

A=INT(I/10)

B=MOD(I,10)

*******found******* K=_______(2)_______ FOR P=2 TO K-1 IF K%P=0 EXIT ENDIF ENDFOR IF K=P ?I ENDIF ENDIF ENDFOR

SET TALK ON

a. if i%j=0 b. k=10*b+a 15. SET TALK OFF CLEAR USE std14

C=\

FOR I=1 TO 3

ACCEPT C+\请输入口令：\ PSW LOCATE FOR ALLTRIM(口令)==ALLTRIM(PSW) ******found****** IF ______(1)______

?\欢迎使用本系统！\ EXIT

ENDIF

C=\口令错！再试一次。\ENDFOR

******found******

______(2)______

?\无权使用本系统！再见！\ENDIF USE

SET TALK ON a. if found() b. if i=4 16. SET TALK OFF

CLEAR

ACCEPT \请输入要显示的表名(扩展名请省略)\ BM bm=allt(bm)

******found****** ______(1)______ IF FILE(BM)

******found****** ______(2)______ BROWSE

ELSE

MESSAGEBOX(\指定表不存在！\ENDIF USE

SET TALK ON

a. bm=bm+\ b. use &bm

本文来源：https://www.bwwdw.com/article/qcd.html