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