2017年河北省对口升学计算机专业理论试题(附答案) 下载本文

End If End Sub

2.(Visual Basic试题)窗体上有五个标签(用来提示其右侧的内容,标题分别是数据1,数据2,滚动条,

运算符,结果)。数据1右侧是文本框1(名称为Text1),数据2右侧是一列表框(名称为List1),运算符右侧是一组合框(名称为Combo1),上述三个控件内容如程序及图所示。滚动条(名称为HS1)最小值和最大值分别是10和50,滚动条的LargeChange属性值为10。界面中目前显示42的控件是文本框2(名称为Text2),其值由文本框1中部分数据、组合框中选定的运算符及列表框中数据进行某种运算产生。标题显示“开始”的是一命令按钮(名称为Command1)。有一定时器控件(名称为Timer1),初始设置Timer1.Enabled 为 False,Timer1.Interval =2000,定时器的Timer1_Timer事件主要功能是:程序中的变量a保存从Text1中选定的内容,变量c保存从Combo1中选定的值,变量b保存List1及HS1的运算结果。这些变量按指定规则运算,结果显示在Text2中。下图是窗体启动并单击“开始”按钮后,滚动条的值达到30时的状态。请在划线位置填写正确的内容。

Private Sub Form_Load() List1.AddItem \List1.AddItem \List1.AddItem \List1.AddItem \List1.AddItem \Combo1.AddItem \Combo1.AddItem \Combo1.AddItem \Combo1.AddItem \Text1.Text = \End Sub

Private Sub Command1_Click() Timer1.Enabled = True

21

Text1.SelStart =__________ Text1.SelLength = 2 End Sub

Private Sub Timer1_Timer() Dim a As Integer Dim b As Integer Dim s As Integer Dim c As String Static n As Integer n = n + 1

HS1.Value = n * 10 a = Val(Text1.SelText)

b = Val(List1.List((HS1.Value / 10) - 1)) c = ____________ Select Case c Case \ s = a + b Case \ s = a - b Case \ s = a * b Case \ s = a / b End Select Text2.Text = s If n = 5 Then n = 0

End Sub

3.(Visual FoxPro试题)已知有“KSSCORE.DBC”数据库,其中包含表“CJB.DBF”, “CJB.DBF”表的结

构为准考证号(C,9)、姓名(C,8)、学校名称(C,20)、班级名称(C,10)、科目1(C,4,1)、科目2(C,4,1)……科目9(C,4,1)(共9个科目)。应用程序运行时界面如下图所示:

22

设置控件属性如下:

有三个标签,其Name属性分别为Label1、Label2和Label3,Caption属性分别为“学校选择”、“班级选择”、“结果:”;有一个文本框,其Name属性为Text1;两个组合框,其Name属性分别为Combo1和Combo2,其中分别列出了供选择的学校和班级(属性中已设置,代码中直接使用);一个命令按钮,其Name属性为Command1,Caption属性为“确定”。 编写Visual FoxPro程序,实现功能如下:

在Combo1中选择一个学校,在Combo2中选择一个班级,单击Command1(“确定”按钮),则在Text1中显示该学校该班级9个科目优秀率的相关数据(每个科目优秀的标准是相应科目>=90,优秀率=相应科目优秀的人数/该学校该班人数*100%)。

Command1(“确定”按钮)的Click事件代码如下,请在划线位置填写正确的内容。(代码中行末的分号为逻辑行连接符) XXMC=THISFORM.COMBO1.VALUE BJMC=THISFORM.COMBO2.VALUE OPEN DATABASE KSSCORE

SELECT 学校名称,班级名称,COUNT(准考证号) AS 班级人数 FROM CJB GROUP BY; 学校名称,班级名称 INTO TABLE YXLTJTMP SELECT * FROM CJB.DBF INTO DBF BJYXLTJB ZAP

ALTER TABLE BJYXLTJB DROP COLUMN 准考证号 ALTER TABLE BJYXLTJB DROP COLUMN 姓名 ALTER TABLE BJYXLTJB ADD 班级人数 N(4,0) FOR K=1 TO 9

FKMRS=\科目\ ALTER TABLE BJYXLTJB ALTER &FKMRS N(4,0) ENDFOR FOR I=1 TO 9

KMC=\科目\

SELECT 学校名称,班级名称,COUNT(准考证号) AS KMCRS FROM CJB; WHERE GROUP BY 学校名称,班级名称 INTO DBF TJYXFTMP SCAN

UPDATE BJYXLTJB SET &KMC=TJYXFTMP.KMCRS WHERE BJYXLTJB.学校名称; =TJYXFTMP.学校名称 AND BJYXLTJB.班级名称=TJYXFTMP.班级名称 ENDSCAN

23

ENDFOR JIEGUO=\

JIEGUO=XXMC+\FOR K=1 TO 9

KMMC=\科目\

SELECT &KMMC AS KMRS,班级人数 FROM BJYXLTJB WHERE 学校名称=XXMC; AND 班级名称=BJMC INTO DBF YXJG

JIEGUO=JIEGUO+\班级人数*100)))+\ENDFOR

CLOSE DATABASE

2017 年河北省普通高等学校对口招生考试

计算机专业理论试题(A)答案

一、选择题(每小题2分) 1.D 2.C 3.B 11.D 21. B 31.B 12.A 22.C 32.D 13.D 23.A 33.A 4.C 14.D 24. C 34.D 5.B 15.B 25. B 35.A 6.C 16.D 26.C 36.C 7.B 17.A 27. A 37.D 8.A 18.B 28.D 38.C 9.D 19.C 29.C 39.A 49.B 10.D 20.D 30.A 40.B 50.C 41.B 42.C 43.A 44.C 45.B 46.C 47.D 48.A 二、判断题(每小题1分) 1.√ 2.× 3.√ 4. × 5.× 6.× 7.√ 8.√ 9.× 10. × 11.× 12. √ 13.× 14.√ 三、填空题(每小题2分) 1. 102 2.控制面板 3.PrintScreen(PrtSc ) 4.CAD 5.裁剪 6.0加空格加2/3 7.Close 8. a*b/(a-b)+a 9. AAAAAA

10.30 11.16 12.开放系统互连 13.192.168.1.100

四、命令或语句(每小题4分)

1. DELETE ALL FOR 库存下限<100 AND NOT 商品单位= \箱\

DELETE ALL FOR 库存下限<100 AND 商品单位<>\箱\2. APPEND FROM GOODS

3. CREATE TABLE SALLINFO.DBF(商品编号 C(6) REFERENCES PROINFO,售价 N(8,1))

4. UPDATE PROINFO.DBF SET 库存下限=200 WHERE 商品单位=\听\商品类别=\5. SELECT商品类别, AVG(商品单价) FROM “PROINFO.DBF” GROUP BY 商品类别

24

五、程序分析(每小题5分)

1. 100 2. createdatabase(字符串中的字母是由这些字符组成的,只要偶数位的是小写的,奇数位上的无论大小写都对,比如CrEaTeDaTaBaSe、CrEateDatabase) 六、写出程序执行结果(每小题5分)

1.52 2.kaoshi

3.12 876543 20 34567830 4. -11.05

5.801510114 张丽丽 2 七、程序改错

1、(共2处错,每处改对得2.5分,改错不扣分)

错误行:str2 = Mid(str2, i) 正确行str1 = Mid(str2, i)

错误行:For i = 1 To j 正确行: For i = 1 To j - 1

2、(共2处错,每处改对得2.5分,改错不扣分) 错误行:a(i, j) = 10 + Int(Rnd * 10) 正确行: a(i, j) = 10 * i + Int(Rnd * 10)

错误行:s = s + a(num, num) 正确行: s = s + a(i, j)

八、程序填空

1、(每空5分) Exit For a(n) = i 2、(每空5分) 1

Combo1.Text或Combo1

3(每空5分)

APPEND FROM YXLTJTMP &KMC>=90

THISFORM.TEXT1.VALUE=JIEGUO

25