以往笔试填空、读程序、编程序题.doc

《以往笔试填空、读程序、编程序题.doc》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、三、填空题（每空2分，共20分）1、定义一个一维数组MN，将数据表XZ.DBF（6个字段）中的每条记录存入该数组，并将该数组的值依次显示出来，请填空。CLEARDIMENSIONMN(6)USEXZDOWHILE.NOT.EOF()SCATTERTOMNL=1DOWHILEL<7??MN(L)L=L+1ENDDOSKIP?ENDDOUSE2、已知某单位教师工资表JS.DBF有如下记录：Record#编号姓名年龄工资13001李丽珍3669023002刘苏51168033003末言2282043004魏虎豹469605

2、3005罗山40110063006甘甜3092073007丰潇潇471200下列程序用于统计工资表JS.DBF中40岁以上（包括40岁）的教师的平均工资。请完成填空。USEJSS＝0N＝0LOCATEFOR年龄>＝40DOWHILENOTEOF()S＝S＋工资N＝N＋1CONTINUEENDDO?S/NUSE3、已知数据表“职工.DBF”（职工号，姓名，性别，出生日期，部门号，……）和“部门.DBF”（部门号，部门名，部门经理……）。请填空完成相应任务的SQL语句。①查询每个部门年龄最长者的信息，要求得到的信息包括部

3、门名和最长者的出生日期。SELECT部门名,MIN(出生日期)FROM部门JOIN职工ON部门.部门号＝职工.部门号GROUPBY部门名②查询有10名以上（含10名）职工的部门信息（部门名和职工人数），并按职工人数降序排列。SELECT部门名,COUNT(职工号)AS职工人数FROM部门,职工WHERE部门.部门号＝职工.部门号GROUPBY部门名HAVINGCOUNT(*)>＝10ORDERBY职工人数DESC4、设计如图1所示的表单，文本框Text1的Value初值为0。表单运行后，输入一个整数回车后，即可判断出

4、该数是不是素数，如图2所示。请填空完成。（素数又称质数，是指除了1和该数本身以外不能被其它任何整数整除的数。）图1表单设计界面图2表单运行界面Text1的Valid事件代码：N=thisform.text1.valueL=2DOWHILEL＝Nthisform.label2.caption=alltrim(str(N))+"是素数"ELSEthisform.label2.caption=alltrim(str(N))+"不是素数"ENDIF

5、四、阅读程序题（每小题5分，共20分）1、有一程序如下，请写出运行结果。CLEARDIMENSIONA(3，3)FORI＝1TO3FORJ＝1TO3IFI<>JA(I，J)＝0ELSEA(I，J)＝9ENDIF??A(I，J)ENDFOR?ENDFORCANCEL运行结果为：9000900092、表文件（积分.dbf）如下表所示。积分.dbf学号（C）积分（N）220140220270220350220420220110220270220360220840220530写出一下程序运行的结果。USE积分STORE0TO

6、X，Y，ZSCANDOCASECASERIGHT(学号，1)＝″1″X＝X＋积分CASERIGHT(学号，1)＝″2″Y＝Y＋积分CASERIGHT(学号，1)＝″3″Z＝Z＋积分ENDCASEENDSCAN?X＋Y＋ZUSE运行结果：3003、如图所示一程序界面。文本框Text1已经输入一串文字，单击“转换”命令按钮后，文本框的值将变为什么？“转换”命令按钮的Click事件代码：N=LEN(THISFORM.TEXT1.VALUE)Y=″″DOWHILEN>0X=SUBSTR(THISFOR.TEXT1.VALUE

7、,N,1)IFASC(X)>=ASC(″a″)X=UPPER(X)ELSEX=LOWER(X)ENDIFY=X+YN=N－1ENDDOTHISFORM.TEXT1.VALUE=Y运行结果为：tHISISAcpu4、以下程序的运行结果是什么？主程序MAIN.PRG*SUB1.PRG*SUB2.PRGCLEAPARABPRIVCA＝1PRIVCA＝3B＝1A＝2B＝3C＝1C＝2C＝3DOSUB1WITHA?A,B,C?A,B,C?A,B,CDOSUB2RETUTOMASTERRETUB＝2RETU运行结果为：21233

8、3311五、程序设计题（每小题10分，共20分）1、设计有如图a所示表单，其中文本框text1的value属性的初值为0。其功能是表单运行后在文本框text1中输入一个数，单击“判断”按钮可以判断该数是否为奇数。如果是奇数，输出“该数是奇数！”，否则输出“该数不是奇数！”。该程序能够循环处理，直到输入零（0）则关闭表单。请编写“判断”命令按钮的