2023年高考文科数学试题答案(全国卷2)

1.数据表文件GZ.DBF已按部门有序，其内容如下：姓名部门工资奖金实发陈三业务科730850张四经理室890890林五经理室630960马六技术科560840江七技术科9501340按以下要求完成命令：利用CALCULATE命令求出工资的最小值、最大值和平均值，结果分别放到变量A、B、C中按工资升序建立非结构型复合索引，文件名为GZSY.CDX利用REPLACE命令核算每个人的实发工资将表中部门为技术科的记录删除用浏览窗口显示表中工资为800元〔含800元〕以上并且部门为经理室的记录1、USEGZCALCULATEMIN(工资),MAX(工资),AVG(工资)TOA,B,CUSE〔3分〕2、USEGZINDEXON工资TAGTGZOFGZSYUSE〔3分〕3、USEGZREPLACEALL实发WITH工资+奖金USE〔3分〕4、USEGZDELETEFOR部门=“技术科〞PACK〔3分〕5、USEGZBROWSEFOR工资>=800.AND.部门=“经理室〞USE2、假设有一自由表da.dbf，编程实现逐条显示表中“年龄〞字段的大于40岁〔含40岁〕的记录，要求每显示一条暂停，并询问用户“是否继续显示下一条？Y/N〞，选“Y〞那么继续，选“N〞那么结束程序。〔7分〕、SETTALKOFFUSEDA〔1分〕A=“Y〞〔1分〕SCANFOR年龄>=40WHILEUPPER〔A〕=“Y〞〔1分〕DISPLAY〔1分〕WAIT“是否继续显示下一条？Y/N〞TOA〔1分〕ENDSCAN〔1分〕USE〔1分〕SETTALKON3、设计一个表单样式如图，两个文本框的名字分别为Text1和Text2，“计算等级〞命令按钮的名为Cmd1，“退出〞命令按钮的名为Cmd2，实现功能为在Text1中输入一个考试成绩，在Text2中显示出此成绩对应的等级，合理的成绩应在0—100分，完成两个命令按钮的代码设计。〔8分〕Cmd1的代码：N=VAL(THISFORM.TEXT1.VALUE)〔1分〕DOCASECASEN>100.OR.N<0B=“此成绩不正确〞CASEN>=90B=“优秀〞CASEN>=80B=“良好〞CASEN>=70B=“中〞CASEN>=60B=“及格〞OTHERWISEB=“不及格〞〔4分〕ENDCASETHISFORM.TEXT2.VALUE=B〔1分〕THISFORM.REFERSHCmd2的代码：THISFORM.RELEASE4、一表单结构如图，其中下边的按钮是用命令按钮组实现的，按钮组的Name为Cmdgup1，每个按钮的Name分别为Cmd1、Cmd2、Cmd3、Cmd4、Cmd5。下面是Cmdgup1控件的Click事件的局部代码，请将代码完成。(10分)docasecasen=1gotopthisformdgup1d2.enabled=.f.thisformdgup1d3.enabled=.t.thisformdgup1d4.enabled=.t.thisform.refreshcasen=2ifbof()gotopthisformdgup1d2.enabled=.f.elseskip–1thisformdgup1d3.enabled=.t.thisformdgup1d4.enabled=.t.ifbof()thisformdgup1d2.enabled=.f.endifendifthisform.refreshcasen=3ifeof()〔1分〕gobottom〔1分〕thisformdgup1d3.enabled=.f.〔1分〕elseskipthisformdgup1d2.enabled=.t.ifeof()〔1分〕thisformdgup1d3.enabled=.f.〔1分〕endifendifthisform.refresh〔1分〕casen=4gobottom〔1分〕thisformdgup1d3.enabled=.f.〔1分〕thisformdgup1d4.enabled=.t.〔1分〕thisform.refresh〔1分〕Casen=5Thisform.releaseEndcase5.数据表文件DA.DBF，其字段如下：编号姓名性别年龄职称工资对表中50岁以上〔含50岁〕的教授用浏览窗口显示。按照性别字段建立构造型复合索引。将所有人工资涨300元。利用TOTAL命令对该表按照性别进行汇总，结果放到达表DAHJ.DBF中。求年龄的平均值结果放到变量NL中。1、USEDABROWSEFOR年龄>=50.AND.职称=“教授〞USE〔3分〕2、USEDAINDEXON性别TAGTXBUSE〔3分〕3、USEDAREPLACEALL工资WITH工资+300USE〔3分〕4、USEGZTOTALON性别TODAHJUSE〔3分〕5、USEDAAVERAGE年龄TONLUSE6.假设有一自由表da.dbf，字段结构同第四大题，编程实现从键盘输入一个编号，在表中找到该记录，判断如果为男性显示姓名、性别、年龄，女性那么显示其姓名、性别、职称。〔8分〕SETTALKOFFUSEDA〔1分〕ACCEPT“请输入编号：〞TOBH〔1分〕LOCATEFOR编号=BH〔1分〕IF性别=“男〞〔1分〕DISPLAY姓名,性别,年龄〔1分〕ELSE〔1分〕DISPLAY姓名,性别,职称〔1分〕ENDIFUSE〔1分〕SETTALKON7、设计一个表单样式如图，三个文本框的名字分别为Text1、Text2和Text3，“确定〞命令按钮的名为Cmd1，“退出〞命令按钮的名为Cmd2，实现功能为在Text1中输入一个英文字母构成的字符串，按“确定〞按钮后在Text2中显示此字符串的长度，在Text3中把字母变成大写显示出来，完成两个命令按钮的代码设计。〔10分〕Cmd1代码：N=THISFORM.TEXT1.VALUE〔2分〕A=STR(LEN(N))〔2分〕B=UPPER(N)THISFORM.TEXT2.VALUE=A〔1分〕THISFORM.TEXT3.VALUE=B〔1分〕THISFORM.REFERSHCmd2代码：THISFORM.RELEASE8、利用过程的方法编程求圆锥的体积〔公式为V=¾лr2h,r为底圆半径，h为高〕。〔7分〕SETTALKOFFINPUT“请输入圆锥的高〞TOH〔1分〕INPUT“请输入圆锥的底圆半径〞TOR〔1分〕V=0DOSUBWITHH,R,S〔1分〕?“该圆锥的体积为〞+STR(V)〔1分〕PROCEDURESUB〔1分〕PARAMETERX,Y,Z〔1分〕Z=3/4*3.14*R*R*H〔1分〕RETURN9.数据表文件stock.dbf，其字段如下：编号姓名根本工资职务补贴岗位津贴水电费实发工资对表中工资前两项和为2000元〔包括2000元〕以上的记录用浏览窗口显示。按照工资前三项的和建立非构造型复合索引，文件名为stgz.cdx。根据4项工资值核算所有人的实发工资。利用CALCULATE命令对该表求实发工资的最大值、最小值和平均值，结果放到变量GZMAX、GZMIN、GZAVER中。1、USEstockBROWSEFOR根本工资+职务补贴>=2000USE〔3分〕2、USEstockINDEXON根本工资+职务补贴+岗位津贴TAGTGZofstgz.cdxUSE〔4分〕3、USEstockREPLACEALL实发工资WITH根本工资+职务补贴+岗位津贴-水电费USE〔4分〕4、USEstockCALCULATEMAX〔实发工资〕，MIN〔实发工资〕，AVG〔实发工资〕TOGZMAX，GZMIN，GZAVERUSE假设有一自由表stock.dbf，字段结构同第四大题，编程实现从键盘输入一个编号，在表中找到该记录，判断实发工资是否在3000元以上。〔6分〕SETTALKOFFUSEDA〔1分〕ACCEPT“请输入编号：〞TOBH〔1分〕LOCATEFOR编号=BH〔1分〕IF实发工资>=3000〔1分〕C=“该职工实发工资高于3000元〞〔1分〕ELSEC=“该职工实发工资低于3000元〞〔1分〕ENDIF？CUSESETTALKON10、设计一个表单样式如图，文本框的名字为Text1，“显示〞命令按钮的名为Cmd1，“关闭〞命令按钮的名为Cmd2，实现功能按“显示〞按钮后在Text1中显示今天是星期几，完成两个命令按钮的代码设计。〔10分〕Cmd1代码：N=DOW(DATE())〔1分〕DOCASECASEN=1A=“日〞CASEN=2A=“一〞CASEN=3A=“二〞CASEN=4A=“三〞CASEN=5A=“四〞CASEN=6A=“五〞OTHERWISEA=“六〞(4分)ENDCASETHISFORM.TEXT1.VALUE=A〔2分〕THISFORM.REFRESH〔1分〕Cmd2代码：THISFORM.RELEASE11、编程显示100到300间的全部素数。〔9分〕SETTALKOFFFORA=100TO300〔1分〕N=INT(SQRT(A)+0.5)〔1分〕FORB=3TON〔1分〕IFA%B=0EXIT〔2分〕ENDIFENDFORIFB>N〔2分〕?A〔1分〕ENDIFENDFOR11.当前盘当前目录下有数据库db_stock，其中有数据库表stock.dbf，该数据库表的内容如选择题第2题：利用FoxPro命令完成以下要求：利用CALCULATE命令求出股票单价的最小值、最大值和平均值，结果分别放到变量A、B、C中按交易所升序建立非结构型复合唯一索引，文件名为SY.CDX利用适宜的命令把所有上海的股票的单价增加0.5元利用SQL语言实现对表中单价超过10元并且交易所为上海的股票代码、股票名称和单价的查询，结果按照单价升序排列将表中交易所为深圳的记录删除。1、OPENDATABASEdb_stockUSEstockCALCULATEMIN(单价),MAX(单价),AVG(单价)TOA,B,CUSE〔3分〕2、OPENDATABASEdb_stockUSEstockINDEXON交易所TAGTGZOFSY.CDXUSE〔3分〕3、OPENDATABASEdb_stockUSEstockREPLACEALL单价WITH单价+0.5FOR交易所=“上海〞USE〔3分〕4、SELECT股票代码，股票名称，单价FROMstockWHERE单价>10.AND.交易所=“上海〞ORDERBY单价〔3分〕5、OPENDATABASEdb_stockUSEstockDELETEFOR交易所>=“深圳〞12、假设有一自由表da.dbf，分别利用Dowhile循环和Scan循环编程实现逐条显示表中“职称〞字段为“教授〞的记录，要求每显示一条暂停，并询问用户“是否继续显示下一条？Y/N〞，选“Y〞那么继续，选其它那么结束程序。〔9分〕DOWHILE循环做法：SETTALKOFFUSEDADOWHILE.NOT.EOF()DISPLAYWAIT“是否继续显示下一条？Y/N〞TOAIFUPPER(A)=〞Y〞SKIPLOOPELSEEXITENDIFENDDOUSESETTALKON〔5分〕SCAN循环做法：SETTALKOFFUSEDAA=“Y〞SCANFOR职称=“教授〞WHILEUPPER〔A〕=“Y〞DISPLAYWAIT“是否继续显示下一条？Y/N〞TOAENDSCANUSE〔4分〕SETTALKON13、设计一个表单样式如图，两个文本框的名字分别为Text1和Text2，“查询〞命令按钮的名为Cmd1，“退出〞命令按钮的名为Cmd2，实现功能为在Text1中输入一个专业代码，在Text2中显示出此代码对应的专业名称，合理的代码和专业名称对应应为01—工商管理、02—会计学、03—金融学、04—国际经济与贸易、05—市场营销、06—信息管理与信息系统、07—经济学、08—物流管理，完成两个命令按钮的代码设计。〔10分〕Cmd1的代码：N=VAL(THISFORM.TEXT1.VALUE)〔1分〕DOCASECASEN=‘01’B=“工商管理〞CASEN=‘02’B=“会计学〞CASEN=‘03’B=“金融学〞CASEN=‘04’B=“国际经济与贸易〞CASEN=‘05’B=“市场营销〞CASEN=‘06’B=“信息管理与信息系统〞CASEN=‘07’B=“经济学〞CASEN=‘08’B=“物流管理〞OTHERWISEB=“代码不正确〞〔6分〕ENDCASETHISFORM.TEXT2.VALUE=B〔1分〕THISFORM.REFERSHCmd2的代码：THISFORM.RELEASE14.数据表文件stock.dbf，其字段如下：编号姓名性别年龄职称工资对表中男的讲师用浏览窗口显示。按照性别字段建立非构造型唯一复合索引，文件名为stxb.cdx。将所有人工资涨20%。利用TOTAL命令对该表按照性别进行汇总，结果放到达表DAHJ.DBF中。求年龄的平均值结果放到变量NL中。1、USEstockBROWSEFOR性别=“男〞.AND.职称=“讲师〞USE〔3分〕2、USEstockINDEXON性别TAGTXBofstxb.cdxuniqUSE〔3分〕3、USEstockREPLACEALL工资WITH工资*1.2USE〔3分〕4、USEstockTOTALON性别TODAHJUSE〔3分〕5、USEstockAVERAGE年龄TONL15.假设有一自由表da.dbf，字段结构同第四大题，编程实现从键盘输入一个姓名，在表中找到该记录，判断如果为教授显示姓名、性别、年龄，其它那么显示其姓名、性别、职称。〔8分〕SETTALKOFFUSEDA〔1分〕ACCEPT“请输入姓名：〞TOXM〔1分〕LOCATEFOR姓名=XM〔1分〕IF职称=“教授〞〔1分〕DISPLAY姓名,性别,年龄〔1分〕ELSE〔1分〕DISPLAY姓名,性别,职称〔1分〕ENDIFUSE〔1分〕3、编程求从键盘输入3个互不相等的数，求其最大值和最小值。〔7分〕SETTALKOFFINPUT“请输入第一个数：〞TOAINPUT“请输入第二个数：〞TOBINPUT“请输入第三个数：〞TOC〔2分〕IFA<BIFB<CT=AT=BA=BB=CB=TC=TENDIF〔1分〕ENDIF〔1分〕IFA<C?“最大值为“，A〔1分〕T=A?“最小值为“，C〔1分〕A=CC=TENDIF〔1分〕假设有一自由表da.dbf，字段结构同第四大题，编程实现从键盘输入一个编号，在表中找到该记录，判断如果为男性显示姓名、性别、年龄，女性那么显示其姓名、性别、职称。〔8分〕SETTALKOFFUSEDA〔1分〕ACCEPT“请输入编号：〞TOBH〔1分〕LOCATEFOR编号=BH〔1分〕IF性别=“男〞〔1分〕DISPLAY姓名,性别,年龄〔1分〕ELSE〔1分〕DISPLAY姓名,性别,职称〔1分〕ENDIFUSE〔1分〕SETTALKON2、设计一个表单样式如图，两个文本框的名字分别为Text1、Text2，“显示〞命令按钮的名为Cmd1，“关闭〞命令按钮的名为Cmd2，实现功能为在Text1中输入一个考试成绩，按“确定〞按钮后在Text2中显示该成绩的等级，完成两个命令按钮的代码设计。〔10分〕Cmd1代码：N=VAL(THISFORM.TEXT1.VALUE)〔2分〕DOCASECASEN>100.OR.N<0B=“此成绩不正确〞CASEN>=90B=“优秀〞CASEN>=80B=“良好〞CASEN>=70B=“中〞CASEN>=60B=“及格〞OTHERWISEB=“不及格〞〔4分〕ENDCASETHISFORM.TEXT2.VALUE=B〔1分〕THISFORM.REFERSH〔1分〕Cmd2代码：THISFORM.RELEASE3、从键盘输入一个正整数，编程求圆锥的体积〔公式为V=¾лr2h,r为底圆半径，h为高该数的阶乘。〔7分〕SETTALKOFFINPUT“请输入一个正整数〞TOH〔1分〕S=1〔1分〕FORV=HTO1STEP-1〔2分〕S=S*H〔2分〕ENDFOR?“该数的阶乘为〞+STR(S)〔1分〕RETURN.1、退出VisualFoxPro6.0的操作方法是是〔d〕。A.从“文件〞下拉菜单中选择“退出〞选项B.单击关闭窗口按扭C.在命令窗口中输入QUIT口令，然后按回车键D.以上方法都可以2、在DOWHILE…ENDDO循环结构中，LOOP命令的作用是(B)。A．退出过程，返回程序开始处B．转移到DOWHILE语句行，开始下一个判断和循环C．终止循环，将控制转移到本循环结构ENDDO后面的第一条语句继续执行D．终止程序执行3、在VisualFoxPro中，用于建立或修改命令文件的命令是(B)。A．MODIFYFileNameB．MODIFYCOMMANDFileNameC．MODIFYPROCEDUREFileNameD．上面B．和C．都对4、报表设计器中不包含在根本带区中的有(A)。A．标题B．页标头C．页注脚D．细节5、以下关于视图的表达中，正确的是(B)。A．只能由自由表创立视图B．只能由数据库表创立视图C．不能由数据库表创立视图D．自由表和数据库表都能创立视图6、关于数据库表和自由表的区别，正确的选项是(D)。A．可以为自由表添加标题和注释，而数据库表不能B．可以为自由表的字段设置默认值和输入掩码C．不能为数据库表的字段设置默认值和输入掩码D．可以为数据库表设置默认值、输入掩码、标题和注释7、下面有关索引的描述正确的是(C)。A．建立索引以后，原来的数据库表文件中记录的物理顺序将被改变B．索引与数据库表的数据存储在一个文件中’C．创立索引是创立一个指向表文件记录的指针构成的文件D．使用索引并不能加快对表的查询操作8、在下面的VisualFoxPro表达式中，不正确的是(C)。A.{^2001-05-0110:1010AM}-10B.{^2001-05-01}-DATE(.)C.{^2001-05-01)+DATE()D.[^2001-05-01]+[1000]9、函数INT(12.865)的值为(A)。10、有如下程序：INPUTTOAIFA=10S=0ENDIFS=1?S问：假定从键盘输入的A的值一定是数值型，那么上面程序的执行结果是(B)。A．0B．1C．由A的值决定D．程序出错1、__WAIT______命令等待用户从键盘输入一个字符，输入字符后程序继续运行。2、VisualFoxPro是一种结构化程序设计语言，表达了结构化程序设计的根本特征。它的根本结构有____顺序____、__分支______和____循环____。3、在循环的次数的情况下，通常使用_______FORENDFOR__________循环语句。4、对于表单中的标签控件，假设要使该标签显示指定的文字，应对其___CAPTION_____属性进行设置；假设要使指定的文字自动适应标签区域的大小，那么应将其___AUTISUZE_____属性设置为逻辑真值。5、视图可分为___本地视图______和_____远程视图____两种。6、在VisualFoxPro6.0中货币数据的宽度固定是_4___。数据表文件JS.DBF，其字段如下：编号姓名性别出生日期职称工资年龄显示表中1965年1月1日之前出生的记录。按照职称字段建立结构型复合唯一索引。根据出生日期重新求每个人的年龄，并替换到相应的字段中。利用命令对该表求工资的最高值，结果放到达变量GZ中。求年龄的平均值结果放到变量NL中。1、USEDABROWSEFOR出生日期<{^1965/01/01}USE〔3分〕2、USEDAINDEXON职称TAGTBHUNIQ3、USEDAREPLACEALL年龄WITHYEAR(DATE())-YEAR(出生日期)USE〔3分〕4、USEGZCALCULATEMAX(工资)TOGZUSE〔3分〕5、USEDAAVERAGE年龄TONLUSE〔3分〕判断以下程序运行结果：(4分)SETTALKOFFINPUT〞请输入一个正整数〞TONS=0DOWHILEN>0S=S+N%10N=INT(N/10)ENDDO?SSETTALKON程序运行后输入：123456789那么运行结果为：(1)45〔2分〕SETTALKOFFY=YEAR(DATE())M=MONTH(DATE())D=DAY(DATE())?STR(Y,4,0)+〞年〞+STR(M,2,0)+〞月〞+STR(D,2,0)+〞日〞以考试当天为例，写出运行结果：(2)2023年12月05日2、编程实现在表单上任意输入年月日，单击计算按钮后显示出平年、闰年，几季度，上、中、下旬〔如下图〕。计算按钮为command1，退出按钮尾为command2，平年、闰年，几季度，上、中、下旬分别用3个标签label1、label2、label3来显示，请写出command1和command2的程序代码。(10分)闰年计算规那么：能被4整除但不能被100整除，或者能被400整除的。Command1代码：〔11分〕y=VAL(ALLTRIM(thisform.text1.value))IFy%4=0.and.y%100<>0.or.y%400=0yy="今年是闰年"ELSEyy="今年是平年"ENDIFthisform.label1.caption=yym=VAL(ALLTRIM(thisform.text2.value))〔4分〕DOcaseCASEm<=3mm="一季度"CASEm<=6mm="二季度"CASEm<=9mm="三季度"CASEm<=12mm="四季度"ENDCASEthisform.label2.caption=mmd=VAL(ALLTRIM(thisform.text3.value))〔4分〕DOcaseCASEd<=10dd="上旬"CASEd<=20dd="中旬"otherwisedd="下旬"endcasethisform.label3.caption=ddthisform.Refresh〔3分〕Command2代码：Thisform.releaseCommand2代码：〔2分〕Thisform.release〔2分〕3、水仙花数是指一个n(>=3)位数字的数,它等于每个数字的n次幂之和，如153=13+53+33，编程显示所有1000以内的水仙花数。〔8分〕SETTALKOFFclearFORa=0TO9〔2分〕FORb=0TO9〔2分〕FORc=1TO9〔2分〕IFa^3+b^3+c^3=a+10*b+100*c〔2分〕?a+10*b+100*cENDIFENDFORENDFORENDFORSETTALKON1、数据库DB，数据库系统DBS，数据库管理系统DBMS三者之间的关系是〔A〕。A．DBS包括DB和DBMS B．DBMS包括DB和DBSC．DB包括DBS和DBMS D．DBS就是DB，也就是DBMS.2、在下面4个文件中，哪个是查询文件(C)．A．CX.PRGB．CX.BAKC．CX.QPRD．CX.PIX3、在DOWHILE….ENDDO循环结构中，EXIT命令的作用是(C)。A〕退出过程，返回程序开始处B〕转移到DOWHILE语句行，开始下一个判断和循环C〕终止循环，将控制转移到本循环结构ENDDO后面的第一条语句继续执行D〕终止程序执行4、在VisualFoxPro中，相同关键字的记录只取一条记录的索引是(C)。A〕主索引B〕普通索引C〕惟一索引D〕排序索引5、使用命令DECLAREmm(3，9)定义的数组，包含的数组元素(下标变量)的个数为(B)。A)3个B)27个C)9个D)12个6、查询的默认输出形式是(D)。A.数据表B.图形C.报表D.浏览7、VisualFoxProDBMS基于的数据模型是(B)。A〕层次型B〕关系型C〕网状型D〕混合型8、关于数据库表和自由表的区别，正确的选项是(D)。A．可以为自由表添加标题和注释，而数据库表不能B．可以为自由表的字段设置默认值和输入掩码C．不能为数据库表的字段设置默认值和输入掩码D．可以为数据库表设置默认值、输入掩码、标题和注释9、在下面的VisualFoxPro表达式中，不正确的是(C)。A.{^2001-05-0110:1010AM}-10B.{^2001-05-01}-DATE()C.{^2001-05-01)+DATE()D.[^2001-05-01]+[1000]10、有如下程序：INPUTTOXIFX>=0S=100ENDIFS=0?S问：假定从键盘输入的A的值一定是数值型，那么上面程序的执行结果是(A)。A．0B．1C．由A的值决定D．程序出错1、__ACCEPT______命令在程序中只接受字符型数据。2、VisualFoxPro提供了两条实现分支结构的语句：____DO_____语句和_______CASEENDCASE___________语句，分别称为简单分支语句和多分支语句。3、VisualFoxPro6.0中的常用数据类型有__11__种，其中能用于常量和变量的有__6__种，仅用于表定义的有__5__种。4、VisualFoxPro中报表的组成包括__数据源____和___布局___。5、在VisualFoxPro6.0数据库文件的扩展名为__DBC____，数据表文件的扩展名为__DBF____。数据表文件JS.DBF，其字段如下：编号姓名性别出生日期职称工资显示表中男教授的记录。按照编号字段建立非构造型复合索引，文件名为JSSY.CDX。将所有教授工资涨30%。利用命令对该表求工资的平均值，结果放到达变量GZ中。求年龄的最大值结果放到变量NL中。1、USEDABROWSEFOR性别>=〞男〞.AND.职称=“教授〞USE〔3分〕2、USEDAINDEXON编号TAGTBHOFJSSYUSE〔3分〕3、USEDAREPLACEALL工资WITH工资*1.3FOR职称=“教授〞USE〔3分〕4、USEGZAVERAGE工资TOGZUSE〔3分〕5、USEDACALCULATEMAX(年龄)TONLUSE〔3分〕判断以下程序运行结果：〔6分〕SETTALKOFFINPUT〞请输入年〞TOYINPUT〞请输入月〞TOMINPUT〞请输入日〞TODIFY%4=0.AND.Y%100<>0.OR.y%400=0YY="闰"ELSEYY="平"ENDIFDOCASECASEM<=3MM="一"CASEM<=6MM="二"CASEM<=9MM="三"CASEM<=12MM="四"ENDCASEDOCASECASED<=10DD="上旬"CASED<=20DD="中旬"OTHERWISEDD="下旬"ENDCASE?〞您输入的日期是〞+YY+〞年〞+〞第〞+MM+〞季度〞+DDSETTALKON程序运行后输入：20231205那么运行结果为：今年是平年第四季度上旬(6分)2、编程求任意两个正整数的最小公倍数。(8分)SETTALKOFFINPUT“请输入第一个正整数：〞TOM(1分)INPUT“请输入第二个正整数：〞TON(1分)X=M(1分)DOWHILEX%N<>0(2分)X=X+M(1分)ENDDO(1分)?〞它们的最小公倍数为：〞,X(1分)SETTALKON3、设计一个表单样式如图，两个文本框的名字分别为Text1、Text2，“显示〞命令按钮的名为Cmd1，“关闭〞命令按钮的名为Cmd2，实现功能为在Text1中输入一个考试成绩，按“确定〞按钮后在Text2中显示该成绩的等级，完成两个命令按钮的代码设计。〔11分〕Cmd1代码：N=VAL(THISFORM.TEXT1.VALUE)〔2分〕DOCASECASEN>100.OR.N<0B=“此成绩不正确〞CASEN>=90B=“优秀〞CASEN>=80B=“良好〞CASEN>=70B=“中〞CASEN>=60B=“及格〞OTHERWISEB=“不及格〞〔5分〕ENDCASETHISFORM.TEXT2.VALUE=B〔1分〕THISFORM.REFERSH〔1分〕Cmd2代码：THISFORM.RELEASE〔2分〕1、以下四个选项中，不属于根本关系运算的是〔C〕。A．连接 B．选择C．排序 D．投影2、在下面4个文件中，哪个是报表文件(D)．A．CX.PRGB．CX.BAKC．CX.QPRD．CX.FRX3、在DOWHILE….ENDDO循环结构中，EXIT命令的作用是(C)。A．退出过程，返回程序开始处B．转移到DOWHILE语句行，开始下一个判断和循环C．终止循环，将控制转移到本循环结构ENDDO后面的第一条语句继续执行D．终止程序执行4、在VisualFoxPro中，相同关键字的记录只取一条记录的索引是(C)。A．主索引B．普通索引C．惟一索引D．排序索引5、下面哪个选项的方法不能退出VisualFoxPro9.0(B)。A．从“文件〞菜单下选择“退出〞选项B．在命令窗口中输入EXIT命令，然后回车C．单击关闭窗口按钮D．在命令窗口中输入QUIT命令，然后回车6、执行？SUBSTR(“沈阳理工大学经济管理学院〞,5,4)的结果是(A)。A．理工B．理工大学C．大学D．大学经济7、在VisualFoxPro控件中，命令按钮的缺省名字是(C)。A．labelB．textC．commandD．option8、关于数据库表和自由表的区别，正确的选项是(D)。A．可以为自由表添加标题和注释，而数据库表不能B．可以为自由表的字段设置默认值和输入掩码C．不能为数据库表的字段设置默认值和输入掩码D．可以为数据库表设置默认值、输入掩码、标题和注释9、在下面的VisualFoxPro表达式中，不正确的是(C)。A．{^2023-05-0110:1010AM}-10B．{^2023-05-01}-DATE()C．{^2023-05-01)+DATE()D．[^2023-05-01]+[1000]10、有如下程序：INPUTTOXIFX>=0S=100ENDIFS=0?S问：假定从键盘输入的A的值一定是数值型，那么上面程序的执行结果是(A)。A．0B．1C．由A的值决定D．程序出错1、能唯一标识元组且不包括多余属性的最小属性组合称为关系的___码_____。2、视图中的数据取自数据库中的__表____或__图____。3、在表中当前记录后插入一条空白记录的命令是____INSERTBLANK___。4、VisualFoxPro中报表的组成包括____数据源__和___布局___。5、表达式3+3>=6.or.5*0.3>1.and.〞a〞+〞b〞=〞a〞的结果是__T____。6、与表文件不同名，但其扩展名为．cdx的文件是与该表对应的__非结构型复合索引__。7、VFP9.0中的SQLSELECT语句中为了将查询结果存放到临时表中应该使用__ITOCURSOR______短语。8、在VisualFoxPro中，用户使用鼠标左键单击对象时发生的事件是__ｃｌｉｃｋ____。学生表：STU(Sno,Sname,Ssex,Sage,Dno)，其属性分别表示学号，姓名，性别，年龄，系编号。系别表：DEPT(Dno,Dname)，其属性分别表示系编号，系名称。试完成以下各小题：1．用CREATETABLE语句定义根本表STU和DEPT。〔3分〕2．检索每个系的学生人数和平均年龄。要求显示(系编号，系名称，学生人数，平均年龄)。〔4分〕3．在DEPT表中，删除人数少于5人的系。〔4分〕4、在STU表中，把所有学生的年龄增加一岁。〔3分〕5．创立一个年龄大于20岁男性学生的视图，属性为(Dno，Dname，Sno，Sname，Sage)〔3分〕6.用VisualFoxPro的Index命令给STU表按照年龄降序建立一个构造型复合索引。〔3分〕1、CreattableSTU(SnoC(4)，SnameC(8),SsexC(2),SageN(2,0),DnoC(3))CreattableDEPT(DnoC(3),DnameC(20))(3分)2、SelectDEPT.Dno,Dname,count(*)as人数,avg(Sage)as平均年龄FromSTU,DEPTwhereSTU.Dno=DEPT.DnoorderbySTU.Dno(4分)DeletefromDEPTwhereDno=any(selectDnofromSTUorderbySTU.Dnohavingcount(*)<5)〔4分〕4、UpdateSTUsetSage=Sage+1〔3分〕5、Creatviewv_x(Dno,Dname,Sno,Sname,Sage)as(SeleteDEPT.Dno,Dname,Sno,Sname,SagefromSTU,DEPTwhereSTU.Dno=DEPT.DnoAndSage>=20andSsex=〞男〞〕(3分)6、useSTUIndexonSagetagtnldesc(3分)编程实现在表单上任意输入年月日，初始运行状态如图1，单击显示按钮后如图2所示。年月日分别用text1，text2，text3文本框来输入，显示按钮为command1，关闭按钮为command2，平年、闰年，几季度，上、中、下旬，星期几分别用4个标签label1、label2、label3、label4来显示，请写出command1和command2的程序代码。闰年计算规那么：能被4整除但不能被100整除，或者能被400整除的。(15分)图1图2Command1代码：〔13分〕y=VAL(ALLTRIM(thisform.text1.value))IFy%4=0.and.y%100<>0.or.y%400=0yy="今年是闰年"ELSEyy="今年是平年"ENDIFthisform.label1.caption=yym=VAL(ALLTRIM(thisform.text2.value))〔4分〕DOcaseCASEm<=3mm="一季度"CASEm<=6mm="二季度"CASEm<=9mm="三季度"CASEm<=12mm="四季度"ENDCASEthisform.label2.caption=mmd=VAL(ALLTRIM(thisform.text3.value))〔4分〕DOcaseCASEd<=10dd="上旬"CASEd<=20dd="中旬"otherwisedd="下旬"endcasethisform.label3.caption=ddw=ALLTRIM(thisform.text1.value)+〞/〞+ALLTRIM(thisform.text2.value)+〞/〞+w=dow(ctod(w))docasecaseda=1ww=〞日〞caseda=2ww=〞一〞caseda=3ww=〞二〞caseda=4ww=〞三〞caseda=5ww=〞四〞caseda=6ww=〞五〞otherwiseww=〞六〞endcasethisform.label4.caption=wwthisform.RefreshCommand2代码：〔2分〕Thisform.release〔2分〕2、以第四大题表STU为例，利用循环编程实现逐条显示表中系编号为“A01〞的记录，要求每显示一条暂停，并询问用户“是否继续显示下一条？Y/N〞，选“Y〞那么继续，选其它那么结束程序。(5分)SETTALKOFFUSESTUA=“Y〞SCANFORDno=“A01〞WHILEUPPER〔A〕=“Y〞(2分)DISPLAYWAIT“是否继续显示下一条？Y/N〞TOA〔2分〕ENDSCANUSE〔1分〕SETTALKON1、数据库DB，数据库系统DBS，数据库管理系统DBMS三者之间的关系是〔A〕。A．DBS包括DB和DBMS B．DBMS包括DB和DBSC．DB包括DBS和DBMS D．DBS就是DB，也就是DBMS2、在下面4个文件中，哪个是表单文件(B)．A．CX.PRGB．CX.SCXC．CX.QPRD．CX.FRX3、在DOWHILE….ENDDO循环结构中，LOOP命令的作用是(B)。A．退出过程，返回程序开始处B．转移到DOWHILE语句行，开始下一个判断和循环C．终止