河北省对口升学计算机专业各年高考表单试题

2011年河北高考试题1. 在Visual FoxPro的表单上添加一个标签，其Name属性为：Label1，添加一个命令按钮，其Name属性为：Command1，Caption属性为：显示。

Command1的Click事件代码如下：bel1.Caption="*"For k=1 TO 2bel1.Caption= bel1.Caption+Str(k,3) EndForFor n=1 TO 3FOR i=1 TO nbel1.Caption= bel1.Caption+Str(i*n,3) EndForEndFor运行上面的表单，单击命令按钮，则标签上显示的结果为（要求按格式写输出结果，空格用└┛表示）：2．设有数据库文件“学生管理.dbc”，该库中有“学生”表和“成绩”表，表结构如下：“学生”表：学号(C,8)，姓名(C,8)，性别(C,2)，平均分(N,5,1)“成绩”表：学号(C,8)，课程名(C,20)，成绩(N,5,1)设计应用程序界面如下：设置控件属性如下：文本框的Name属性为：Text1（Text1用于输出平均分最高的课程的课程名和平均分。

）命令按钮的Name属性为：Command1，Caption属性为：计算编写Visual FoxPro程序实现下述功能：(1)根据“成绩”表计算每个学生的“平均分”，并将结果存入“学生”表的“平均分”字段。

(2)根据上面的统计结果，生成一个新的自由表SC_AVG，该表的字段按顺序取自“学生”表的“学号”、“姓名”、“平均分”，并按“平均分”升序排列。

(3)根据“成绩”表计算每门课程的平均分，并在文本框中显示平均分最高课程的“课程名”和“平均分”（假设平均分最高的只有一门课程）。

程序如下，请将程序填写完整。

（代码中行末的分号为逻辑行连接符）Command1的Click事件SET TALK OFFSET SAFETY OFFDIMENSION PJ(1,1)OPEN DATABASE 学生管理USE 学生DO WHILE NOT EOF()SELECT AVG(成绩) FROM 成绩 WHERE 学号=学生.学号 PJREPLACE 平均分 WITH PJ(1,1)ENDDOSELECT 学号,姓名,平均分 FROM 学生 ORDER BY 平均分 INTO TABLE SC_AVGSELECT 课程名 AS 课程名,AVG(成绩) AS 平均分 FROM 成绩 GROUP BY 课程名;INTO TABLE MYNEWSELECT MAX(平均分) AS MAX_平均分 FROM MYNEW INTO TABLE MAX_AVGAUSE MAX_AVGAMAX_A=MAX_平均分SELECT 课程名 AS 课程名,平均分 AS 最高分 FROM MYNEW WHERE 平均分=MAX_A;INTO TABLE MAX_AVGBUSE MAX_AVGB=课程名+ STR(最高分,6)CLOSE ALL2012年河北高考试题1．在Visual FoxPro的表单上添加一个标签，其Name属性为：Lba，Caption属性为：请输入字符串，添加一个文本框，其Name属性为：txt，添加一个标签，其Name属性为：Lbb，Caption属性为：空，添加一个命令按钮，其Name属性为：Command1，Caption属性为：确定。

Command1的Click事件代码如下：mystr=ThisForm.txt.Valuemystr=Trim(mystr)n=LEN(mystr)DIME arr(n)FOR i=1 TO narr(i)=SUBSTR(mystr,i,1)ENDFORm=3j=0FOR i=n TO 1 STEP -1IF arr(i)=[*]j=j+1ELSEEXITENDIFENDFORb=[ ]c=[ ]s=0IF j>ms=mELSEs=jENDIFFOR i=1 TO n-sIF (arr(i)>=[0] and arr(i)<=[9])b=b+arr(i)ELSEc=c+arr(i)ENDIFENDFORmystr=c+bThisForm.lbb.Caption=mystrReturn运行上面的表单，在文本框中输入：d12&%##ef34*****，单击“确定“按钮，在Lbb标签中显示的是：3．已有“学生信息管理.DBC”数据库，其中包含两个表：班级表和学生表，其中班级表的结构为：班号(C，8)、班名(C，20)，学生表的结构为：学号(C，10)、班号(C，8)、姓名(C，6)、性别(C，2)、出生日期(D)、籍贯(C，10)、入学成绩(N，5，1)，设计应用程序界面如下：设置控件属性如下：有一个选项按钮组，其Name属性为Optiongroup1，其中包含两个单选按钮，一个的Name 属性为Option1、Caption属性为“学生信息查询”另一个的Name属性为Option2、Caption 属性为“学生成绩查询”，两个复选框，一个的Name属性为Check1、Caption属性为“生成表”，另一个的Name属性为Check2、Caption属性为“排序”，两个命令按钮，名称分别为Command1和Command2、其对应的Caption属性分别为“确定”和“退出”，一个标签，其Name属性为Label1、Caption属性为“班号”，一个文本框，其Name属性为Text1。

编写Visual FoxPro程序实现下述功能：在文本框中输入班号、如果选择“学生信息查询”，则查询学生的基本信息，包括学号、班名、姓名和籍贯，如果选择“学生成绩查询”，则查询学生的入学成绩信息，包括学号、班名、姓名和入学成绩，如果选择生成表，则将前面的查询输出到表中，如果不选，则在屏幕上输出，如果选择排序，则将查询结果按学号排序，否则不排序。

程序如下，请在空白位置填写正确的命令。

（代码中行末的分号为逻辑行连接符）Command1的Click事件a=ThisForm.Optiongroup1.Option1.Valueb=ThisForm.Optiongroup1.Option2.Valuec=ThisForm.Check1.Valued=ThisForm.Check2.Value(5)OPEN DATABASE 学生信息管理IF c=1 AND d=0IF b=1SELECT 学号,班名,姓名,入学成绩 FROM 班级表,学生表 WHERE;班级表.班号=学生表.班号 AND 学生表.班号=e INTO TABLE stuscore.DBF ELSESELECT 学号,班名,姓名,籍贯 FROM 班级表,学生表 WHERE;班级表.班号=学生表.班号 AND 学生表.班号=e INTO TABLE stuxx.DBF ENDIFENDIFIF c=0 AND d=0IF b=1SELECT 学号,班名,姓名,入学成绩 FROM 班级表,学生表 WHERE;班级表.班号=学生表.班号 AND 学生表.班号=e TO SCREEN ELSESELECT 学号,班名,姓名,籍贯 FROM 班级表,学生表 WHERE;班级表.班号=学生表.班号 AND 学生表.班号=e TO SCREEN ENDIFENDIF(6)IF a=1SELECT 学号,班名,姓名,籍贯 FROM 班级表,学生表 WHERE班级表.班号;=学生表.班号 AND 学生表.班号=e ORDER BY 学号 DESC INTO TABLE stuxx.DBF ELSESELECT 学号,班名,姓名,入学成绩 FROM 班级表,学生表 WHERE;班级表.班号=学生表.班号 AND 学生表.班号=e ORDER BY 学号 DESC;INTO TABLE stuscore.DBFENDIFENDIF(7)IF a=1SELECT 学号,班名,姓名,籍贯 FROM 班级表,学生表 WHERE;班级表.班号=学生表.班号 AND 学生表.班号=e ORDER BY 学号 DESC TO SCREEN ELSESELECT 学号,班名,姓名,入学成绩 FROM 班级表,学生表 WHERE;班级表.班号=学生表.班号 AND 学生表.班号=e ORDER BY 学号 DESC TO SCREEN ENDIFENDIF补充练习：Visual FoxPro中，表单modi2.scx上有五个文本框（设其VALUE属性值均已设为数值型），一个命令按钮“计算”，该按钮的CLICK事件代码如下：STORE 0 TO X，S1，S2，S3，S4X=THISFORM.TEXT1.VALUEDO WHILE X>0IF INT(X/2)=X/2S1=S1+1ELSES2=S2+1ENDIFIF MOD(X,3)=0S3=S3+1ENDIFX=X-1ENDDOTHISFORM.TEXT2.VALUE=S1THISFORM.TEXT3.VALUE=S2THISFORM.TEXT4.VALUE=S3THISFORM.TEXT5.VALUE=S1+S2+S3运行上表单时,在TEXT1中输入10,单击”计算”按钮后,TEXT2、TEXT3、TEXT4、TEXT5中显示结果依次为_________________________________________________________________。